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1. PURPOSE 

THE DIAGNOSTIC MONITOR IS A CONTROL PROGRAM DESIGNED TO PROVIDE 3VFRLAP 
CAPABILITY AND TO HANDLE MANY PROGRAM FUNCTIONS WHICH ARE COMMON TU ALl IF 
THE TEST PROGRAMS. 

2. PREREQUISITES 
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PROGRAM LOADING 

FROM CARDS 

FROM PAPER TAPE 

LOAD AND GO 

PAUSE BEFORE EXECUTE 

TO LOAD AFTER INITIAL LOAD 

PROGRAM OPERATION 

ORGANIZATIUN OF CONSOLE ENTRY SWITCHES 

SINGLE PROGRAM OPERATION 

OVERLAP OPERATION 

PROGRAM CONTROL OPTIONS - FUNCTION 

OPTION SELECTION - FUNCTIONS I, 2, AND 3 

SPECIAL MONITOR CONTROL 
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PROGRAM PREREQUISITES 

1. THIS PROGRAM MUST BE LOADED BY ONE OF THE DIAGNOSTIC LOADERS. 

A. 03AA - 1442 RELOCATING LOADER 

B. 03AC - 1134 RELOCATING LOADER 

C. 03AB - 2501 RELOCATING LOADER 

2. ALL PROGRAMS TO RUN UNDER CONTROL OF THIS MONITOR MUST BE IN 
DIAGNOSTIC MONITOR II FORMAT. 

EQUIPMENT PREREQUISITES 



3.3 HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 TERMINATION 

3.5 PROGRAM RESTART 

3.6 PATCHING 

4. PRINTOUTS 



4.1 STATUS MESSAGES 

4.2 ERROR MESSAGES 
J. COMMENTS 



5.1 INTRODUCTION TO DIAGNOSTIC MONITOR OPERATION 

5.1.1 WHAT IS THE MONITO* 

5.1.2 WHY IS A MONITOR NECESSARY 

5.1.3 COMMON PROGRAM FUNCTIONS 

5.1.4 ADVANTAGES OF HAVING COMMON FUNCTIONS IN MONITOR 

5.1.5 HOW DOES THE MONITOR CONTROL A PROGRAM 

5.1.6 HOW DOES A TEST PROGRAM REQUEST CONTROL FROM THE MONITOR 

5.1.7 MAIN LINE SEQUENCE CONTROL 

5.1.8 HOW DOES MONITOR AGAIN OBTAIN CONTROL 

5.1.9 HOW ARE TEST MESSAGES PRINTEO 

5.2 ROUTINE DESCRIPTION 

5.2.1 RELOCATING LOADER 

5.2.2 SUPERVISOR ROUTINE 

5.2.3 INTERRUPT ROUTINE 

5.2.4 BIT SWITCH ROUTINE 

5.2.5 MESSAGE LOG ROUTINE 

5.2.6 END ROUTINE 

5.2.7 HALT ROUTINE 



1130 WITH INPUT FROM CARDS OR PAPER TAPE. 
OPERATING PROCEDURE 

3.1*** PROGRAM LOADING 

3.1.1 FROM CAROS 

PLACE THE MONITOR AND THE PROGRAMS TO BE LOADED UNDER MONITOR CONTRfll 
IN THE REAOER. THE MONITOR MUST BE PRECEEDED BY A RELOCATING LOADFR. 
PLACE THE READER IN READY CONDITION. PRESS THE 1131 RESET THEN 
PROGRAM LOAD. THE CARDS WILL LOAD UNTIL A BLANK CARD IS ENC0UNTF3FD. 
OR THE READER GOES NOT READY. 

IF A BLANK CARD IS PLACED AFTER EACH TEST PROGRAM DECK, EACH PROGRAM 
WILL LOAD, EXECUTE, THEN CALL IN THE NEXT PROGRAM UNTIL THE READFR 
BECOMES NOT READY. IF TEST DECKS ARE NOT SEPARATED BY A HI ANK CARD, 
ALL PROGRAMS PLACED IN THE READER WILL BE LOADED ANO RUN IN DVFRLAP. 
A MAXIMUM OF FIFTEEN (15) PROGRAMS CAN BE LOAOED AND RUN IN OVERLAP. 

NOTE - IF THE LAST CARD IN THE READ HOPPER IS NOT A BLANK CARD, THE 
READER WILL uU NOT READY BEFORE THE LAST PROGRAM CARD IS RFA') 
ANO THE LOADER WILL STOP AT WAIT 30F8. TO CONTINUE, PRESS THE 
READER START AND THE 1131 START. 

3.1.2 FROM PAPER TAPE 

PLACE THE MONITOR TAPE ON THE 1134 PAPER TAPE READER (THE 1134 
RELOCATING LOADER, 03AC, IS INCLUDED AS THE FIRST RECORD ON THE 
MONITOR TAPE). MAKE THE READER READY. PRESS THE 1131 RESET THFN PRO- 
GRAM LOAD. THE MONITOR WILL LOAD, THEN STOP TO ALLOW LOADING HF 
THE FiKST TEST PROGRAM TAPE. 

WHEN THE NEXT TAPE IS READY TO LOAD, SET BIT SWITCHES AND 8 ON IF 
LOADING A SINGLE PROGRAM, OR SWITCHES 0, 8, 9 AND 15 ON IF LOADING 
OVERLAP, THEN PRESS THE INTERRUPT REQUEST KEY. THIS WILL CAUSE THE 
NEXT TAPE -TO LOAD. THE ABOVE PROCESS MUST BE REPEATED FOR EVERY 
TAPE TO BE LOADED IN OVERLAP. A MAXIMUM OF FIFTEEN (15) PROGRAMS CAN 
BE LOADED IN OVERLAP. 

3.1.3 LOAD ANO GO - LOADING IS NORMALLY LOAO AND GO WHETHER LOADING ONE 
PROGRAM OR SEVERAL PROGRAMS IN OVERLAP. 

3.1.4 PAUSE BEFORE EXECUTE-TO PAUSE BEFORE EXECUTING THE PROGRAM! S) LOADED, 
TURN BIT SWITCH 15 ON BEFORE LOADING THE PROGRAM. THIS WILL TURN 3N 
THE HALT SWITCH FOR EACH PROGRAM LOADED. TO START ALL PROGRAMS SET 
SWITCHES 0-7 ANO 15 OFF, SWITCH 8 ON, SWITCHES 9-14 FOR DESIRED CON- 
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TROL THEN PRESS THE INTERRUPT REQUEST KEY ON THE 1131 CONSOLE. TO 
START ANY SINGLE PROGRAM FOLLOW ABOVE PROCEDURE WITH SWITCHES 4-7 
SET TO THE LOAD SEQUENCE NUMBER OF THE PROGRAM TO BE STARTED ( SEE 
SECTION 3.2.3 FOR EXPLANATION OF LOAD SEQUENCE NUMBER). 

NOTE - THIS START PROCEDURE IS IDENTICAL WITH RESTART 
AS OUTLINED IN SECTION 3.5. 



3.1.5 TO LOAD AFTER INITIAL LOAD - ONCE 
IT IS POSSIBLE TO REQUEST AT ANY 
OR PROGRAMS. ADDITIONAL PROGRAMS 
INDIVIDUALLY OR IN OVERLAP WITH T 
AND/OR IN OVERLAP WITH THEMSELVES 
LOADED AND RUN ALONEt IT WILL TAK 
GRAMISI PREVIOUSLY LOADED. THIS W 
PROGRAMS WERE LOADED IN OVERLAP. 
OVERLAP, THEY CAN EITHER TAKE THE 
OR THEY CAN BE LOADED TO OVERLAP 



THE MONITOR PROGRAM HAS BEEN LOADED 
TIME THE LOADING OF ANOTHER PROGRAM 

CAN BE LOADED EITHER TO RUN 
HE PROGRAM (S) PREVIOUSLY LOADED 

IF A SINGLE PROGRAM IS TO BE 
E THE PLACE IN CORE OF THE PRO- 
ILL BE TRUE EVEN WHEN THE PREVIOUS 
IF ADDITIONAL PROGRAMS ARE LOADED IN 

PLACE OF PROGRAMS PREVIOUSLY LOADED 
WITH THE PREVIOUSLY LOADED PROGRAMS. 



1. THE LOAD REQUEST IS A FUNCTION 2 SWITCH ENTRY TO THE MONITOR. 
THIS MEANS THAT SWITCH MUST BE ON AND SWITCHES 1-7 OFF TO GIVE 
A LOAD REQUEST. SWITCH 8 IS THE LOAD SWITCH. SWITCH 9 IS THE CON- 
TINUE LOAD OR OVERLAP SWITCH. 

2. RELOAD - THE SWITCH SETTING FOR RELOAD IS 8080. THIS WILL CLEAR 
THE MONITOR OF CONTROLS FOR ALL PREVIOUSLY LOADED PROGRAMS AND 
LOAD THE FIRST PROGRAM IN THE READER INTO CORE LOCATION 05DC 
(1500 DECIMAL). IF THIS FIRST PROGRAM IS TERMINATED BY A BLANK 
CARD, THE LOADING WILL STOP AFTER THAT PROGRAM IS LOADEO. IF THIS 
PROGRAM IS NOT TERMINATED BY A BLANK CARD THE NEXT PROGRAM IN THF 
READER WILL BE LOADED. IF THE FOLLOWING PROGRAMS ARE RELOCATABLE, 
THEY WILL BE RELOCATED STARTING WITH THE FIRST EVEN ADDRESS AFTER 
THE LAST ADDRESS USED BY THE PREVIOUSLY LOADED PROGRAM. FOR THE 
PURPOSE OF PROGRAM IDENTIFICATION FOR SWITCH ENTRIES, THE FIRST 
PROGRAM IN THIS RELOADED DECK NOW BECOMES PROGRAM NUMBER ONE ID, 
THE SECOND IS NUMBER TWO (2), ETC. 

3. CONTINUE LOADING - 

THE SWITCH SETTING TO CONTINUE LOADING IS 80C0. THIS WILL CAUSE 
THE NEXT PROGRAM TO BE LOADED STARTING AT THE FIRST CORE POS- 
ITION FOLLOWING THE LAST ADDRESS IN THE PREVIOUSLY LOAOED 
PROGRAM. THUS THE NEWLY LOADED PROGRAMS CAN BE RUN IN OVER- 
LAP WITH THE PREVIOUSLY LOADED PROGRAMS. 

3.2*** PROGRAM OPERATION 

3.2.1 ORGANIZATION OF CONSOLE ENTRY SWITCHES 

ALL CONTROL IS EXERTED ON THE TEST PROGRAMS AND THE MONITOR 
BY ENTERIES IN THE 1131 CONSOLE ENTRY SWITCHES. TO PROVIDE FLEX- 
IBILITY, THESE SWITCHES ARE DIVIDED INTO THREE GROUPS. SWITCHES 
AND 1 ARE THE FUNCTION SWITCHES (F), SWITCHES 4-7 ARE THE 
PROGRAM IDENTIFICATION SWITCHES (PI, AND SWITCHES 8-15 ARE THE DATA 
SWITCHES (D). SWITCHES 2-3 ARE NOT USEO. 

I. FUNCTION SWITCHES (F) ARE USED TO IDENTIFY THE FUNCTION OF THE 
■' DATA ENTERED IN SWITCHES 8-15. THE SETTING OF THESE SWITCHES DE- 
TERMINES INTO WHICH OF THE 4 SWITCH WORDS IN THE PROGRAM CONTROL 
TABLE THE SETTING OF THE DATA SWITCHES WILL BE STORED. OF THE 
FOUR FUNCTIONS AVAILABLE, THE USE OF 2 HAS BEEN STANDARDIZED. 

A. FUNCTION 00 IS USED TO SPECIFY THE PROGRAM CONTROL OPTIONS 
PROVIOEO BY THE MONITOR. THESE ARE DISCUSSEO IN DETAIL 
IN SECTION 3.2.4. 



B. 



FUNCTION 01 IS USED BY EACH TEST PROGRAM TO SELECT A SPECIFIC 
ROUTINE. THIS IS DISCUSSED IN SECTION 3.2.5. 
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2. THE PROGRAM IDENTIFICATION SWITCHES (P) ARE USED TO IDENTIFY THF 
SPECIFIC PROGRAM FOR WHICH THE INFORMATION IN THE DATA SWITCHES 
(D) IS TO BE APPLICABLE. THE NUMBER TO BE USED TO IOENTIFY ANY 
PROGRAM IS DEPENDENT ON THE OROER IN WHICH THAT PROGRAM WAS LOAD- 
ED, THE FIRST PROGRAM LOADED IS PROGRAM ONEU), THE FIFTH PROGRAM 
LOADED IS PROGRAM FIVE (51, ETC. SWITCHES 4-7 A*E SET TO THE 
BINARY EQUIVALENT OF THIS PROGRAM NUMBER. THUS, Tl ENTER DATA 

TO PROGRAM 1, SWITCHES 4,5 AND 6 MUST BE TURNED OFF AND SWITCH 
7 TURNED ON. 

3. THE DATA SWITCHES (D) ARE USED TO ENTER SPECIFIC DATA INTO THE 
PROGRAM IDENTIFIED BY THE PROGRAM SWITCHES (P). THIS DATA IS 
STORED IN ONE OF THE 4 SWITCH WORDS IN THE PROGRAM CONTROL TA^Lr 
OF THE PROGRAM IDENTIFIED IN THE P SWITCHES. THE SPECIFIC WORD 
INTO WHICH THE DATA IS STORED IS DETERMINED BY THF SETTING OF TH~ 
FUNCTION SWITCHES (F). 

4. TO ENTER A SWITCH SETTING, PRESS THE INTERRUPT RE3UEST KEY ON THE 

1131 CONSOLE. THE RESULTING LEVEL FOUR INTERRUPT WILL BE SERVIC- 
ED BY THE MONITOR READ BIT SWITCH ROUTINE. THE SWITCHES WILL fit 
REAO AND STORED BY THE INTERRUPT ROUTINE. 

3.2.2 SINGLE PROGRAM OPERATION 

1. LOADING - IF MORE THAN ONE TEST PROGRAM IS PLACED IN THE READER, 
EACH PROGRAM MUST BE FOLLOWED BY A BLANK CARD. 

2. COMMUNICATION TO PROGRAM - SET SWITCHES 4-6 OFF AND 7 ON FOR ALL 
COMMUNICATION WITH THE PROGRAM. NO COMMUNICATION TO THE MONITOR 
IS REQUIRED. 

3.2.3 OVERLAP OPERATION 

1. LOADING - ALL PROGRAMS TO BE RUN IN OVERLAP MUST BE PIACFD IN THE 
READER WITH NO BLANK CARDS BETWEEN THE PROGRAM. ALL PROGRAMS 
WILL BE LOADED INTO CORE STORAGE. A MAXIMUM OF 15 PROGRAMS MAY 
BE RUN IN OVERLAP. 

2. HALT AFTER LOADING - IF THE HALT SWITCH (SWITCH 15) IS ON OURIN", 
LOADING OF A PROGRAM, THE HALT SWITCH IN THAT PROGRAM WILL BE 
SET. THUS AFTER THE PROGRAMS ARE LOADED, THEY MAY BE INDI- 
VIDUALLY STARTED OR ALL STARTED TOGETHER BY FOLLOWING THE RESTART 
PROCEDURES OUTLINED IN SECTION 3.5. 

3. COMMUNICATION TO PROGRAMS - TO COMMUNICATE TO AN INDIVIDUAL PRO- 
GRAM, ITS LOAD SEQUENCE NUMBER (PRINTED AS PART OF THE LOAO 
MESSAGE) MUST BE ENTERED IN SWITCHES 4-7. IF A CONTR01 IS TO BF 
APPLICABLE TO ALL PROGRAMS, SWITCHES 4-7 MUST BE OFF. 

4. EXAMPLE OF COMMUNICATION - IF THE DISC, CONSOLE KEYBOARD, AND 

1132 FUNCTION TESTS ARE TO BE RUN IN OVERLAP AND THEY ARE L0A1ED 
IN THE ABOVE ORDER, THEIR LOAO SEQUENCE NUMBERS WOULO RF AS 
FOLLOWS. 



TEST 


NUMBER 


DISC FT 


1 


CONS/KEYBOARD 


2 


1132 FT 


3 



IF SWITCH 15 WAS ON DURING LOAOING OF ALL PROGRAMS, NO PROGRAMS 
WILL START UNTIL A RESTART COMMAND IS GIVEN. 

ASSUME THE FOLLOWING CONTROL IS DESIRED, THE SWITCHES MUST BF 
SET AS SHOWN AND THE INTERRUPT REQUEST KEY PRESSED AFTFR EACH 
SWITCH ENTRY. 



CONTROL 



SWITCHES 
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SELECT ROUTINE 5 IN THE 1132 FT 
SET LOOP PROGRAM ON 

CONSOLE/KEYBOARD FT 
BYPASS ERROR MESSAGE PRINTOUT 

IN THE 1132 FT 
SET DISC FT TO PRINT 

ROUTINE START MESSAGE 

AND TO HALT ON ANY ERROR 
START ALL PROGRAMS AND 

SET TO LOOP ALL PROGRAMS 



430 5 
0210 
030A 

014? 
0090 
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12 


13 


14 


15 


X 


X 


X 


X 


X 


X 


X 


X 



3.2.4 PROGRAM CONTROL .FUNCTION 

ALL FUNCTION 00 SWITCH ENTRIES REGARDLESS OF THE PROGRAM TO WHICH 
THEY REFER ARE SERVICED BY THE MONITOR. THUSi WITH THE EXCEPTION OF 
LOOP ON ERROR AND LOCK ON FUNCTION, WHICH ARE DEPENDENT ON SUPPORT 
ROUTINES IN THE INDIVIDUAL PROGRAMS, THE CONTROLS DISCUSSED HERE 
APPLY TO ALL MONITOR CONTROLLED PROGRAMS. 

I. THE MONITOR PROVIDES THE FOLLOWING CONTROLS 

A. HALT - HALT THE PROGRAM AT THE COMPLETION OF THE PRESENT 
OPERATION. WHEN THE HALT SWITCH IS TURNED OFF, THE PRO- 
GRAM WILL CONTINUE FROM THE POINT AT WHICH IT WAS STOPPED. 

B. RESTART - REINITIALIZE THE PROGRAM AND RESTART. I F*. A ROUTINE 
BEEN PREVIOUSLY SELECTED, THE PROGRAM WILL BE RESTARTED AT 
THE BEGINNING OF THIS ROUTINE. IF NO ROUTINE IS SELECTED, 
THE PROGRAM WILL RESTART WITH ROUTINE ONE. THE PROGRAM HALT 
SWITCH IS HOT TURNED OFF BY A RESTART TO ALL RPOGRAMS. 

THUS A HALTED PROGRAM WILL NOT RESTART UNTIL ITS ^LT 
SWITCH IS TURNED OFF. 

C. PRINT ROUTINE START MESSAGE - BEFORE ANY ROUTINE IS STARTED, 
A MESSAGE MAY BE PRINTED IDENTIFYING THAT ROUTINE AND ITS 
STARTING ADDRESS. 

D. LOCK ON FUNCTION - MANY OF THE PROGRAMS ARE WRITTEN TO INCOR- 
PORATE A LOCK ON F.UNCTION IN MOST ROUTINES. IN THESE PRO- 
GRAMS, LOCK ON FUNCTION WILL INHIBIT THE DATA ADVANCE AND 
LOOP ON THE MAJOR ROUTINE FUNCTION. SEE THE DOCUMENTATION 3F 
EACH PROGRAM TO SEE EXACTLY HOW THIS FUNCTION IS IMPLEMENTED 
IN THAT PROGRAM. 

£. LOOP PROGRAM - WHEN A PROGRAM GOES TO END THIS CONTROL WILL 
AUTOMATICALLY RESTART IT FROM ROUTINE 1. 

F. LOOP ON ERROR -THE TEST DETECTING THE ERROR WILL BE LOOPED SO 
LONG AS THE ERROR PERSISTS. TO LOOP INTERMITTENT ERRORS, USF 
THE LOCK ON FUNCTION. 

G. BYPASS ERROR PRINTOUT 

H. HALT ON ERROR - THE PROGRAM WILL STOP AT WAIT 2. SINCE THIS 
WAIT IS FOLLOWED BY A BRANCH BACK TO THE WAIT, INTERRUPTS 
WILL NOT CAUSE THE PROGRAM TO CONTINUE. TO RECOVER FROM THIS 
HALT, TURN TO DISPLAY MODE, PRESS START ONCE THEN RETURN TO 
RUN AND PRESS START. 

2. ALL OF THESE CONTROLS ARE ACCOMPLISHED BY A FUNCTION ZERO SWITCH 
ENTRY TO EITHER A SPECIFIC PROGRAM OR TO THE MONITOR. IF THE 
ENTRY IS TO 8E TO THE MONITOR (SWITCHES 4-7 ALL OFF!, THE CONTROL 
WILL APPLY TO ALL PROGRAMS. IF THE ENTRY IS TO A SPECIFIC PRO- 
GRAM THE CONTROL WILL APPLY TO THAT PROGRAM ONLY. 

TO SPECIFY THE DES IREO CONTROL, SET THE SWITCHES AS FOLLOWS. 



F F P P P P 

01 234567 
00 OOPPPP 



8 RESTART 

9 PRINT RTN ID 

10 LUCK ON RTN 

11 LOOP PROGRAM 

12 LOOP UN ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 

WHERE - PPPP IS 0000 IF THE CONTROL IS TO ALL PROGRAMS OP IS 

EQUAL TO THE PROGRAM SEQUENCE NUMBfcR IF THF ENTRY 
IS TO A SPECIFIC PROGRAM. 

THE PROGRAM SEQUENCE NUMBER IS DETERMINED BY THE 
ORDER IN WHICH PROGRAMS ARE LOADED - THE FIRST PRO- 
EQUIVALENT OF THIS SEQUENCE NUMBER IS USED IN 
GRAM IS NUMBER 1, THE SECOND NUMBER 2, ETC. THE BI- 
NARY EQUIVALENT OF THIS SEQUENCE NUMBLR IS USFD IN 
SWITCHES 4-7. 



THUS THE SWITCH ENTRY 



05B8 



WILL CAUSE THE FIFTH PROGRAM LOADEO TO RESTART ANT 
L03P ON ANY DETECTEO ERRORS. THIS ENTKY WILL ALST 
- TURN OFF THE LOCK ON ROUTINE, LOOP ON PROGRAM, BYPASS 
ERROR PRINTOUT, HALT ON ERROR, AND HALT CONTROLS 
SHOULD ANY OF THESE HAVE BEEN SET ON BY A PREVIOUS 
SWITCH ENTRY. 

3. A CONTROL IS SET BY A SWITCH ENTRY HAVING THE SWITCH FOR THAT 
CONTROL ON. A CONTROL IS RESET BY A SWITCH ENTRY HAVING THE 
SWITCH FOR THAT CONTROL OFF. THUS, TO START AGAIN AFTER HAVING 
SET THE HALT SWITCH FOR A PROGRAM, A SWITCH ENTRY MUST BE MADE 
WITH SWITCH 15 OFF AND SWITCHES 0-7 SET AS THEY WERE WHEN THE 
HALT CONTROL WAS SET. 

4. TO ENTER THE SWITCHES AFTER THEY HAVE BEEN SET, PRESS THE 
INTERRUPT REQUEST KEY ON THE 1131 CONSOLE. THE RESULTING LEVEL 
4 INTERRUPT WILL BE SERVICED BY TH MONITOR READ BIT SWITCH 
ROUTINE. SINCE THE SWITCHES ARE READ IN INTERRUPT AND THE 
SETTINGS PLACED IN THE PROGRAM CONTROL TABLE IN INTERRUPT, 
THEY WILL GIVE IMMEDIATE CONTROL TO THE PROGRAM ISO LONG AS AN 
INTERRUPT IS NOT CONTINUALLY ON PREVENTING SERVICE OF THE CONSOLh 
INTERRUPT). 

3.2.5 OPTION SELECTION - FUNCTIONS 1,2,3 

FUNCTION SWITCH SETTINGS 01,10 AND 11 CAUSE THE DATA IN SWITCHES R-15 
TO BE STORED IN SW1 , SW2, OR SW3 RESPECTIVELY IN THE PROGRAM CONTROL 
TABLE OF THE PROGRAM IDENTIFIED IN THE PROGRAM SWITCHES. THESE SWITCH 
ENTRIES ARE INTERROGATED BY EACH INDIVIDUAL TEST PROGRAM TO PROVIOF 
APPROPRIATE CONTROL FOR THAT PROGRAM. 

1. ROUTINE SELECTION - FUNCTION 02 IS USED BY ALL PROGRAMS FOR 

ROUTINE SELECTION. IF THE STANDARD TEST CONTrtOL ROUTINES ARE USrp 
BY THE PROGRAM, THE ROUTINE SELECTION WILL FUNCTION AS FOLLOWS. 

A. ANY ROUTINE IS SELECTED BY SETTING INTO SWITCHES 8-15 THF BI- 
NARY EQUIVALENT OF THE HEXIOECIMAL NUMBER OF THAT ROUTINE. 

B. ONCE A ROUTINE IS SELECTED, THE PROGRAM WILL LOOP IN THAT 



DATE 


02JAN66 


15N0V66 


15JUN67 


01APR69 


EC NO. 


415490 


41964 3 


420317 


571036 



PROG ID 
PA5E 



0300-* 

I 5 



DATE 

tC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



01APR69 
571036 



PR3G IP 
PA5F 



0300-* 
34 



IbM MAINftNANCfc DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
JlAuNUSTIC MONITOR II 



PART NO. 219120? 
PASF 4 



C. 



ROUTINE UNTIL ANOTHER ROUTINE IS SELECTED. 

TO RETURN TO RUNNING ALL ROUTINESt THE SWITCHES SHOULD BE SET 
AS IT SELECTING ROUTINE ZERO. THE ROUTINE RUNNING AT THE 
TIME THIS ENTRY IS MADE HILL CONTINUE TO ITS NORMAL TERMINA- 
TION THEN THE NEXT ROUTINE IN THE NORMAL SEQUENCE HILL BE 
RUN. 



NOTE 



THE ROUTINE NUMBERING STARTS HITH ROUTINE 1. 



0. 



IF AN INVALID ROUTINE NUMBER IS SET IN THE SWITCHES* THE 
CONTROL ROUTINE WILL RETURN TO RUNNING ALL ROUTINES, STARTING 
FROM THE FIRST ROUTINE. 



E. WHEN A NEW ROUTINE IS SELECTED, THE PROGRAM WILL GO TO THAT 
NEW ROUTINE IMMEDIATELY AFTER IF HAS SERVICED ALL PENDING 
INTERRUPTS. 

2. OTHER TEST OPTIONS - WHILE THE USE OF FUNCTIONS 10 AND 11 HAS NOT 
BEEN STANDARDIZED, THESE FUNCTIONS HAVE MOST FREQUENTLY BEEN USED 
BY THE TEST PROGRAMS TO SPECIFY A FUNCTION WHICH I S TO BE PER- 
FORMED REPEATEDLY AND TO ENTER NEW TEST DATA OR TEST PATTERNS. 

3.2.6 SPECIAL MONITOR CONTROL 

THREE SPECIAL CONTROL FEATURES ARE PROVIDED BY THE DIAGNOSTIC MONITOR 
THESE ARE PROGRAM STOP, AODRESS STOP, AND PROGRAM DELAY. 

1. PROGRAM STOP - THE PROGRAM STOP BUSHBUTTON SHOULD ALWAYS BE USED 
IN FAVOR OF THE IMMEDIATE STOP WHENEVER IT IS DESIRED'TO TEMPOR- 
ARILY STOP THE OPERATION OF THE PROGRAM. PRESSING PROGRAM 

STOP WILL CAUSE A LEVEL FIVE (51 INTERRUPT, WHICH IS SERVICED BY 
THE MONITOR HALT ROUTINE. THE PROGRAM HILL STOP AT A WAIT IN THE 
HALT ROUTINE AFTER ALL INTERRUPTS HAVE BEEN SERVICED. OPERATION 
OF THE PROGRAM CAN BE RESUMED BY EITHER PRESSING PROGRAM START 
OR BY PRESSING RESET THEN PROGRAM START. THIS SECOND START PR1- 
CEOURE ALLOWS THE CE TO USE LOAD AND 01 SP MODES ISET BY CONSOLE 
MODE SUITCH) TO LOOK AT AND/OR MODIFY ANY POSITION IN CORE 
BEFORE CONTINUING THE OPERATION OF THE PROGRAM. ALL CPU STATUS 
EXCEPT INDEX REGISTERS IS SAVED BY THE HALT ROUTINE AND RESTORED 
WHEN EITHER OF THE ABOVE START PROCEDURES IS USED. 

2. ADDRESS STOP - THIS FEATURE HILL STOP THE PROGRAM ON ANY MAINLINE 
INSTRUCTION ADDRESS BEFORE IT IS EXECUTED. TO STOP AT A SELECTED 
ADDRESS - 

A. PRESS PROGRAM STOP 

B. SET THE BIT SWITCHES TO THE DESIRED STOP ADDRESS 

C. SET THE CONSOLE MODE SWITCH TO INT RUN. 

0. PRESS PROGRAM START - DO NOT PRESS RESET BEFORE PROGRAM 
START. INTERRUPT LEVEL FIVE MUST BE ON WHEN STARTING IN 
INTERRUPT RUN MODE FROM THE MONITOR HALT ROUTINE. 

THE PROGRAM HILL STOP IN THE MONITOR HALT ROUTINE BEFORE THF 
INSTRUCTION AT THE SPECIFIED ADDRESS IS EXECUTED. TO RFSTIRr 
THE MACHINE STATUS TO THE NORMAL CONDITIONS BEFORE EXECUTION 
OF THE INSTRUCTION, SET THE CONSOLE MODE SWITCH TO SI, THEM 
STEP THRU THE PROGRAM UNTIL THE INTERRUPT LEVEL 5 IS TURNED 
OFF. THE NEXT INSTRUCTION TO BE EXECUTED WILL BE THE INSTRUC- 
TION AT THE SELECTED STOP ADDRESS. 

THE NEXT STOP ADDRESS MUST BE SET IN THE BIT SWITCHES ANY 
TIME THE PROGRAM HALTS AT A SELECTED ADDRESS OR HALTS AFTER 
PRESSING PROGRAM STOP. 
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3.. PROGRAM DELAY - THIS FEATURE WILL PROVIDE A DELAY BETWEEN EACH 
INSTRUCTION EXECUTED IN MAINLINE, EFFECTIVELY SLOWING DOWN THE 
TOTAL OPERATION OF THE CPU. THIS FEATURE CAN BE USED TO SLOW 
DOWN THE OPERATION OF ANY I/O DEVICE BY DELAYING BFTHEEN THE XIO 
COMMANDS. 

THE BASE DELAY IS APPROXIMATELY 125 USEC. THIS CAN BE INCREASFD 
IN INCREMENTS OF 25 USEC. 

TO SET PROGRAM DELAY 

A. SET THE BIT SWITCHES TO 8020, THEN PRESS THE INTERRUPT 
REQUEST KEY THIS WILL DISABLE THE AOORESS STOP FEATURE ANO 
TRANSFER THE INTERRUPT RUN INTERRUPT TO THE PROGRAM DELAY 
ROUTINE. 

B. PRESS PROGRAM STOP. 

C. SET THE CONSOLE MODE SWITCH TO INT RUN. 

0. SET THE BIT SWITCHES FOR THE DESIRED DELAY. MINIMUM DELAY IS 
ALL SWITCHES OFF. THE TOTAL DELAY WILL BE APPROXIMATELY 
125+2 5 WHERE D IS EQUAL TO THE DECIMAL EQUIVALENT OF THE 
BINARY SETTING OF THE SWITCHES. 

E. PRESS PROGRAM START - DO NOT PRESS RESET BEFORE PROGRAM 

START. INTERRUPT LEVEL 5 MUST BE ON WHEN STARTING IN INTER- 
RUPT RUN MOOE FROM THE MONITOR HALT ROUTINE. 

3.3*** PROGRAM HALTS 

3.3.1 NORMAL HALTS 



.HALT NO 
.(B REG1 


DESCRIPTION 


RESTART 
ACTION 


. 3001 
. 3002 . 


PROGRAM STOP OR ADDRESS STOP . 
HALT ON ERROR 


PRESS START 

DISPLAY MOOF-PRESS START. 
RUN MODE-PRESS START 



3.3.2 ERROR HALTS 



.HALT NO 


DESCRIPTION 


RESTART 


.IB REG) 




ACTION 


. 30F1 


CHECK SUM ERROR ON FIRST 
CARD OF THE LOADER. 


RELOAD 


. 30F2 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 


CAN NOT CLEAR CORE - DUE TO . 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CARDS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 



UATt 
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. 30F6 . 


MONITOR DID NOT LOAD 


RELOAD fW* . 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THF CONSOLE PRINTER . 






IbM KA1NTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
DIAGNOSTIC MONITOR It 

SOME EXAMPLES FOLLOW 

A. +06*5 C400R085 7 0035 



PAI- f 
PA" I 



?191?-V 



********** 



3.4*** PROGRAM TERMINATION 

AT THE COMPLETION OF EACH PASS IN A TEST PROGRAM, THE PROGRAM 
WILL CALL ON THE MONITOR END ROUTINE. THIS ROUTINE WILL RESTART 
THE PROGRAM IF THE LOOP ON PROGRAM SWITCH IS ON. IF THE PROGRAM 
IS NOT TO BE LOOPED, A MESSAGE WILL PRINT IDENTIFYING THE PROGRAM 
AS TERMINATED. IF MOT RUNNING IN OVERLAP, THE MONITOR WILL BRANCH 
TO THE LOADER TO LOAD THE NEXT PROGRAM IN THE READER (UNLESS PROGRAM 
MUST BE EXECUTEDI. 

IF A SWITCH ENTRY IS MADE REQUESTING LOADING OF A PROGRAM IN REIOAO 
MODE, THE PROGRAMS IN CORE WILL BE AUTOMATICALLY TERMINATED. IN THIS 
CASE NO END MESSAGE WILL BE PRINTED. 

3.5*** PROGRAM RESTART 

ANY PROGRAM MAY BE RESTARTED BY A FUNCTION 00 ENTRY TO THAT PROGRAM 
WITH SWITCH 8 ON. THIS CAN BE DONE AT ANY TIME WHEN THE PROGRAM 
IS RUNNING OR AFTER THE PROGRAM HAS TERMINATED. 

A RESTART REQUEST TO THE MONITOR (SWITCHES 0-7 OFF AND SWITCH 8 OH) 
WILL RESTART ALL PROGRAMS WHICH ARE IN CORE. IF ANY PROGRAM HAS 
BEEN HALTED BY SETTING ITS HALT SWITCH, IT WILL REMAIN HALTED AFTER 
THIS RESTART (UNLESS FIRST START AFTER LOAD IN WHICH CASF ALL HALT 
SWITCHES ARE RESET) . 

IF THE MONITOR SHOULD HANG UP FOR ANY REASON (FOR EXAMPLF IF CONSGLF 
INTERRUPT FAILED TO RESET), IT CAN BE RESTARTED BY PRESSING 
IMMEDIATE STOP, RESET, AND PROGRAM START IN THAT ORDER. 

3.6*** PROGRAM PATCHING 

TO FACILITATE PROGRAM CORRECTION, MODIFICATION, A NO EDITING, THE RE- 
LOCATING LOADER IS ABLE TO LOAD CARDS WHICH ARE KEYPUNCHED WITH HcX 
OATA. THESE CARDS ARE IDENTIFIED BY A 12 PUNCH IN COLUMN 1. COLUMNS 
2-5 MUST CONTAIN, IN HEX, THE CORE ADDRESS INTO WHICH THE DATA ON THE 
CARD IS TO BE STORED. THE REMAINDER OF THE CARD IS USED FOR OATA, 
WHICH IS AGAIN IN HEX. EACH DATA WORD ON THE CARD MUST BF PRECEDED 
BY EITHER A BLANK OR AN R. THE BLANK WILL CAUSE THF LOADER TO 
INTERPRET THE DATA WORD AS AN INSTRUCTION OR CONSTANT. THF R WILL 
CAUSE THE LOADER TO INTERPRET THE DATA WORD AS AN ADOPFSS WHICH MUST 
BE RELOCATED IF THE PROGRAM OF WHICH THIS PATCH IS A PART IS RE- 
LOCATED. IF NO DATA WORDS ARE INCLUDED ON THE CARO FOLLOWING THE 
THE ADDRESS, THE LOADER WILL INTERPRET THIS CARD AS A BRANCH CARD 
AND WILL BRANCH TO THE ADDRESS SPECIFIED IN COLUMNS 2-5. TWO BLANK 
COLUMNS IN A ROW WILL TERMINATE LOADING OF THE CARD. ArTER THESE TWO 
BLANKS, ANY IDENTIFYING INFORMATION MAY BE PLACED ON THF CARD. PATCH 
CARDS MUST BE PLACED JUST BEFORE THE END CARD IN THE PROGRAM TO BE 
PATCHED. 



THIS WILL LOAD THREE WORDS STARTING AT ADDRESS 0645 PLJS THF 
RELOCATION FACTOR. THE FIRST WORD WILL BE C400, THE SFCOND WHO 
WILL BE 0035. IF THIS PATCH CARD IS PLACED IN THE PROGRAM DFf< 
BEFORE THE END CARD OF THE FIRST PROGRAM LOAO, THE RELOCATION 
FACTOR WILL BE ZERO. 



♦ 0739 



BR TU 739 



THIS CARD WILL CAUSE A BRANCH TO 0739 PLUS THE RELOCATION FACTOR. 
CARDS FOLLOWING THIS CARD WILL NOT BE LOADEO UNLESS THF PR1GPAM 
AT 0739 LOADS THEM OR RETURNS TO THE LOADER. 



4. PRINTOUTS 



4.1*** STATUS MESSAGES 
AOOOO 



NUM PIO ADRS RELF LD 
XXXX XXXX XXXX XXXX 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBFR, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADFD, 
AND THE RELOCATION FACTOR. 



A0001 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTEO EACH TIME A VALID SWITCH ENTRY IS 

READ BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING 

READ TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH 

THE CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH 

ENTRY CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THF 

MESSAGE. 



4.2*** ERROR MESSAGES 
fcOOOl 



SWS INVLD 
XXXX 



THE SETTING OF SWITCHES 5-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



E0003 



E0004 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOAOING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THF FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARO IN THE OECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT C3RRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 
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5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



E0005 



OOON XXXX 

THIS ERROR WILL OCCUR IF AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. HO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



5. COMMENTS 

5.1*** INTRODUCTION TO DIAGNOSTIC MONITOR OPERATION 

5.1.1 WHAT IS THE DIAGNOSTIC MONITOR 

THE DIAGNOSTIC MONITOR IS A CONTROL PROGRAM DESIGNED TO PROVIDE 
OVERLAP CAPABILITY AND TO HANDLE MANY PROGRAM FUNCTIONS WHICH ARF 
COMMON TO ALL OF THE TEST PROGRAMS. 

THE MONITOR IS MADE UP OF THE FOLLOWING ROUTINES 

1. RELOCATING LOADER INTERFACE 

2. SUPERVISOR ROUT INE 

3. INTERRUPT ROUTINE 

4. BIT SWITCH ROUTINE 

5. LOG ROUTINE 

6. HALT ROUTINE 

7. END ROUTINE 

5.1.2 WHY IS A MONITOR NECESSARY TO ENABLE PROGRAMS TO RUN IN OVERLAP 

THE MONITOR PROVIDES THE FOLLOWING FUNCTIONS WHICH ARE NECESSARY FOR 
OVERLAP OPERATION 

1. RELOCATING LOADER - THIS LOADER ENABLES SEVERAL PROGRAMS WHICH 
ARE ASSEMBLED TO USE THE SAME CORE STORAGE LOCATIONS TO BE LOADED 
TOGETHER IN CORE. THIS IS ACCOMPLISHED BY LOADING THE FIRST PRO- 
GRAM IN THE CORE STORAGE FOR WHICH IT WAS ASSEMBLED, THEN LOADING 
THE NEXT PROGRAM STARTING AT THE FIRST AVAILABLE STORE LOCATION 
AFTER THE PREVIOUSLY LOADED PROGRAM. ALL ADDRESSES REFERENCED 

IN THE PROROGRAM MUST ALSO BE MODIFIED BY A RELOCATION FACTOR, 
WHICH IS EQUAL TO THE DIFFERENCE BETWEEN THE ADDRESS AT WHICH THF 
PROGRAM IS ACTUALLY LOADED AND THE ADDRESS AT WHICH IT WAS 
ASSEMBLED. 

2. INTERRUPT HANDLING -WHERE THERE ARE SEVERAL DEVICFS ON ONE INTER- 
RUPT LEVEL (LEVEL 4) OR WHERE TWO PROGRAMS ARE SHARING A SINGLE 
DEVICE tCONSOLE PRINTER IS USED BY ALL PROGRAMS), A CENTRAL 
INTERRUPT CONTROL IS REQUIRED TO IDENTIFY EACH INTERRUPT AND XI 
TRANSFER CONTROL TO THE APPROPRIATE INTERRUPT ROUTINE. THIS 
ROUTINE ALSO STORES THE CPU STATUS (ACCUMULATOR, EXTENSION, CARRY 
AND OVERFLOW, AND XR3 ) AND RESTORES STATUS UPON BRANCHING OUT 

OF INTERRUPT. 

3. TIME SHARING -THIS IS THE BASIC OVERLAP FUNCTION PERFORMED BY THE 



1. 



2. 



MONITOR. THIS FUNCTION IS ACCOMPLISHED BY THE MONITOR SUPERVISOR 
ROUTINE. THE SUPERVISOR CONTINUALLY CHECKS EACH PROGRAM LOADED 
f-OR A REQUEST TO RUN A ROUTINE IN THAT PROGRAM. ONCF SUCH A RE- 
QUEST IS FOUND, THE SUPERVISOR WILL BRANCH TO THAT ROUTINE. 
AFi^R THE ROUTINE IS RUN, THE TEST PROGRAM MUST BRANCH BACK TO 
THE SUPERVISOR. ALL OTHER PROGRAMS ARE THEN CHECKED BEFORE ANOTHFP 
ROUTIiJC IN THE FIRST PROGRAM CAN BE RUN. 

4. ONE INTERFACE WITH INPUT AND OUTPUT OEVICE FOR ALL PROGRAMS -EACH 
PROGRAM HA". NEED FOR CONTROL INPUT FROM THE BIT SWITCHFS AND 
MESSAGE OUTPUT TO THE CONSOLE PRINTER. SINCE ONLY ONE PROGRAM 
CAN USE THESE DEVICES AT A TIME, THE MONITOR SERVES TO DIRECT 
TRAFFIC, SENDING ANY BIT SWITCH ENTRY TO THE APPROPRIATE PROGRAM 
AND OUTPUTTING EACH PROGRAM MESSAGE IN ITS TURN. 

5.1.3 WHAT COMMON PROGRAM FUNCTIONS ARE HANDLED BY THE DIAGNOSTIC MONITOR 

MESSAGE OUTPUT - COMMUNICATION TO THE CONSOLE PRINTER IS SERIAL 
AND MUST BE IN ROTATE AND TILT CODE. ANY MESSAGE TO THE PRINTFR 
MUST, THEREFORE, FIRST BE CONVERTED, THEN TRANSFERRED TO THE 
PRINTER A CHARACTER AT A TIME. PUTTING THIS FACILITY IN THE 
MONITOR ALLOWS EACH TEST PROGRAM TO OUTPUT ITS MESSAGES BY SIMPLY 
SETTING UP A TABLE WHICH DEFINES THE MESSAGE THEN BRANCHING T3 
THE APPROPRIATE (ERROR OR STATUS) MONITOR LOG ROUTINE. 

BIT SWITCH ENTRY-TO SIMPLIFY THE USE OF BIT SWITCHES BY FACH PRO- 
GRAM, THE MONITOR ON REQUEST READS THE BIT SWITCHES AND PLACES THE 
READING IN CORE STORAGE IN THE APPROPRIATE PROGRAM. THUS THE PRO- 
GRAM HAS AT ALL TIMES THE LATEST SWITCH READING. ALSO TO INCREAS 
THE FLEXIBILITY AND THE AMOUNT OF INFORMATION THAT CAN BE CONVEYF 
BY THE BIT SWITCHES, THE SWITCHES ARE DIVIDED INTO FOUR FUNCTION"; 
THE SWITCH SETTING CORRESPONDING TO EACH FUNCTION IS SET IN A 
SEPARATE CORE POSITION IN THE PROGRAM. 

3. PRINT LOAD MESSAGE - THIS MESSAGE IS PRINTED AFTER A PROGRAM IS 
SUCCESSFULLY LOADED. IT IDENTIFIES THE PROGRAM, THE ADDRESS AT 
WHICH IT WAS LOADED ANO GIVES THE RELOCATION FACTOR FOR THAT 
PROGRAM. 

4. CONTROL PROGRAM END - WHEN A PROGRAM HAS COMPLETED ONE PASS THF 
MONITOR DETERMINES WHETHER OR NOT IT IS TO BE LOOPED. IF NOT, IT 
PRINTS AN END MESSAGE AND TERMINATES THE PROGRAM. 

5. RESTART - THE MONITOR WILL REINITIALIZE AND RESTART ANY SPECIFIFP 
PROGRAMS OR ALL PROGRAMS. A MESSAGE IS PRINTED IDENTIFYING THE 
PROGRAM RESTARTED. 

6. HALT -THE MONITOR WILL HALT EXECUTION OF ANY SPECIFIED PROGRAM OP 
ALL PROGRAMS. A MESSAGE IS PRINTED IDENTIFYING THE PROGRAM 
HALTED. 

7. ERROR CONTROL - HALT ON ERROR, LOOP ON ERROR, AND BYPASS ERROR 
PRINTOUT ARE ALL HANDLED BY THE MONITOR. 

A. HALT ON ERROR WILL HALT AFTER THE ERROR MESSAGE IS PRINTFD. 
IF HALT ON ERROR IS ON, BYPASS ERROR PRINTOUT WILL BF IGNIRFD 
THE PROGRAM WILL HALT AT A NON INTERRUPTABLE WAIT IN THF 
MONITOR. 

B. LOOP ON ERROR 
SO LONG AS THE ERROR PERSISTS. 

C. BYPASS ERROR PRINTOUTS ALLOWS THE PROGRAM TO LOOP ON AN FRRDR 
CONDITION WITHOUT PRINTING THE ERROR MESSAGE. 

8. ROUTINE NUMBER LOG - UNDER SWITCH CONTROL THE MONITOR WILL LOG 
THE ROUTINE NUMBER AND ADDRESS OF EACH TEST ROUTINE BEFORF THAT 
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ROUTINE IS RUN. 

PROGRAM STOP - THE CONSOLE PROGRAM STOP PUSHBUTTON IS SUPPORTED 
BY A MONITOR ROUTINE WHICH WILL STOP ALL PROGRAMS WITHOUT LOSING 
ANY INTERRUPTS. THIS ROUTINE ALSO SAVES THE C.P.U. STATUS AND 
PROVIDES A RE-ENTRY FROM LOCATION ZERO. THIS FEATURE ALLOWS TH C 
C.E. TO MANUALLY CHECK OR MODIFY ANY CORE LOCATION AFTER THE 
STOPt THEN CONVENIENTLY RESTART BY PRESSING RESET ANO PROGRAM 
START. 

ADDRESS STOP - THIS ROUTINE USES THE INTERRUPT RUN MOOE. IN THIS 
MODE AN INTERRUPT OCCURS AFTER EACH MAINLINE INSTRUCTION. THE 
DESIRED STOP ADDRESSt SET BY THE BIT SWITCHES, IS THEN COMPARED 
TO THE IAR ADDRESS. THE ROUTINE HALTS ALL PROGRAMS WHEN THFSF ARF 
EQUAL. 

PROGRAM OELAY - THIS ROUTINE ALSO USES THE INTERRUPT RUN MOOE. 
IN THIS MODE IT PROVIDES A MINIMUM DELAY OF 125 USECS BETWEEN 
THE EXECUTION OF EACH MAINLINE INSTRUCTION. THIS OELAY CAN BE 
INCREASED IN INCREMENTS OF 25 USECS BY BIT SWITCH CONTROL. 



5.1.4. WHAT IS THE ADVANTAGE OF HAVING THESE COMMON FUNCTIONS IN A MONITOR 

EACH PROGRAM IS SIMPLER AND IS FORCED TO FOLLOW A STANDARD ORGANI?A- 
TION. EACH PROGRAM IS BY ITSELF SHORTER - THAT IS OF GREATEST 
IMPORTANCE WHEN RUNNING IN OVERLAP SINCE IT ALLOWS MORE PROGRAMS TO 
BE LOADED IN THE SAME CORE. 

5.1.5 HOW DOES THE MONITOR CONTROL A PROGRAM 

NO TEST ROUTINES ARE RUN UNTIL A REQUEST FOR CONTROL IS MADE TO THE 
MONITOR BY THE TEST PROGRAM. THE MONITOR SUPERVISOR ROUTINE WILL THEN 
DETERMINE WHEN CONTROL IS TO BE TRANSFERRED, AND WILL TRANSFER CON- 
TROL TO THE TEST ROUTINE. AT THE END OF THE ROUTINE OR WHENEVER WAIT 
ING FOR AN INTERRUPT, THE TEST PROGRAM MUST RETURN CONTROL TO THE 
MONITOR SUPERVISOR. 

5.1.6 HOW DOES A TEST PROGRAM REQUEST CONTROL FROM THE MONITOR 
CONTROL WILL BE TRANSFERRED TO THE TEST PROGRAM IF 

1. AN INTERRUPT IS RECEIVED WHICH IS TO BE SERVICED BY THAT PROGRAM. 

2. THE MONITOR SUPERVISOR FINDS AN ADDRESS IN THE MAIN LINE SEQUENCE 
CONTROL FIELD IMLSCF) FOR THAT PROGRAM. 

THUS, BEFORE A PROGRAM GIVES UP CONTROL TO THE MONITOR, IT MUST PLACE 
IN ITS MLSCF AN ADDRESS TO WHICH THE MONITOR IS TO RETURN, OR IT "1UST 
INITIATE AN OPERATION WHICH WILL RESULT IN AN INTERRUPT. 

5.1.7 WHAT IS THE MAIN LINE SEQUENCE CONTROL FIELO (MLSCF) 

THE MLSCF IS PART OF THE PROGRAM CONTROL TABLE WHICH IS THF MAJOR 
INTERFACE BETWEEN THE MONITOR AND THE TEST PROGRAM. EACH PROGRAM 
HAS ITS OWN PROGRAM CONTROL TABLE WHICH IS LOCATED AT THE BEGINNING 
PROGRAM. IT LOOKS LIKE THIS 









* 

* 

* 

PID 

RID 

RAD 

SWO 

SW1 

SW2 

SW3 




PROGRAM 


CONTROL TABLE 








DC 
DC 
DC 
DC 
DC 
DC 
DC 


/OXXX 














PROGRAM ID 
ROUTINE ID 
ROUTINE ADDRS 
PROGRAM CONTROL 
ROUTINE SELECTION 
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PM-T v,. ?1 a 120 2 

P&r,- 7\ 



DC 


STRT 


LOOP PROGRAM ADDRESS 


DC 


STRT 


RESTART ADDRESS 


MLSCF DC 


*-* 


ENTRY ONE 


UC 


*-* 


ENTRY TWO 


DC 


/FFFF 


TERMINATOR 



THE MONITOR OBTAINS FROM THIS TAB 
ANO ROUTINE ADDRESS WHEN PRINTING 
THE RESTART ADDRESS HERE ALSO. W 
PROGRAM, THE MONITOR WILL PLACE T 
INTO ONE OF FOUR SWITCH STORAGE W 
USED WILL DEPEND ON THE SETTING 
THE MAIN LINE SEQUENCE CONTROL FI 
TABLE IS THE HEART OF THE MONITOR 
THE TEST PROGRAM AND THE MONITOR 
SUPERVISOR SEQUENTIALLY SCANS THE 
AN ADDRESS IS FOUND IN ANY MLSCF 
ADDRESS. 



LE THE PROGRAM 
ERROR AND STA 
HEN BIT SWITCH 
HE DATA IN SWI 
ORDS IN THIS T 
F SW ITCHES A 
ELD (MLSCF* AL 
CONTROL. ALL 
SUPERVISOR IS 

MLSCF OF EACH 
THE SUPERVISOP 



ID, ROUTINE NU«BE° 
TUS MESSAGES. IT FINOS 

DATA IS ENTEREO FOR & 
TCHES 8 THROUGH 15 
ABLE. THE STORAGE WORK 
Nl) 1 (FUNCTION 
SO CONTAINED IN THIS 

COMMUNICATION RFTWFfM 
THROUGH THE MLSCF. THF 

TEST PROGRAM. WHFN 

WILL TRANSFER TO THAT 



5.1.8 ONCE A TEST PROGRAM HAS OBTAINED CONTROL 
TO THE MONITOR 

TO RETURN CONTROL TO THE MONITOR SUPERVISOR, THE TEST ROUTINE MUST 
EXECUTE THE FOLLOWING INSTRUCTION. 

8SI I START 

HOWEVER, BEFORE TRANSFERRING CONTROL TO THE MONITOR A RETURN TO THF 
TEST IN THE MLSCF. 

5.1.9 HOW DOES A TEST PR3GRAM PRINT A MESSAGE 

ALL MESSAGES ARE PRINTED BY THE MONITOR LOG ROUTINE. COMMUNICATION 
WITH THIS ROUTINE IS THROUGH A CALLING SEQUENCE WHICH TRANSFERS TT 
THE LOG ROUTINE THE NECESSARY MESSAGE DATA. 

TWO TYPES OF MESSAGES ARE PRINTED, STATUS MESSAGES ANO ERROR MESSAGES 
A STATUS MESSAGE IS IDENTIFIED BY AN A AS THE FIRST CHARACTER IN THF 
MESSAGE AND IS PRINTED IN BLACK. AN ERROR MESSAGE IS IDENTIFIED BY 
AN E AND IS PRINTED IN REO. 

5.2*** ROUTINE DESCRIPTIONS 

5.2.1 THE RELOCATING LOADER 

THE DIAGNOSTIC MONITOR AND ALL TEST PROGRAMS ARE LOADED BY A RELOCAT- 
ING LOADER. TWO VERSIONS OF THIS LOADER ARE AVAILABLE-- 1442, AND 
PAPER TAPE. EACH OF THESE LOADERS IS INITIALLY LOADED IN CORE LOCA- 
TIONS 0-/160. THE RESIDENT PROTION IS IN LOCATIONS /40-/160. 

1. FORMATS 

THESE LOADERS WILL LOAD ABSOLUTE PROGRAMS, RELOCATABLE PROGRAMS-, 
OR HEX PATCH CARDS. THE MONITOR AND ALL NONOVERLAP PROGRAMS ARE 
ASSEMBLED AND LOADED IN ABSOLUTE FORMAT. ANY OVERLAP PROGRAM 
IS NOT ORG'D. AT 1500 MUST BE ASSEMBLED AND LOADED IN ABSOLUTE. 

2. RELOCATION - THE RELOCATING LOADER ASSUMES ALL PROGRAMS WHICH ARE 
TO BE RELOCATED ARE ASSEMBLED AT A STARTING ADDRESS OF 05DC (1500 
DECIMAL). THE FIRST PROGRAM LOADED WILL BE STORED, STARTING F^OM 
THIS ADDRESS. ADDITIONAL PROGRAMS LOADED WILL BE RELOCATED 
STARTING FROM THE FIRST EVEN ADDRESS AFTER THE LAST ADDRESS IN 
THE PREVIOUSLY LOADED PROGRAM. THUS THE RELOCATION FACTOR IS 
EQUAL TO THE ADORESS AT WHICH A PROGRAM IS LOADED MINUS 05DC 
(1500 DECIMAL). THIS FACTOR , TOGETHER WITH THE LOAD ADDRESS AND 
THE PROGRAM ID, IS PRINTED AFTER EACH PROGRAM IS LOADED. 
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3. CHECK SUM - ALL DATA LOADED BY THE RELOCATING LOADER IS CHECK 
SUMMEO. IF A CHECK SUM ERROR IS DETECTED AN ERROR MESSAGE WILL 
BE PRINTED AND LOADING WILL BE TERMINATED. THIS CHECK SUM TAKES 
INTO CONSIDERATION BOTH THE CORRECTNESS OF THE DATA AND THE 
SEQUENCE IN WHICH THE CARDS ARE LOADED. THUS EXTRA OR MISSING 
CAROS WILL BE DETECTEO BY THE CHECK SUM. THE CHECK WILL BE 
BYPASSED ON ANY CARD WHICH HAS A CHECK SUM OF ZERO. THE ADVANCE 
OF THE CARD COUNT WILL NOT BE BYPASSED. THUS, IF A CARD 
WITHIN A PROGRAM DECK MUST BE MODIFIED, IT WILL STILL LOAD IF 
THE CHECK SUM WORD (BITS 2-9 OF CARO COLUMN 2 AND 12-5 OF CARD 
COLUMN 3» IS MAOE EQUAL TO ZERO. IF ADDITIONAL CAROS ARE ADDED 
TO THE DECK, THESE ALSO WILL LOAD IF THEIR CHECK SUM WORD IS 
EQUAL TO ZERO. HOWEVER, SINCE THE CARD COUNT IS ADVANCED, ANY 
CARDS HAVING NON-ZERO CHECK SUMS WHICH FOLLOW CAROS ADDED TO 
THE DECK WILL NOT LOAD. THEREFORE, ANY CARDS ADDED SHOULD BE 
PLACED AT THE END OF THE DECK - JUST BEFORE THE END CARD AND THF 
CHECK SUM OF THE END CARD CHANGED TO ZERO. TO MAKE CHANGES IN 
PROGRAMS WITHOUT CONCERN FOR CHECK SUM, SEE PROGRAM PATCHING 
ISECTION 3.6). 

4. OVER CORE CHECK - IF DURING LOADING ALL OF CORE BECOMES FILLED 
BEFORE ALL PROGRAMS ARE LOADED, THE LOADING PROCESS WILL TERM- 
INATE AND A MESSAGE WILL BE PRINTED (OVER COREL 

5.2.2 SUPERVISOR ROUTINE 

1. THE SUPERVISOR SEQUENTIALLY SCANS THE MLSCF OF EACH PROGRAM - 
INCLUDING THE HONITOR. IF AN MLSCF WORD IS FOUND TO BE POSITIVF 
AND NON ZERO, THE SUPERVISOR WILL ASSUME THAT THE WORD CONTAINS 
AN ENTRY ADDRESS AND WILL EXECUTE A BRANCH TO THAT ADDRESS. THE 
ADDRESS OF THE MLSCF IS SAVED BY THE SUPERVISOR. THIS ADDRESS 

IS USED BY THE MONITOR TO IDENTIFY THE TEST PROGRAM WHEN THAT 
PROGRAM TRANSFERS BACK TO THE MONITOR WITH A LOG CALL, AN FND 
CALL, OR A RETURN TO START. 

2. ROUTINE START LOG - WHEN THE PROGRAM RETURNS CONTROL TO THE MON- 
ITOR (BSI I START), THE SUPERVISOR WILL CHECK THE ROUTINE START 
SWITCH (RTNSW). THIS SWITCH SHOULD BE SET IN THE TEST PROGRAM 
CONTROL ROUTINE BEFORE STARTING A NEW TEST ROUTINE. IF THIS 
SWITCH IS ON (NON ZERO) AND ROUTINE START LOG HAS BEEN RfcQUESTED 
(SWITCH 9 FUNCTION 0), THE SUPERVISOR WILL PRINT A MESSAGE 
IDENTIFYING THE PROGRAM, THE ROUTINE NUMBER AND THE ROUTINF START 
ADDRESS. 

3. RESTART AND HALT - ARE ALSO FUNCTIONS OF THE SUPERVISOR. THE 
HALT BIT FOR A PROGRAM IS ONE, THE SUPERVISOR WILL BYPASS SCAN- 
NING OF THE MLSCF OF THAT PROGRAM. IF THE MONITOR HALT BIT IS 
A ONE, THE SUPERVISOR WILL SCAN ONLY THE MONITOR MLSCF - THUS 
STOPPING ALL TEST PROGRAMS. 

4. EXECUTE PAUSE - THE SUPERVISOR WILL ALSO STOP PROGRAM EXECUTION 
WHEN PRINTING ANY MESSAGE OR WHEN LOADING A PROGRAM. 

5.2.3 INTERRUPT ROUTINE 

1. ALL INTERRUPTS ARE HANDLED BY THE MONITOR INTERRUPT ROUTINF. THIS 
ROUTINE SAVES THE STATUS OF THE CPU -EXCEPT INDEX REGISTERS 1 AMD 
2, TRANSFERS TO THE TEST PROGRAM INTERRUPT SERVICE ROUTINE, THEN 
RESTORES THE CPU STATUS BEFORE BRANCHING OUT OF INTERRUPT. 

2. A TRANSFER VECTOR IS USED TO SPECIFY THE ADORESS OF THE TEST PRO- 
GRAM INTERRUPT ROUTINE. THIS ADDRESS MUST BE SET IN THE TRANSFFP 
VECTOR BY THE TEST PROGRAM. 

3. INVALID INTERRUPTS ARE HANDLED BY THE INTERRUPT ERROR ROUTINE. AN 
INVALID INTERRUPT IS AN INTERRUPT FOR WHICH AN ADDRESS HAS NOT 
BEEN SET IN THE TRANSFER VECTOR. THE INTERRUPT ERROR ROUTINE WILL 
SET UP AN ERROR MESSAGE CALL AND WILL THEN TRY TO BRANCH OUT TF 



4. 



THE INTERRUPT. IF THE BRANCH OUT TURNS OFF THE INTERRUPT, AN 
ERROR MESSAGE WILL BE PRINTED WHICH IDENTIFIES THE INTERRUPT 
LEVEL ANO THE ILSW. IF THE INTERRUPT FAILS TO TURN OFF, THF PRO- 
GRAM WILL STOP AT THE INTERRUPT ERROR WAIT. PRESSING IMMEDIATE 
STOP, RESET ANO PROGRAM START IN THAT ORDER WILL RESET THE 
INTERRUPT AND ALLOW THE ERROR MESSAGE TO BE PRINTED. 

IF A VALID INTERRUPT WILL NOT RESET, THE PROGRAM WILL LOOP IN THF 
INTERRUPT ROUTINE. TO RECOVER, PRESS IMMEDIATE STOP, RESET AND 
PROGRAM START - IN THAT ORDER. 



5.2.4 BIT SWITCH ROUTINE 



1. 



2. 



THE BIT SWITCHES ARE READ IN INTERRUPT WHEN THE INTERRUPT REQJEST 
KEY IS PRESSED. UNLESS EXECUTING THE KEYBOARD TEST, THE POSITION 
OF THE CONSOLE/KEYBOARD SWITCH IS IGNORED. WHEN EXECUTING THE 
KEYBOARD TEST THE BIT SWITCH IS READ ONLY IF THE CONSOLE/KE YBflARD 
SWITCH IS IN CONSOLE POSITION. 

THE BIT SWITCH ROUTINE STORES THE CONTENTS OF SWITCHES 8 THROUGH 
15 IN THE PROGRAM CONTROL TABLE OF THE PROGRAM IDENTIFIED BY 
SWITCHES 4-7. IF SWITCHES 4-7 ARE ALL OFF, THE BIT SWITCH READING 
WILL BE STORED IN THE MONITOR CONTROL TABLE. 

THE PROGRAM IDENTIFICATION USED IN SWITCHES 4-7 IS A BINARY 
NUMBER DETERMINED BY THE ORDER IN WHICH THE PROGRAMS WFRE LOATEl). 
THE FIRST PROGRAM LOADED IS PROGRAM NO. 1 (SWITCH 7 ONLY), THE 
THIRD IS PROGRAM NO. 3 (SWITCH 6 AND 7), ETC. THUS IF ONLY 
ONE PROGRAM IS LOADED SWITCH 7 IS ALWAYS USED TO IDENTIFY THAT 
PROGRAM. 

THE HALT SWITCH (SWITCH 15 FUNCTION 0) FOR ALL PROGRAMS IS INTER- 
ROGATED BY THE BIT SWITCH ROUTINE. IF THIS SWITCH IS ON THF 
ROUTINE WILL SET THE HALT BIT FOR THE PROGRAM IDENTIFIED BY 
SWITCHES 4-7. A MESSAGE WILL BE PRINTED SPECIFYING THAT THE 
PROGRAM HAS BEEN HALTED. 

INVALID SWITCH SETTINGS ARE NOT STORED AND A MESSAGE IS PRINTED 
IDENTIFYING THE SWITCH SETTING AS INVALID. THE SWITCH SETTING f <: 
INVALID IF THERE IS NO PROGRAM IN CORE CORRESPONDING TO THE 
PROGRAM IDENTIFICATION SET IN SWITCHES 5-7. 



5.2.5 MESSAGE LOG ROUTINE 



1. 



THE LOG ROUTINE WILL PRINT EITHER STATUS MESSAGES OR FRROR 
MESSAGE DEPENDING ON THE ENTRY TO THE ROUTINE. FRROR MESSAGES 
ARE DISTINGUISHED FROM STATUS MESSAGES BY AN E IN THE MESSAGE 10 
WHILE THE STATUS MESSAGE CONTAINS AN A. ALSO THE ERROR MESSAGE 
IS PRINTED IN RED, THE STATUS MESSAGE IN BLACK. 

MESSAGE FORMET - THE MESSAGE FORMAT IS THE SAME FOR EITHER STATUS 
OR ERROR MESSAGES. 

THE FIRST THREE WORDS ARE STANDARD MESSAGE IDENTIFICATION 
WORDS WHICH ARE PLACED IN THE MESSAGE BY THE LOG ROUTINE. 

APPNN OORR AAAA 
OR 

EPPNN OORR AAAA 

WHERE - A OR E IDENTIFIES THE MESSAGE AS EITHER A STATUS OR ERRHR 
MESSAGE RESPECTIVELY. 

PP IS THE LAST TWO DIGITS OF THE PROGRAM ID NUMBER. 
THIS IDENTIFIES THE PROGRAM TO WHICH THE MFSSAGE REFERS. 

NN IS THE MESSAGE NUMBER IN THE PROGRAM IDENTIFIED 
BY PP. 



JATE 
cC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



01APR69 

571036 
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RR IS THE NUMBER OF THE ROUTINE IN THE PROGRAM 
IDENTIFIED BY PP WHICH WAS EXECUTING AT THE TIME 
CALL ON LOG WAS MAOE. 

AAAA IS THE ADDRESS IN CORE OF THE ROUTINE IDENTIFIED 
BY RR. 

NOTE - FOR MONITOR MESSAGE THE ROUTINE NUMBER AND ADDRESS 
ARE NOT PRINTED. 

3. AN ALPHA MESSAGE CAN NEXT BE PRINTED. THIS MESSAGE IS USED 
EITHER TO HEAD THE MESSAGE DATA (WHICH WILL BE PRINTED ON THE 
NEXT LINE) OR TO COMMUNICATE MACHINE STATUS AND/OR ERROR 
DESCRIPTION TO THE CE. IF OATA IS TO BE PRINTED FOLLOWING 
THE ALPHA MESSAGE A CARRIAGE RETURN AND TAB WILL BE CODED INT3 
THE MESSAGE FOLLOWING THE ALPHA. 

4. DATA IS PRINTED IN EITHER NEXIDECIMAL OR DECIMAL. IF NO ALPHA IS 
1NCLU0ED IN THE MESSAGE, THE DATA WILL BE PRINTED ON THE SAME LINE 
AS THE THREE WORDS OF MESSAGE IDENTIFICATION. IF ALPHA IS INCLUDE 
IN THE MESSAGE, THE ALPHA PHRASES WILL BE PRINTEO, THEN THE DATA 
WILL BE PRINTED DIRECTLY BELOW THE ALPHA. 

5. OECIMAL DATA WILL ALWAYS BE 5 DIGITS WHILE HEX IS 4. IF THE 
DECIMAL DATA IS NEGATIVE, A MINUS (-) WILL BE PRINTED IN FRONT OF 
THE DECIMAL WORD. 

6. MULTIPLE LINE MESSAGES WILL INCLUDE THE MESSAGE ID ON THE FIRST 
LINE ONLY. 

7. ERROR CONTROL IS PROVIDED BY THE ERROR LOG ROUTINE. HALT ON ER30R 
BYPASS ERROR PRINTOUT, OR LOOP. ON ERROR ARE ALL FUNCTIONS OF THIS 
ROUTINE. 

8. IF THE LOG ROUTINE IS BUSY, THE LOG BUSY SUBROUTINE WILL SET THE 
ADDRESS OF THE USER LOG CALL IN THE MLSCF OF THE USER PROGRAM. 
THUS THE MONITOR WILL FORCE A LOOP ON THE LOG CALL UNTIL 

THE LOG ROUTINE IS NO LONGER BUSY. 



5.2.6 END ROUTINE 



THIS ROUTINE IS ENTERED ON THE COMPLETION OF EACH COMPLETE PASS 
BY A TEST PROGRAM. THE ROUTINE WILL RESTART THE PROGRAM CAUSING 
IT TO LOOP IF THE LOOP PROGRAM SWITCH FOR THE MOPITOR OR FOR 
THE TEST PROGRAM IS ON. 

IF THE PROGRAM IS NOT LOOPED, THE MONITOR WILL PRINT AN END 
MESSAGE WHICH WILL IDENTIFY THE OPERATION OF THAT PROGRAM AS 
TERMINATED. 



5.2.7 HALT ROUTINE 



1. THE HALT ROUTINE IS ENTERED BY 

A. PRESSING THE PROGRAM STOP PUSHBUTTON ON THE 1131 CONSOLE. 

B. ADDRESS STOP WHEN THE IAR ADDRESS IS EQUAL TO THE ADDRFSS 
SET IN THE BIT SWITCHES DURING THE LAST HALT. 

2. THIS ROUTINE CYCLES THE PROGRAM DOWN, I.E., ALLOWS ALL INTERRUPTS 
TO BE SERVICED BEFORE STOPPING IN A WAIT INSTRUCTION. TO CON- 
TINUE, PRESS PROGRAM START. 

3. THE CPU STATUS IS SAVED ANYTIME A HALT OCCURS IN THE HALT ROUTINE 
THUS, AFTER A HALT, THE CE CAN GO MANUALLY TO ANY PLACE IN CORE, 
READ OR MODIFY ANY STORAGE LOCATION, THEN RETURN TO THIS ROUTINE 
AND CONTINUE. TO SIMPLIFY THIS RESTART PROCEDURE, A BRANCH EXIST 
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AT ADDRESS ZERO WHICH WILL TRANSFER TO THE HALT ROUTINE AFTER A 
HALT HAS OCCURRED. THUS, TO RESTART AFTER A HALT WHEN THE CON- 
TENTS OF IAR HAVE BEEN CHANGED, PRESS RESET, THEN PROGRAM START. 



4. ADDRESS STOP IS 
INSTRUCTION FOL 
READ THE BIT SW 
THIS TIME WILL 
STOP FEATURE US 
FOLLOWING EACH 
THE CPU MUST BE 
MODE AODRESS ST 
IAR IS EQUAL TO 
FROM THE HALT R 
SAME HALT ROUTI 
SWITCHES FOLLOW 



ALSO A FUNCTION OF THE HALT ROUTINE. THE FIRST 
LOWING THE WAIT IN THE HALT ROUTINE IS AN XIO TO 
ITCHES. ANY ADDRESS SET IN THE BIT SWITCHES AT 
BE STORED AS AN ADDRESS STOP ADDRESS. THE ADDRFSS 
ES THE INTERRUPT RUN MQOE TO PROVIDE AN INTERRUPT 
MAINLINE INSTRUCTION. THUS TO ENABLE ADDRESS STOP 

PLACED IN THE INTERRUPT RUN MOOE. WHEN IN THIS 
OP WILL CAUSE THE PROGRAM TO HALT ANY TIME THE 

THE SETTING OF THE BIT SWITCHES ON THE LAST START 
OUTINE. SINCE ADDRESS STOP ALSO HALTS IN THIS 
NE, THE NEXT STOP ADDRESS MUST BE SET IN THE 
ING EACH ADORE SS STOP. 
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****! 


It* 


***************************************************************** 


30000020 












* 




30000030 












* 


THIS ENGINEERING CHANGE REFLECTS MAJOR 


30000040 












* 


CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 


30000050 












* 


TESTS WHICH RAN WITH THE EARLIER MONITOR WILL 


30000060 












* 


NOT RUN WITH THIS MONITOR. 


30000070 












* 




30000080 












* 


DIAGNOSTIC MONITOR II WILL NOT RUN TESTS OF 


30000090 












* 


ENGINEERING LEVEL PRIOR TO EC 419643 DATED 


30000100 












* 


NOV 15,1966. 


30000110 












* 




30000120 






♦a********************************** ************ ***************** ****** 


30000130 












* 


THE FOLLOWING ADDRESSES MUST BE MAINTAINED FOR 


30000140 












* 


COMPATIBILITY WITH DIMAL- PID 0302. 


30000150 












* 




30000160 












* 


ADRS LABEL ADRS LABEL AORS LABEL 


30000170 












* 


/044A ILTO /048E ILT4 /0414 ASTOP 


30000180 












* 


/045B ILT1 /03F9 ILT5 /0410 A05 


30000190 












* 


/046C ILT2 /0280 MRSRT /0580 L0AD2 


30000200 












* 


/047D ILT3 /054F MRBSD 


30000210 












* 




30000220 












*************************************************** 


30000230 














ABS 


30000240 






0000 





0300 




DC /0300 


30000250 












********************************************* 


30000260 












*- 


— — — _ 


30000270 












* 


1130 DIAGNOSTIC MONITOR 


30000280 
30000290 
30000300 












********************************************* 












* 


MONITOR RESTART 


30000310 












********************************************* 


30000320 












* 




30000330 












* 


RESET AND START WILL FORCE ENTRY TO 


30000340 












* 


THIS ROUTINE WHICH WILL REINITIALIZE 


30000350 












* 


THE MONITOR CONTROL ANO BRANCH TO 


30000360 












* 
*- 


THE SUPERVISOR. 


30000370 
30000380 
























* 




30000390 






0000 








ORG 


30000400 






0000 





6004 




LDX 4 BR FOR RESTART 


30000410 






0001 




0003 




BSS 3 SKIP INDEX REGS 


30000420 






0004 





4C00 0280 


* 


BSC L MRSRT GO RESTART 


30000430 
30000440 












********************************************* 


30000450 












* 


INTERRUPT TRANSFER VECTORS 


30000460 












********************************************* 


30000470 












* 




30000480 






0008 








ORG 8 


30000490 






0008 




0001 


XFVC BSS 1 SPACE TOR ILTO 


30000500 






0009 





045B 




DC ILT1 


30000510 






OOOA 





046C 




DC ILT2 


30000520 






OOOB 





047D 




DC ILT3 


30000530 






OOOC 




0001 




BSS 1 SPACE FOR ILT4 


30000540 






OOOD 





03F9 




DC ILT5 


30000550 






OOOE 




0006 


* 


BSS 6 NOT USED 


30000560 

30000570 












********************************************* 


30000580 












* 


UTILITY EQUATE TABLE 


30000590 












********************************************* 


30000600 












* 




30000610 






0014 





054F 


UTLTY DC MR BSD MONITOR UTILITY CONTROL 


30000620 






0015 





0414 


ILIR DC ASTOP INTERRUPT RUN 


30000630 






0016 





0410 


AQ5A DC AQ5 A ANO Q FOR TRACE INT 


30000640 






0017 





0000 


* 


DC /OOOO NOT USED 


30000650 
30000660 












******************************************** 


30000670 












* 


INITIALIZE RESTART AND TRANSFER VEC 


30000680 












******************************************** 


30000690 
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n 



4 







* 






0018 


6004 


ORGO 


LDX 


4 


0019 


044A 


IXFVC 


DC 


ILTO 


001A 


045B 




DC 


ILT1 


001B 


046C 




DC 


ILT2 


001C 


04 70 




DC 


ILT3 


001D 


04 8E 


* 
* 


DC 


ILT4 



0160 
0160 
0161 
0162 
0163 
0164 

0165 
0166 
0167 
0168 
0169 
016A 



016B 
016C 
016D 
016E 
016F 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
017A 
017B 
017C 
0170 
017E 
017F 
0180 
0181 
0182 
0183 
0184 
0185 



01CF 
0264 
02A4 
02F8 
0426 

0000 
020D 
02F5 
023E 
0000 
0000 



04B0 
04B0 
04B0 
04 BO 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04BO 
04B0 
04B0 



********************************************* 

* MONITOR EQUATE TABLE 
********************************************* 

* 

* THIS IS A TABLE OF COMMON LABELS 

* USED BY THE TEST PROGRAMS TO REFER 

* TO DESIRED ADDRESSES IN THE MONITOR. 

* 



BEGIN 

START 

ERROR 

LOG 

END 

* 

RTNSW 

ERLCK 

LOGBY 

ADDRS 



* 
* 

* 

* 
* 
* 
* 
* 

* 

* 



ORG 

DC 

DC 

DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 



/160 
BGIN 
STRT 
ERRI 
LOGI 
ME NO 

*-* 

MSWO 

IOBSY 

MXEQ261 

/OOOO 

/OOOO 



THESE ARE CALL 
LABELS USED BY TEST 
PROGRAMS TO CALL 
MONITOR ROUTINES 



ROUTINE START SW 
LOCK ON ERROR CONTROL 
I/O BUSY SW ADDRS 



NOT USED 
NOT USED 



THE TEST PROGRAM MUST ENTER ITS 
INTERRUPT ROUTINE ADDRESS IN THE 
APPROPRIATE PLACE IN THIS TABLE 
BEFORE EXECUTING ANY XIO COMMAND 
WHICH WILL RESULT IN AN INTERRUPT. 



DATE 
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415490 
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DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
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DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



15JUN67 
420317 



ILO 



IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 
IERR 



100CT67 
4203170 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 



010CT68 
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0186 

0187 

0188 

0189 

018A 

018B 

018C 

018D 

018E 

018F 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

019A 

019B 

019C 

0190 

019E 

019F 

01A0 

01A1 

01A2 

01A3 

01A4 

01A5 

01A6 

01A7 

01A8 

01A9 

01AA 

01AB 

01AC 

01A0 

01AE 

01AF 

01B0 

01B1 

01B2 

01B3 

01B4 

01B5 

01B6 

01B7 

01B8 

01B9 

01BA 

01BB 

01BC 

01BD 

01BE 



04BO 
0480 
04B0 
0480 
04B0 
0480 
0480 
04B0 
04B0 
04B0 
04B0 
04B0 
0480 
04B0 
04B0 
04B0 
04B0 
04BO 
04B0 
04B0 
04B0 
04B0 
04BO 
04B0 
04B0 
04B0 
04BO 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
0480 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04C6 
04B0 
04B0 
04EA 
04B0 
04B0 



IL1 



IL2 



IL3 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 
IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IFRR 

IERR 

IERR 

IFRR 

IERR 

IFRR 

IERR 

IERR 

IFRR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

IERR 

MCINT 

IERR 

IERR 

MMRBS-1 

IERR 

IERR 
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IL4 

ROTY 

RQKB 

SVKB 

IL5 

* 

*********** * *** * ****** 

* PROGRAM 

********************** 

* 

THIS TABLE IS US 

TO IDENTIFY THE 

CORE AND TO PROV 

COMMUNICATION HI 



DISC SERVICE RQST 



4 

3 

2 

1 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 
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13 
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11 

10 

9 

8 

7 

6 
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1 1053 
PAPER TAPF 
CON PRINTER REQUEST 
KEYBOARD REQUEST 
KB SERVE REQUEST 
INTERRUPT LEVEL 5 
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ID TABLE 
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1627 SERVICE RQST 



FD BY THE MONITOR 
PROGRAM OR PROGRAMS 
IDE AN ADDRESS FOR 
TH THESE PROGRAMS. 



IN 



AS EACH PROGRAM IS LOADED ITS MLSCF 



30001380 

30001390 

30001400 

30001410 

30001420 

30001430 

30001440 

30001450 

30001460 

30001470 

30001480 

30001490 

30001500 

30001510 

30001520 

30001530 

30001540 

30001550 

30001560 

30001570 

30001580 

30001590 

30001600 

30001610 

30001620 

30001630 

30001640 

30001650 

30001660 

30001670 

30001680 

30001690 

30001700 

30001710 

30001720 

30001730 

30001740 

30001750 

30001760 

30001770 

30001780 

30001790 

30001800 

30001810 

30001820 

30001830 

30001840 

30001850 

30001860 

30001870 

30001880 

30001890 

30001900 

30001910 

30001920 

30001930 

30001940 

30001950 

30001960 

30001970 

30001980 

30001990 

30002000 

30002010 

30002020 

30002030 

30002040 

30002050 



ADDRESS IS PLACED IN THIS TABLE AT THE 
POSITION WHICH CORRESPONDS WITH 
THE OROER IN WHICH IT WAS LOADED. 



01BF 

OICO 

01C1 

01C2 

01C3 

01C4 

01C5 

01C6 

01C7 

01C8 

01C9 

01CA 

01CB 

OIjCC 

oicn o 
oice o 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0213 



01CF 0000 

01D0 7401 050D 

01D2 C08A 

01D3 D400 0511 

01D5 C480 01CF 
01D7 D400 050F 
01D9 D003 
01DA 802E 
01DB D026 

01DC 6500 0000 
01DE C100 
01DF 0400 050E 
01EI 6780 050D 
01E3 620F 
01E4 C020 
01E5 1B00 
01E6 DO ID 
01E7 1240 
01E8 C019 
01E9 D600 01BF 

01EB OCOO 0552 
01ED C400 050C 
OlEF 100F 
01F0 180F 



MPIDT 

* 

* 

***** 

* 

***** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
* 
* 

* 

* 
BGIN 



DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
MLSCF 



OF 
OE 
OD 
OC 
OB 
OA 
09 
08 
07 
06 
05 
04 
03 
02 
01 
00 



*********************** ***************** 

BEGIN ROUTINE 
*************** ************************* 

THIS ROUTINE IS FNTEREO BY ALL 
PROGRAMS FOLLOWING PROGRAM LOAD. 
THE ROUTINE WILL SET THE MLSCF 
ADDRESS OF THE PROGRAM IN THE 
PROGRAM ID TABLE, GO 
INITIALIZE THE PROGRAM, TYPE 
OUT A MESSAGE IDENTIFYING THE 
PROGRAM LOADED, AND START THE 
PROGRAM IF LOAO AND GO. 

CALLING SEQUENCE 
BSI I BEGIN 
DC ADDRESS OF PROGRAM CONTROL TABLE 



DC *-* 

MOX L PGMN.l 
LD RELF 

STO L MTABLG5 



* 
BGIN1 



LD 

STO 

STO 

A 

STO 

LDX 

LD 

STO 

LDX 

LDX 

LO 

SRA 

STO 

SLCA 

LD 

STO 

XIO 
LD 
SLA 
SRA 



I BGIN 

L MTABLS3 
BGINU1 
K0009 
TEMPB 

*-* 



MTABLC2 



LI 
1 
L 
13 PGMN 

2 15 
K8000 

3 
XLECT 

2 

TEMPB 
L2 MPIDT-15 

L RDBS 
L MTABL 

15 

15 



LOAD THE RELOCATION 
FACTOR AND SET IN MSG 

LD ADDR OF PCT 
STORE IN MESSAGE 

CALCULATE MLSCF AORS 
SAVE MLSCF ADDRS 

XR1#PCT ADDRS 

LD PID 

SET PID IN MESSAGE 

XR3#PRGM NO. 



STO MLSCF ADDRS 
READ BIT SWS 



30002060 

30002070 

30002080 

30002090 

30002100 

30002110 

30002120 

30002130 

30002140 

30002150 

30002160 

30002170 

30002180 

30002190 

30002200 

30002210 

30002220 

30002230 

30002240 

30002250 

30002260 

30002270 

30002280 

30002290 

30002300 

30002310 

30002320 

30002330 

30002340 

30002350 

30002360 

30002370 

30002380 

30002390 

30002400 

30002410 

30002420 

30002430 

30002440 

30002450 

30002460 

30002470 

30002480 

30002490 

30002500 

30002510 

30002520 

30002530 

30002540 

30002550 

30002560 

30002570 

30002580 

30002590 

30002600 

30002610 

30002620 

30002630 

30002640 

30002650 

30002660 

30002670 

30002680 

30002690 

30002700 

30002710 

30002720 

30002730 



~1 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



100CT67 
42031 7D 



010CT68 
571005 



10JAN69 
571021 



25JUL69 
571053 



PROG ID 

PAGE 



0300-2 

2 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



100CT67 
42031 7D 



010CT68 
571005 



10JAN69 
571021 



25JUL69 
571053 



PROG ID 
PAGE 



0300-2 
2A 
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01F1 E814 
01F2 D103 



01F3 C010 
01F4 73FF 
01F5 E80D 
01F6 DOOC 



OR 




K0080 


STO 


1 


3 


LO 




XLECT 


MDX 


3 


-1 


OR 




SELCT 


STO 




SELCT 



SKIP IF NOT OVFRLAP 
STORE SELECT CONTROL 



THIS SUBROUTINE WILL LOG THE LOAD 
MESSAGE. 



01F7 622E 
01F8 6300 
01F9 C806 
01FA 4400 04F3 

01FC 6700 017A 
01FE 6078 



LDX 
LDX 
LDD 
BSI 

LDX 

LDX 



/002E 


MMESO 
MLOG 



L3 ILO 
LOADR 



SET WORD CONTROL 
SET MSG ID 
LD ALPHA ADDRS 
GO LOG MESSAGE 



LOAD NEXT PRGM 



0200 




0000 


0200 





05B9 


0201 





059F 


0202 





0000 


0203 





0000 


0204 





0000 


0205 





8000 


0206 





0080 


0207 





007F 



BSS 
MMESO OC 

DC 
TEMPB DC 
SELCT DC 
XLECT DC 
K8000 DC 
K0080 DC 
K007F DC 
* 

********************************************* 
* MONITOR CONTROL TABLE 

********************************************* 
* 



FIVE ZEROS USED AS MSG 





ADRLD 

ALD 

*-* 

*-* 

*-* 

/8000 

/0080 

/007F 



0208 




0000 




BSS 1 


E 


0208 





0000 


ZEROS 


DC 


0000 


0209 





0009 


K0009 


DC 


/0009 


020A 





0000 


MP ID 


DC 


0000 


020B 





0000 




DC 


0000 


020C 





0000 




DC 


0000 


020D 





0000 


MSWO 


DC 


*-* 


020E 





0000 


MSW1 


DC 


*-* 


020F 





0000 


MSW2 


DC 


*-* 


0210 





0000 


MSW3 


DC 


*-* 


0211 





0000 




DC 


0000 


0212 





0000 


* 
MLSCF 


DC 


0000 


0213 





0000 


DC 


*-* 


0214 





0000 


TYPI 


DC 


*-* 


0215 





0000 


ERBY 


DC 


*-* 


0216 





0000 


MMBSY 


DC 


*-* 


0217 





0000 


IERM 


DC 


*-* 


0218 





FFFF 


TERMX 


DC 


/FFFF 



PID 



SWITCH FUNCTION 



READ BIT SWS 

TYPE INTERRUPT 

ERROR BUSY 

MONITOR MESSAGE BUSY 

INTERRUPT ERROR MESSAGE 



* 
******************************************** 

* MONITOR INITIALIZATION 

******************************************** 

* 

SET RESTART FROM ZERO 
AND INTERRUPT TRANSFER 
VECTOR ADDRS IN LOW CORE 



0219 6305 


INLIZ 


LDX 


3 5 


021A C318 




LD 


3 IXFVC-1 


021B D307 




STO 


3 XFVC-l 


021C 73FF 




MDX 


3 -1 


021D 70FC 




MDX 


INLIZCl 


021E C318 




LD 


3 ORGO 


021F D300 


* 


STO 


3 



PART NO. 2191200 
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30002740 i 

30002750 

30002760 ' 

30002770 

30002780 

30002790 

30002800 

30002810 

30002820 

30002830 

30002840 

30002850 

30002860 

30002870 

30002880 

30002890 

30002900 

30002910 

30002920 

30002930 

30002940 

30002950 

30002960 

30002970 

30002980 

30002990 

30003000 

30003010 

30003020 

30003030 

30003040 

30003050. 

30003060 

30003070 

30003080 

30003090 

30003100 

30003110 

30003120 

30003130 

30003140 

30003150 

30003160 

30003170 

30003180 

30003190 

30003200 

30003210 

30003220 

30003230 

30003240 

30003250 

30003260 

30003270 

30003280 

30003290 

30003300 

30003310 

30003320 

30003330 

30003340 

30003350 

30003360 

30003370 

30003380 

30003390 

30003400 

30003410 



DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


EC NO. 


415490 


419643 


420317 


42031 7D 


571005 


571021 


571053 
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PAGE 
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********************************************* 


30003420 














* 




SUPERVISOR 


ROUTINE 


30003430 














********************************************* 


30003440 














* 








30003450 














* 


THIS 


ROUTINE POLLS 


ALL SELECTED 


30003460 














* 


PROGRAMS LOOKING FOR AN ENTRY IN THE 


30003470 














* 


MLSCF TABLE OF EACH PROGRAM. IF AN 


30003480 














* 


ENTRY IS FOUND THIS ROUTINE WILL 


30003490 














* 


BRANCH TO THE ADDRESS SPECIFIED BY 


30003500 














* 


THE 1 


ENTRY. ONLY THE FIRST NON ZERO 


30003510 














* 


ENTRY IN EACH MLSCF IS EXECUTED. UPON 


30003520 














* 


RETURN FROM ANY PROGRAM THE SUPERVISOR 


30003530 














* 


WILL 


POLL ALL OTHER PROGRAMS BEFORE 


30003540 














* 


EXECUTING ANOTHER 1 


ROUTINE IN 


30003550 














* 


THAT 


PROGRAM. 




30003560 
30003570 
30003580 














* 




CALLING SEQUENCE 














* 


BSI 


I START 




30003590 






















30003600 
30003610 














* 












0220 





COEC 




MXEQ 


LO 


MSWO 




30003620 






0221 





D05B 






STO 


MSWOX 




30003630 






0222 





E0E4 






AND 


K007F 




30003640 






0223 





7400 


027B 




MDX 


L STRSW 


SKIP IF NOT START 


30003650 






0225 





D0E7 




* 


STO 


MSWO 




30003660 
30003670 






0226 





10A0 






SLT 


32 




30003680 






0227 





D400 


0165 




STO 


L RTNSW 


RESET RTN START SW 


30003690 






0229 





D051 




* 


STO 


STRSW 


RESET START SW 


30003700 
30003710 






022A 





ocoo 


03D0 




XIO 


L LOGT 


SENSE CONSOLE DSW 


30003720 






022C 





1002 






SLA 


2 


CK FOR INTRPT 


30003730 






022D 





4428 


04C6 


* 


BSI 


L MCINT.ZE 


BR IF RESPONSE BIT ON 


30003740 
30003750 






022F 





6110 






LDX 


1 16 




30003760 






0230 





C0D2 






LD 


SELCT 




30003770 






0231 





E8D3 






OR 


K8000 


DO NOT HALT MONITOR 


30003780 






0232 





D0D1 




* 


STO 


XLECT 




30003790 
30003800 






0233 





CODO 




MXF01 


LD 


XLECT 




30003810 






0234 





1140 






SLCA 


1 




30003820 






0235 





FOCF 






EOR 


K8000 




30003830 






0236 





DOCD 






STO 


XLECT 




30003840 






0237 


o- 


C500 


01BE 




LD 


LI MPIDT-16 


LD MLSCF ADDRESS 


30003850 






0239 





0004 






STO 


MXEQ2E1 




30003860 






023A 





4C02 


0230 




BSC 


L MXEQ2.C 




30003870 






023C 





70E3 




* 


MDX 


MXEQ 




30003880 
30003890 






023D 





6600 


0213 


MXEQ2 


LDX 


L2 MLSCF 


XR2#ADDRS OF MLSCF 


30003900 






023F 





6932 




* 


STX 


1 MXEQ7E1 


SAVE XRl 


30003910 
30003920 






0240 





C2F7 






LD 


2 -9 


LD PID 


30003930 






0241 





4C18 


0258 


* 


BSC 


L MXEQ5.6- 


BR IF MONITOR 


30003940 
30003950 






0243 





C2FA 






LD 


2 -6 


NOT MONITOR- LO SWO 


30003960 






0244 





E838 






OR 


MSWOX 


COMBINE WITH MON SWO 


30003970 






0245 





4804 






BSC 


E 


SKIP IF NOT HALT 


30003980 






0246 





1810 






SRA 


16 




30003990 






0247 





E835 






OR 


MSWOX 


COMBINE WITH MON SWO 


30004000 






0248 





18D8 






RTE 


24 


CK START BIT 


30004010 






0249 





4C10 


0254 


* 


BSC 


L MXEQ4,- 


BR IF NOT START 


30004020 
30004030 






024B 





682F 






STX 


STRSW 


SET START SW 


30004040 






024C 





2000 






LDS 







30004050 






024D 





C2FA 






LD 


2 -6 




30004060 






024E 





E025 






AND 


K007E 


RESET RESTART 


30004070 






024F 





D2FA 






STO 


2 -6 




30004080 






0250 





C024 






LD 


SMSGA 


SET TO PRINT RESTART MSG 


30004090 




DATE 


02JAN66 15N0V66 


15JUN67 


100CT67 010CT68 10JAN69 25JUL69 


PROG ID 


0300-2 


EC NO. 


415490 419643 


420317 


42031 70 571005 571021 571053 
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DATE 
EC NO. 



0251 D200 

0252 7201 

0253 7004 

0254 C2FA 

0255 E8B7 

0256 4C04 0271 



0258 
0259 
025A 



C200 
0008 
4C18 0252 



025C FORB 
0250 O 4C18 0271 
025F 1810 

0260 0200 

0261 4C02 0000 
0263 70EE 



0264 

0265 

0267 

0268 

0269 
026A 



0000 

6680 023E 
C0A5 
EAFA 
1009 
7400 0165 



026C 4810 
026D 7003 






026E 
0270 



4400 02F8 
0208 



0271 6500 0000 
0273 70BF 



0274 





007E 


0275 





0293 


0276 





0000 


0277 





8001 


0278 





05AD 


0279 





0000 


027A 





0000 


027B 





0000 


027C 





0001 


027D 





0000 


027E 




0002 



0280 C400 0412 
0282 4C20 040B 

0284 C092 

0285 4CA0 04BO 



0287 D06D 

0288 D06B 

0289 6700 0414 



02JAN66 
415490 



15N0V66 
419643 



STO 
MXEQ3 MDX 

MDX 
* 

MXEQ4 LD 
OR 
BSC 

* 

MXEQ5 LD 
STO 
BSC 
EOR 
BSC 
SRA 
STO 
BSC 
MOX 

DC 

LDX 

LD 

OR 

SLA 

MDX 

BSC 

MDX 

BSI 

DC 

* 

* 

MXEQ7 LDX 
MDX 

K007E 
SMSGA 



MXEQ6 

* 
STRT 



: o 
' i 

MXFQ5 

-6 

MS WO 

MXEQ7,E 



MXEQ6CI 

MXE03.S- 

TERMX 

MXFQ7,6- 

16 



*-*,C 

MXE03 



*-* 
12 MXEQ2E1 

MSWO 
2 -6 

9 
L RTNSW 

MXFQ7 
L LOGI 
ZEROS 



SET MLSCF ENTRY 



IF NOT MONITOR- LD SWO 
COMBINE WITH MON SWO 
BR IF HALT SW ON 

LD MLSCF ENTRY 
SET UP FOR EXIT 
BR IF ZERO 

BR IF TERMINATOR 
ZERO MLSCF ENTRY 



LI 



*-* 
MXE01 



EXIT TO USER 



SUPERVISOR ENTRY 



COMBINE WITH USER SWO 
CK RTN START LOG SW 
CK RTN START SW 

BR IF NOT ROTH 
LOG RTN START MSG 



RESET XR1 TO SELECT CNTRL 



DC /007E 

DC SMSG 

DC /OOOO 

DC /8001 

DC ASTRT 

DC /OOOO 

STPID DC *-* 

STRSW DC *-* 

K0001 DC /0001 

MSWOX DC *-* 

BSS 2 WARNING 

* 

********************************„, ^^^^ 

* MONITOR RESTART 
**************** ******************** A *,m, + <( 

* J^!Jr B ?° UTINE RESTA «TS THE MONITOR. IF THE 
RESTART IS FROM PROGRAM HALT THE SUBROUTINE WILL 
BRANCH TO GO. IF THE RESTART IS FROM THE INVALID 

NDIRFrToN^ ™ E SUBR0UT 'NE »I«-L BRANCH 
INDIRECT ON THE INTERRUPT ENTRY. IF NONE OF THE 

nc°»,, T ofJ UBR0, ' TINE WIU "NTINUE EXECUTION 
OF ALL PROGRAMS NOT HALTED. 



CHANGE TO 007F 

CAN BE USED FOR EVEN K 

START SW 
DON'T REMOVE USED FOR DIMAL 



* 
* 
* 
* 
* 
* 
* 
* 
* 
MRSRT LD 

BSC 
* 

LD 
BSC 

* 
* 



STPSW 
GO,Z 

IERM 
IERR.Z 



STO IOBSY 
STO ERC 
LDX L3 ASTOP 



KEEP MRSRT AT /0280 
RESTART FROM HALT 
IF YES BR TO GO 

CK FOR RESTART FROM 
INVALID INTRPT TRAP 



RESET IOBSY 
RESET ERROR CALL 



15JUN67 
420317 



100CT67 
42031 7D 



010CT68 
571005 



10JAN69 
571021 



25JUL69 
571053 



30004100 

30004110 

30004120 

30004130 

30004140 

30004150 

30004160 

30004170 

30004180 

30004190 

30004200 

30004210 

30004220 

30004230 

300042'40 

30004250 

30004260 

30004270 

30004280 

30004290 

30004300 

30004310 

30004320 

30004330 

30004340 

30004350 

30004360 

30004370 

30004380 

30004390 

30004400 

30004410 

30004420 

30004430 

30004440 

30004450 

30004460 

30004470 

30004480 

30004490 

30004500 

30004510 

30004520 

30004530 

30004540 

30004550 

30004560 

30004570 

30004580 

30004590 

30004600 

30004610 

30004620 

30004630 

30004640 

30004650 

30004660 

30004670 

30004680 

30004690 

30004700 

30004710 

30004720 

30004730 

30004740 

30004750 

30004760 

30004770 



PROG ID 
PAGE 



0300-2) 
4 



DATE 
EC NO. 



0288 6F00 0015 

028D 6700 04EA 

028F 6F00 01BC 

0291 4C00 0219 



0293 





7400 02F5 


0295 





700B 


0296 





CODD 


0297 





ECOO 027C 


0299 





DODA 


029A 





C2F7 


029B 





DODE 


029C 





405B 


0290 





0275 


029E 





CIFF 


029F 





D100 


02A0 





70D0 


02A1 





C003 


02A2 





D200 


02A3 





70CD 



02A4 OOOO 
02A5 6580 023E 
02A7 6600 0214 
02A9 6780 02A4 
02AB C048 
02AC 4C20 02EB 
02AE 6B45 



02AF 6B43 
02B0 C1FA 
EAF9 





02BI 
02B2 



1881 

02B3 4C04 02B8 
02B5 1881 
02B6 4C04 02C1 



STX L3 ILIR INITIALIZE FOR ADRS STOP 

LDX L3 MMRBS-1 

STX L3 RQKB RESTORE RQKB 

^ BSC L INLIZ CONTINUE EXECTION 

* 

*^ COME TO HERE TO PRINT START MESSAGE 
* 

SMSG MDX L IOBSY, CK I/O BUSY SW 
MDX SMSG1 BR IF BUSY 

LD K007E 
OR L K0001 

STO K007E 
LD 2 -9 LD PID 

STO STPID STO IN MSG 

BSI LOGI PRINT START MSG 

DC SMSGA 
* 

LD 1 "I LOAD RESTART ADDRS 

ST0 1 SET IN MLSCF 

MDX MXE07 

* 

SMSG1 LD SMSGA SET TO TRY AGAIN IF 

ST0 2 ° PRINTOUT RTN IS BUSY 

MOX MXEQ7 

* 

* ♦♦♦i***************************,^^^^,,^ 

* ERROR LOG ROUTINE 
********************************„*,„, ,mm*^ 

* THIS ROUTINE LOGS ERROR MESSAGES AND 

* CHECKS SWITCHES FOR BYPASS ERROR LOG, 

* HALT ON ERROR ANO LOOP ON ERROR. 

* AFTER RECEIVING AN ERROR LOG CALL, 

* NORMAL PROGRAM POLLING IS INHIBITED 

* UNTIL ERROR MESSAGE IS TYPED. 

* CALLING SEQUENCE 

* BSI I ERROR 

* DC ADDRS OF MESSAGE 

* DC LOOP ADDRS - NO LOOP IF ZERO 

* MESSAGE FORMAT 

* DC MESSAGE NUMBER 

* DC HEX/DECIMAL SWITCH 

* DC DATA WORD ID 

* DC ALPHA ADDRS 1 

* DC ALPHA ADDRS 2 

*_ TO 15 MODIFIERS 

* 

ERRI DC *-* 

LDX II MXEQ261 XR1#MLSCF ADDRS 

LDX L2 TYPI 

LDX 13 ERRI X3#CALL SEQ ADDR 

LD ER C CK FOR ERROR BUSY 

BSC L BUSY,Z BUSY RETURN 

STX 3 ERC SAVE CALL SEQ ADDR 

AND SET ERC BUSY 

STX 3 FRSW SET ERSW 

LD 1 -6 LD FUNC SWS 

OR 2 MSWO-TYPI OR WITH MON SWS 

SRT 1 CHECK FOR HALT ON ERR 

BSC L ERRI1.E BR IF HALT ON ERROR 

f RT l CK BYPASS ERR MESS 

BSC L RSTXS2.E BR IF BYPASS ERR MESS 



02JAN66 
415490 



1 5N0V66 
419643 



15JUN67 
420317 



100CT67 
42031 7D 



010CT68 
571005 



10JAN69 
571021 



25JUL69 
571053 



30004780 

30004790 

30004800 

30004810 

30004820 

30004830 

30004840 

30004850 

30004860 

30004870 

30004880 

30004890 

30004900 

30004910 

30004920 

30004930 

30004940 

30004950 

30004960 

30004970 

30004980 

30004990 

30005000 

30005010 

30005020 

30005030 

30005040 

30005050 

30005060 

30005070 

30005080 

30005090 

30005100 

30005110 

30005120 

30005130 

30005140 

30005150 

30005160 

30005170 

30005180 

30005190 

30005200 

30005210 

30005220 

30005230 

30005240 

30005250 

30005260 

30005270 

30005280 

30005290 

30005300 

30005310 

30005320 

30005330 

30005340 

30005350 

30005360 

30005370 

30005380 

30005390 

30005400 

30005410 

30005420 

30005430 

30005440 

30005450 



PROG ID 
PAGE 



"> 



0300-2 
4A 
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2191200 
5A 









* 










30005460 


02F0 





0000 




PIDWS 


dc 




*-* 


MID STORAGE 


30006140 






02B8 7048 




ERRU 
* 


MOX 




ELOG 


GO TO LOG RTN 


30005470 
30005480 
30005490 


02F1 
02F2 






0000 
0000 






DC 
DC 




*-* 

*-* 


ROUTINE STORE 
RTN ADDRS STORE 
ERROR SW 


30006150 
30006160 
30006170 




















02F3 





0000 




CRSW 


DC 




*— * 










* 


LOG 


FINISHED - RESTORE AND RETURN 


30005500 


02F4 





0000 




ERC 


DC 




*-* 


ERROR CALL SW 


30006180 










* 


TO USER 


• 




30005510 
30005520 


02F5 





0000 




IOBSY 


DC 




*-* 


I/O BUFR BUSY SW 
CARRIER RETURN 


30006190 




















02F6 





8100 




CR 


DC 




/8 100 


30006200 










* 










30005530 


02F7 





0000 




LINE 


DC 




*-* 




30006210 






02B9 10A0 




LOGR 


SLT 




32 




30005540 










* 










30006220 






02BA D03A 






STO 




IOBSY 


RESET IOBSY 


30005550 { 










******************#»************»»*********** 


30006230 






02BB D400 


0204 




STO 


L 


XLECT 


RESET SUP SCAN CONTROL 


30005560 










* 






LOG ROUTINE 


30006240 






02BD 6780 


030B 




LDX 


13 


L0G5S1 


SET XR3 TO CALL ADDR 


30005570 










*«,»**********************************»**»**** 


30006250 






02BF 6500 


0000 


RSTX 


LDX 


LI 


*-* 


XUKMLSCF ADRS 


30005580 










* 


THIS 


ROUTINE LOGS MONITOR AND TEST 


30006260 






02C1 6000 


023E 




STX 


LI 


MXEQ2S1 




30005590 










* 


PROGRAM 


MESSAGES TO THE CONSOLE 


30006270 






02C3 C02F 






LD 




ERSW 




30005600 










* 


TYPEWRITFR. CONTROL IS RETURNED TO THF 


30006280 






02C4 4F18 


0001 




BSC 


L3 


l,t- 


RETURN IF NOT ERR 


30005610 










* 


CALLING 


PROGRAM 


WHEN LOG IS COMPLETED. 


30006290 










* 










30005620 I 




















30006300 




















02C6 1810 




ERRI2 


SRA 




16 




30005630 










* 






CALLING 


SEQUENCE 


30006310 






02C7 D02B 






STO 




ERSW 


RESET ERROR 


30005640 










* 


BSI 


I 


LOG 




30006320 






02C8 002B 






STO 




ERC 


SWITCHES 


30005650 










* 


DC 




ADDRS OF MESSAGE 


30006330 










* 










30005660 










* 










30006340 






02C9 C02D 






LD 




LINF 


BYPASS SW CK AFTER 1ST 


30005670 










* 






MESSAGE 


FORMAT 


30006350 






02CA 4F28 


0002 




BSC 


L3 


2,Z£ 


LINE OF MESSAGE 


30005680 










* 


DC 




MESSAGE 


NUMBER 


30006360 










* 










30005690 










* 


DC 




HEX/DECIMAL SWITCH 


30006370 






02CC C1FA 






LD 


1 


-6 


LD FUNC SWS 


30005700 










* 


DC 




DATA WORD ID 


30006380 






02CD EAF9 






OR 


2 


MSWO-TYPI 


OR WITH MON SWS 


30005710 










* 


DC 




ALPHA ADDRS 1 


30006390 






02CE 1801 






SRA 




1 


CHECK FOR HALT ON ERR 


30005720 










* 


DC 




ALPHA ADDRS 2 


30006400 






02CF 4C04 


0209 


* 


BSC 


L 


HALT.E 




30005730 
30005740 
30005750 










* 






TO 15 


MODIFIERS 


30006410 
30006420 
30006430 






02D1 100D 




ERRI3 


SLA 




13 


CHECK FOR LOOP 










* 














02D2 4F10 


0002 




BSC 


L3 


2,- 


ON ERROR 


30005760 


02F8 





0000 




LOGI 


DC 




*-* 




30006440 










* 










30005770 


02F9 





6580 


023F 




LDX 


11 


MXEQ2E1 


XR1#MLSCF ADDRS 


30006450 






02D4 C301 






LD 


3 


1 


LOOP UNLESS 


30005780 


02FB 





6780 


02F8 




LDX 


13 


LOGI 


XR3# CALL SEQ ADDRS 


30006460 






02D5 4F08 


0002 




BSC 


L3 


2,E 


LOOP ADDRS ZERO 


30005790 


02F0 





C0F7 






LD 




IOBSY 


CHECK IF I/O 


30006470 






02D7 4F80 


0001 


* 


BSC 


13 


1 


LOOP 


30005800 
30005810 


02FE 
0300 






4C20 
D0F2 


02EB 




BSC 
STO 


L 


BUSY.Z 
ERSW 


BUFFER BUSY 
RESET ERROR SW 


30006480 
30006490 






0209 3002 




HALT 


WAIT 




2 


HALT ON ERROR 


30005820 










* 










30006500 






020A 70FE 






MDX 




HALT 




30005830 


0301 





C9F7 




ELOG 


LDD 


1 


-9 


LOAD ANO STORE PIO 


30006510 






02DB 70F5 






MDX 




ERRI3 




30005840 
30005850 


0302 
0303 






08ED 
C1F9 






STD 

LD 


1 


PIDWS 
-7 


AND ROUTINE NUMBER 
LO RTN ADDRS 


30006520 
30006530 
























* 


ERROR BUSY SUBROUTINE 


30005860 
30005870 


0304 





DOED 






STO 




PI0WSC2 


STORE RTN ADDRS 


30006540 




























* 










30006550 










* 










30005880 


0305 





7400 


02F5 


L0G4 


MOX 


L 


IOBSY, 


ERROR LOG CHECK 


30006560 






02DC 1810 




ERRI7 


SRA 




16 




30005890 


0307 





70D4 






MDX 




ERR I 7 


FOR BUSY- IF BUSY 


30006570 






02DD D015 






STO 




ERSW 


RESET ERR SW 


30005900 










* 








RETURN TO ERROR RTN 


30006580 






020E 6700 


02E5 




LDX 


L3 


ERRI8 


SET REENTRY 


30005910 


0308 





69B7 






STX 


1 


RSTXei 


SAVE XR1 


30006590 






02E0 6F00 


0215 




STX 


L3 


ERBY 


IN MLSCF 


30005920 


0309 





6B01 






STX 


3 


L0G5G1 




30006600 






02E2 6903 






STX 


1 


ERRI8E1 




30005930 


030A 





6780 


0000 


L0G5 


LDX 


13 


*-* 


XR3* MESSAGE ADDRS 


30006610 






02E3 4C00 


0271 


* 


BSC 


L 


MXEQ7 


GO TO SUPERVISOR 


30005940 
30005950 


030C 
030D 






C300 
1888 






LD 
SRT 


3 



8 


FETCH MESSAGE ID 


30006620 
30006630 






02E5 6500 


0000 


FRRI8 


IDX 


LI 


*-* 


RESTORF XR1 


30005960 


030F 





COEl 






LD 




PIDWS 


OR MID WITH PID 


30006640 






02F7 6780 


02F4 




LDX 


13 


ERC 


RESTORE XR3 


30005970 


030F 





1088 






SLT 




8 




30006650 






02E9 6B09 






STX 


3 


ERSW 


AND RESET ER SW 


30005980 


0310 





DODF 






STO 




PIDWS 


STO TOTAL MESS ID 


30006660 






02EA 701A 






MOX 




L0G4 


GO TO LOG AGAIN 


30005990 










* 










30006670 










* 










30006000 


0311 





6500 


03DA 




LDX 


LI 


TABL 


XR1# CONVERSION 


30006680 










* 










30006010 
30006020 


0313 





62B2 




* 


LDX 


2 


-78 


TABLE ADDRESS 


30006690 
30006700 
























* 

* 


LOG 


BUSY SUBROUTINE 


30006030 
30006040 


0314 





CUO 






LD 


I 


16 


LD SPACE 


30006710 




















0315 





D277 




L0G7 


STO 


2 


MES0S79 


SET I/O BUFFER TO 


30006720 






02EB 73FE 




BUSY 


MDX 


3 


-2 




30006050 


0316 





7201 






MDX 


2 


1 


SPACES 


30006730 






02EC 6F00 


0216 




STX 


L3 


MMBSY 


STORE BUSY RETURN 


30006060 


0317 





70F0 






MOX 




L0G7 




30006740 






02EE 4C00 


0220 




BSC 


L 


MXEO 


GO TO SUPERVISOR 


30006070 










* 










30006750 










* 










30006080 
30006090 


0318 
0319 






6229 
CODC 






LDX 
LO 


2 


MES0G1 
CR 


XR2#I/0 BUFF ADDRS 

SET CARRIER RETURN IN OUT 


30006760 
30006770 
























* 


CONSTANTS FOR ERROR AND LOG 


30006100 
30006110 


031A 
031B 






D2FF 
C115 






STO 

LD 


2 

1 


-1 
21 


LD SHRD CODE 


30006780 
30006790 
























# 










30006120 


031C 





7400 


02F3 




MDX 


L 


ERSW.O 


SKIP IF NOT ERROR 


30006800 






02F0 0000 






BSS 


F 







30006130 


031E 





C114 






LO 


1 


20 


LD SHRD CODE 


30006810 




DATE 


02JAN66 15N0V66 


15JUN67 


100CT67 010CT68 10JAN69 25JUL69 


PROG ID 0300-2 < 


DATE 02JAN66 15N0V66 


15JUN67 


100CT67 010CT68 10JAN69 25JUL69 


PROG ID 


0300-2 


EC NO. 


415490 419643 


420317 


420317D 571005 571021 571053 
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420317 


42031 7D 571005 571021 571053 
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PART NO. 
PAGE 



2191200 
6A 



031F D200 



0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 



C301 
18D0 
C302 
0OD3 
1001 
1801 
0918 
4C02 0334 



0329 
032 A 
032B 



0330 
0331 
0332 
0333 



C0C6 

18D0 

407A 
032C C0C4 
032D 4C08 0334 
032F 18D0 

4075 

COCO 

18D0 

4072 



0334 
0335 
0336 
0337 
0338 
033A 
033B 
033D 
033E 
0340 
0341 
0343 
0344 

0345 
0346 
0347 
0348 
0349 
34B 
034C 
034D 
034E 
034F 
0350 



C112 

D200 

C303 

D05B 

4420 0393 

■C304 

4420 0393 

C055 

4C18 0345 

C11A 

7400 03F2 

D200 

7201 

7314 

6B08 

63F1 

C918 

4C04 0351 

C918 

18C1 

D918 

7301 

70F9 

7008 



0351 C700 0000 

0353 7289 

0354 0004 

0355 7277 

0356 7005 

0357 18D0 

0358 4C04 03B6 
035A 404B 
035B 70EF 

035C C117 
035D 0200 
035E 6700 0028 

0360 6B6F 

0361 6893 



* 
LOGS 



* 
L0G9 



L0G10 
L0G11 



* 
L0G12 

* 

FOUR 



* 
LEND 



STO 

LO 

RTE 

LO 

STO 

SLA 

SRA 

STD 

BSC 

LD 

RTE 

BSI 

LD 

BSC 

RTE 

BSI 

LD 

RTE 

BSI 

LO 

STO 

LD 

STO 

BSI 

LO 

BSI 

LD 

BSC 

LD 

MDX 

STO 

MDX 

MDX 
STX 
LDX 
LDD 
BSC 
LDD 
RTE 
STD 
MDX 
MDX 
MDX 

LD 

MDX 
DC 
MDX 
MDX 

RTE 
BSC 
BSI 

MDX 

LD 

STO 

LDX 

STX 

STX 



2 

3 1 
16 

3 2 
LINE 
1 
1 
1 24 
L L0G8.C 

PIOWS 
16 
HEX 

PIDWSE1 
L L0G8.E 
16 
HEX 

PIDWS62 
16 
HEX 



18 



3 

ALPHA 

ALPHA, Z 

4 

ALPHA ,Z 

ALPHA 

L0G9.K- 

26 

wc.o 



1 

20 

L0G12E1 

-15 

24 

L0G12.E 



1 24 
1 

1 24 
3 1 

LOG 10 
LEND 

L3 *-* 

2 -/77 
4 

2/7 7 
LEND 

16 
L DEC.F 
HEX 
L0G11 

1 23 

2 

L3 ME SO 

3 LOGT 
IOBSY 



STO SHIFT RED/BLACK 
IN I/O BUFFER 
LD HEX/DEC SW 

LO WORD CONTROL 

STO MULT LINE CONTROL 



STO WC AND H/D SW 
BR IF NOT 1ST LINE 

LD MSG ID 

CONV AND PUT IN MSG 

LD RTN ID 

BR IF NO RTN ID 

CONV ANO PUT IN MSG 
LD RTN ADDRS 

CONV ANO PUT IN MSG 

LD TAB 

STO TAB IN I/O BUFF 

LD FIRST ALPHA ADDR 

SET ALPHA SW 

IF NOT ZERO-GET MESS 

LO SEC ALPHA ADDRS 

IF NOT ZERO-GET MESS 

TEST ALPHA SW 

BR IF NO ALPHA 

SKIP IF NO DATA WORDS 
STO CR AND TAB IN MSG 



XR3#DATA TABLE ADDRS 
STO DATA TABLE ADDRS 
SET TO CK DATA ID 
LD WC ANO H/D SW 
BR IF PRINT DATA 
LD WC AND H/D SW 
SET FOR NEXT BIT 

SET XR3 FOR NEXT BIT 
LOOP UNTIL LAST BIT 



LD NEXT DATA WORD 

THIS WORD SKIPPED 
END IF MSG BUF FULL 



CK HEX/DEC SW 
CONV HEX IF SW OFF 
RETURN FOR MORF 



SET FORM FEFD AND TERM 
SET MESS START ADDRS 

SET I/O BUSY 



TYPE THE MESSAGE- THE FIRST TYPE 



30006820 
30006830 
30006840 
30006850 
30006860 
30006870 
30006880 
30006890 
30006900 
30006910 
30006920 
30006930 
30006940 
30006950 
30006960 
30006970 
30006980 
30006990 
30007000 
30007010 
30007020 
30007030 
30007040 
30007050 
30007060 
30007070 
30007080 
30007090 
30007100 
30007110 
30007120 
30007130 
30007140 
30007150 
30007160 
30007170 
30007180 
30007190 
30007200 
30007210 
30007220 
30007230. 
30007240 
30007250 
30007260 
30007270 
30007280 
30007290 
30007300 
30007310 
30007320 
30007330 
30007340 
30007350 
30007360 
30007370 
30007380 
30007390 
30007400 
30007410 
30007420 
30007430 
30007440 
30007450 
30007460 
30007470 
30007480 
30007490 











* 


COMMAND 


IS GIVEN THEN THE PROGRAM 


30007500 










* 


RETURNS 


TO THE SUPFRV1SFR TO RUN 


30007510 










* 


OTHER PROGRAMS UNTIL THE TYPE 


30007520 










* 


COMPLETE INTERRUPT 


OCCURS. 


30007530 
30007540 




























* 










30007550 


0362 





0860 




TYP 


XIO 




LOGT 


CHECK TYPE BUSY 


30007560 


0363 





180B 






SRA 




11 




30007570 


0364 





4C04 


0362 




BSC 


L 


TYP.E 


LOOP IF BUSY 


30007580 


0366 





6700 


0390 




LDX 


L3 


TYP5 


SET INTERRUPT 


30007590 


0368 





6F00 


01BB 




STX 


L3 


RQTY 


TRANSFER VECTOR 


30007600 


036A 





6302 






LDX 


3 


2 




3D007610 


36B 





6B69 






STX 


3 


L0GTK5 




30007620 


36C 





C480 


03D0 


TYP1 


LD 


I 


LOGT 




30007630 


036E 





74FF 


03D5 




MDX 


L 


L0GT£5,-1 




30007640 


0370 





7005 






MDX 




TYP2 




30007650 


0371 





7402 


0305 




MDX 


L 


LOGTE5.2 




30007660 


0373 





1008 






SLA 




8 




30007670 


0374 





7401 


03D0 


* 


MDX 


L 


LOGT.l 




30007680 
30007690 


0376 





D05D 




TYP2 


STO 




L0GT£4 


STO NEXT WORD 


30007700 


0377 





4C18 


036C 




BSC 


L 


TYPl.C- 


BR IF WORD IS ZERO 


30007710 


0379 





F076 






FOR 




TERM 


CK FOR TERMINATOR 


30007720 


037A 





1808 






SRA 




8 




30007730 


037B 





4C18 


02B9 


* 


BSC 


L 


LOGR.G- 


BR IF LAST CHAR 


30007740 
30007750 


037D 





0854 




TLOOP 


XIO 




L0GTE2 


TYPE 


30007760 


037F 





6857 






STX 




L0GTS6 


SET TYPE WAIT CNT 


30007770 


037F 





6700 


0385 


TYP3 


LDX 


L3 


TYP4 




30007780 


0381 





6F00 


0214 




STX 


L3 


TYP I 


SET RETURN 


30007790 


0383 





4C00 


0219 


* 


BSC 


L 


INLIZ 


GO TO SUPERVISOR 


30007800 
30007810 


0385 





OCOO 


04DA 


TYP4 


XIO 


L 


MCOSW 




30007820 


0387 





1004 






SLA 




4 




30007830 


0388 





4C10 


036C 




BSC 


L 


TYP1,- 




30007840 


038A 





7410 


0306 




MDX 


L 


L0GTS6, 16 


ADV COUNT 


30007850 


03RC 





70F2 






MDX 




TYP3 




30007860 


038D 





30FA 




* 
* 


WAIT 




-6 


IF PROGRAM STOPS AT THIS 
WAIT, COLSOLE PRINTER 
BUSY DID NOT GO OFF. 


30007870 
30007880 
30007890 


038F 





700D 






MDX 




TYP1 




30007900 


038F 





70ED 




* 


MDX 




TLOOP 




30007910 
30007920 


0390 





0000 




TYP5 


DC 




*-* 


RETURN HERE ON 


30007930 


0391 





4C80 


0390 


* 


BSC 


I 


TYP5 


BRANCH BACK 


30007940 
30007950 
30007960 




























* 


THIS 


IS 


THE ALPHA 


SUBROUTINE. IT SETS 


30007970 










* 


ONE 


ALPHA PHRASE INTO THE I/O BUFFER. 


30007980 










* 


THE 


ADDRESS OF THE 


PHRASE IS IN THE 


30007990 










* 


ACCUMULATOR ON ENTRY. THE PHRASE MUST 


30008000 










* 


CONSIST 


OF LEFT JUSTIFIED ROTATE AND 


30008010 










* 


TILT 


CODE CHARACTERS TERMINATED BY FFFF. 


30008020 
30008030 




























* 










30008040 


0393 





0000 




ALPHA 


DC 




*-* 




30008050 


0394 





0002 






STO 




ALPHIE1 


STO ALPHA PHRASE ADRS 


30008060 


0395 





7201 




* 


MDX 


2 


1 


LEAVE SPACE IN MES 


30008070 
30008080 


0396 





C400 


0000 


ALPH1 


LD 


L 


*-* 


LD ALPHA WORD 


30008090 


0398 





F116 






EOR 


1 


22 


EOR TERM 


30008100 


0399 





4C98 


0393 




BSC 


I 


ALPHA, 6- 


FINISHED - RETURN 


30008110 


039B 





C480 


0397 




LO 


I 


ALPH1S1 


LD ALPHA WORD 


30008120 


039D 





D200 






STO 


2 





STO WORD IN MES 


30008130 


039E 





7401 


0397 




MOX 


L 


ALPHl£l,l 


MOVE TO NEXT WORD 


30008140 


03A0 





7201 




* 


MDX 


2 


I 


ADV I/O BUFFER ADDRS 


30008150 
30008160 


03AI 





7289 






MDX 


2 


-/77 




30008170 



^1 



DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


PROG ID 


0300-2 


DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


PROG ID 


0300-2 


EC NO. 


415490 


419643 


420317 


4203170 


571005 


571021 


571053 


PAGE 


6 


EC NO. 


415490 


419643 


420317 


42031 7D 


571005 


571021 


571053 


PAGE 


6A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1130 DIAGNOSTIC MONITOR II 



PART NO. 
PAGE 



2191200 

7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTFM 
1130 DIAGNOSTIC MONITOR II 



PART NO. 
PAGE 



2191200 
7A 



03A2 


0005 




FIVE 


DC 




5 


THIS WORD SKIPPED 


30008180 


03A3 


7277 






MDX 


2 


/7 7 




30008190 


03A4 


70B7 




* 


MDX 




LEND 


END IF MSG BUF FULL 


30008200 
30008210 


03A5 


70F0 




* 


MDX 




ALPH1 


GET ANOTHER WORD 


30008220 
30008230 
30008240 
30008250 








* 


HEXADECIMAL CONVERSION SUBROUTINE 








. 










30008260 
30008270 








* 










03A6 


0000 




HFX 


DC 




*-* 




30008280 


03A7 


7201 






MDX 


2 


1 


LEAVE SPACE 


30008290 


03A8 


COAB 






LD 




FOUR 


SFT CHAR CONVERT 


30008300 


03A9 


D02E 




* 


STO 




WCNT 


COUNT 


30008310 
30008320 


03AA 


1810 




HFX1 


SRA 




16 


CLFAR ACC TO ZERO 


30008330 


03AB 


1084 






SLT 




4 


BRING IN NEXT CHAR 


30008340 


03AC 


D001 






STO 




HFX2U 




30008350 


03AD 


C500 


0000 


HEX2 


LD 


LI 


*-* 


GET CHAR CODE 


30008360 


03AF 


D200 






STO 


2 





SET IN I/O BUFFER 


30008370 


03B0 


7201 






MDX 


2 


1 


ADV I/O BUFFER ADDRS 


30008380 


03B1 


74FF 


03D8 




MDX 


L 


WCNT.-1 


CHECK IF WORD HAS 


30008390 


03B3 


70F6 




* 


MDX 




HE XI 


BEEN COMPLETLY CNVTD 


30008400 
30008410 


03B4 


4C80 


03A6 


* 


BSC 


I 


HEX 


RETURN 


30008420 
30008430 
30008440 
30008450 








* 


DECIMAL 


CONVERSION 


SUBROUTINE 








* 










30008460 




* 










30008470 


03B6 


COEB 




DEC 


LD 




FIVE 


SET CHAR CONVERT 


30008480 


03B7 


D820 






STD 




WCNT 


COUNT 


30008490 


03B8 


C020 






LD 




WCNTtl 


CHECK IF WORD TO BE 


30008500 


03B9 


4C10 


03BF 


* 


BSC 


L 


DEC1,- 


CONVERTED IS NEGATIVE 


30008510 
30008520 


03BB 


C031 






LD 




NEGS 


SFT A NEGATIVE SIGN 


30008530 


03BC 


D200 






STO 


2 





IN MESSAGE 


30008540 


03B0 


10A0 






SLT 




32 




30008550 


03BE 


901A 




* 


S 




WCNTS1 


GENERATE 2S COMPLEMT 


30008560 
30008570 


03BF 


7205 




DECl 


MDX 


2 


5 


SET TO STO LOW ORDR 1ST 


30008580 


03C0 


18D0 




* 


RTE 




16 


PUT WORD IN EXTEN 


30008590 
30008600 


03C1 


1810 




DEC2 


SRA 




16 


CLEAR ACC 


30008610 


03C2 


A814 






D 




TFN 


CONVERT VALUE 


30008620 


03C3 


18D0 






RTE 




16 


BRING IN REMAINDER 


30008630 


03C4 


D001 






STO 




DEC3LU 


STO NXT DIGIT VALUE 


30008640 


03C5 


C500 


0000 


0EC3 


LD 


LI 


*-* 


GET CHAR CODE 


30008650 


03C7 


D200 






STO 


2 





SET CHAR CODE IN OUT 


30008660 


03C8 


72FF 






MDX 


2 


-1 


PUT AREA 


30008670 


03C9 


74FF 


03D8 




MDX 


L 


WCNT.-1 


CHECK IF END OF CONV 


30008680 


03CB 


70F5 




* 


MDX 




DEC2 




30008690 
30008700 


03CC 


7206 






MDX 


2 


6 


FINISHED 


30008710 


03CD 


COOO 






LD 




* 


SET ACC NON ZERO 


30008720 


03CE 


4C00 


0349 


* 


BSC 


L 


LOG10 


RETURN 


30008730 
30008740 
30008750 
30008760 








* 


LOG 


ROUTINE CONSTANTS AND STORAGE 








. 










30008770 
30008780 








* 










03D0 


0000 






BSS 


E 







30008790 


0300 


0028 




LOGT 


DC 




MFSO 


MESSAGE ADDRS 


30008800 


03D1 


OF 00 






DC 




/OFOO 


1 1053 SENSE IOCC 


30008810 


03D2 


0304 






DC 




L0GTK4 


2 CHAR ADDRS 


30008820 


03D3 


0900 






DC 




/0900 


3 1053 WRITE IOCC 


30008830 


0304 


0000 






DC 




*-* 


4 CHAR 


30008840 


03D5 


0000 






DC 




*-* 


5 HALF WORD SW 


30008850 



03D6 





0000 




DC 


*-* 


6 TYP DLY CNTR 


30008860 


03D7 





OOOA 


TFN 

* 


DC 


/OOOA 




30008870 
30008880 


03D8 




0000 




BSS E 







30008890 


0308 





0000 


WCNT 


DC 


*-* 




30008900 


03D9 





0000 




DC 


*-* 




30008910 


03DA 





C400 


TABL 


DC 


/C400 


TABLCO 


30008920 


03DB 





FCOO 




DC 


/FCOO 


1 1 


30008930 


030C 





0800 




DC 


/0800 


2 2 


30003940 


03DD 





DC 00 




DC 


/DCOO 


3 3 


30008950 


03DF 





FOOO 




DC 


/FOOO 


4 4 


30008960 


03DF 





F400 




DC 


/F400 


5 5 


30008970 


03F0 





DOOO 




DC 


/DOOO 


6 6 


30008980 


03E1 





D400 




DC 


/D400 


7 7 


30008990 


03E2 





E400 




DC 


/E400 


8 8 


30009000 


03E3 





EOOO 




DC 


/EOOO 


9 


30009010 


03F4 





3E00 




DC 


/3E00 


A 10 


30009020 


03E5 





1AO0 




DC 


/1A00 


8 11 


30009030 


03C6 





1E00 




DC 


/1EO0 


C 12 


30009040 


03F7 





3200 




DC 


/3200 


D 13 


30009050 


03E8 





3600 




DC 


/3600 


E 14 


30009060 


03E9 





1200 




DC 


/1200 


F 15 


30009070 


03EA 





2100 




DC 


/2100 


SPACE 16 


30009080 


03EB 





6200 




DC 


/6200 


P 17 


30009090 


03EC 





4121 




DC. 


/4121 


TAR 18 


30009100 


03ED 





8400 


NEGS 


DC 


/8400 


MINUS 19 


30009110 


03EE 





0936 




DC 


/0936 


SFT RED 20 


30009120 


03FF 





053E 




DC 


/053E 


SFT BLK 21 


30009130 


03F0 





FFFF 


TERM 


DC 


/FFFF 


TFRM 22 


30009140 


3F1 





03FF 




DC 


/03FF 


FORM FO 23 


30009150 


03F2 





0000 


WC 


DC 


*-* 


WD CNTL 24 


30009160 


03F3 





0000 




DC 


*-* 


HEX/DEC 25 


30009170 


03F4 





8141 




DC 


/8141 


CR £ TAB 26 


30009180 


03F5 




0004 




BSS 


4 WARNING DON*T REMOVE USED FOR DtMAL 


30009190 








********************************************* 


30009200 








* 




HALT ROUTINE 


30009210 








********************************************* 


30009220 








* 


THIS ROUTINE IS 


ENTERED FROM 


30009230 








* 


ADDRESS STOP BY 


PRESSING PROGRAM 


30009240 








* 


STOP. 


THE ROUTINE WILL SAVE THE STATUS 


30009250 








* 


OF THE 


MACHINE 


THE ROUTINE WILL 


30009260 








* 


RESTORE THIS STATUS WHEN STARTED FROM 


30009270 








* 


THE WAIT OR BY NORMAL MONITOR RESTART. 


30009280 








* 


PRESS 


RESET AND 


THFN START. 


30009290 
30009300 
30009310 








* 






KEEP ILT5 AT /03F9 


03F9 





0000 


ILT5 


DC 


*-* 




30009320 


03FA 





1000 




NOP 




************************** 


30009330 


03FB 





D814 




STD 


A05 


SAVE AQ 


30009340 


03FC 





0815 




XIO 


DSW5-1 


SENSE AND RESET OSW 


30009350 


03F0 





4CB0 0015 


* 
* 


BSC I 


ILIR.-Z 


GO SERVICE INTR OR 
GO TO STOP 


30009360 
30009370 
30009380 


03FF 





4C20 0404 




BSC I 


STOP.Z 




30009390 


0401 





4480 01BE 




BSI 1 


IL5 




30009400 


0403 





7014 




MDX 


SAQ 




30009410 
30009420 
30009430 








* 


STOP SUBROUTINE 


-SAVES STATUS THEN WAIT 








* 


START 


BY PRESSING START OR RESET AND 


30009440 








* 


START. 






30009450 
30009460 
30009470 








* 








0404 





COFF 


STOP 


LD 


STOP 




30009480 


0405 





DOOC 




STO 


STPSW 


SET DELAY CNT 


30009490 


0406 





74FF 0412 


ST0P1 


MDX L 


STPSW, - 


1 DELAY TO CYCLE 


30009500 


0408 





70FD 




MDX 


ST0P1 


DOWN INTERRUPTS 


30009510 


0409 





6808 




STX 


STPSW 


SET STOP SWITCH 


30009520 


040A 





3001 




WAIT 


1 


WAIT 3001 


30009530 



u 



DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


PROG ID 


0300-2 


DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


PROG ID 


0300-2 


FC NO. 


415490 


419643 


420317 


42031 70 


571005 


571021 


571053 
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040B 





1810 




GO 


SRA 




16 




30009550 


040C 





0005 






STO 




STPSW 


RESET STOP SW 


30009560 


040D 





080E 






XIO 




RDBSW 


READ BIT SWS 


30009570 


040E 





7009 




* 


MDX 




SAQ 


RESTORE AQ 


30009580 
30009590 


0410 




0000 






BSS 


E 





KEEP AQ5 AT /0410 


30009600 


0410 





0000 




AQ5 


DC 




*-* 


STG FOR INT5 AND HALT 


30009610 


0411 





0000 






DC 




*-* 


ACC AND EXT REGS 


30009620 


0412 





0000 




STPSW 


DC 




*-* 


STOP SW 


30009630 


0413 





3F01 




DSW5 

* 


DC 




/3F01 


INT 5 SENSE DSW COM 
KEEP ASTOP AT /04I4 


30009640 
30009650 


0414 





C0E4 




ASTOP 


LD 




ILT5 


LD IAR ADDRS 


30009660 


0415 





F008 






EOR 




SADRS 


COMPARE WITH SWS 


30009670 


0416 





4C18 


0404 




BSC 


L 


STOP.K- 


RETURN IF NOT EQUAL 


30009680 


0418 





C8F7 




SAQ 


LDD 




AQ5 


RESTORE AO 


30009690 


0419 





4CC0 


03F9 


* 


BOSC 


I 


ILT5 




30009700 
30009710 


041C 




0000 






BSS 


E 







30009720 


041C 





041E 




RDBSM 


DC 




SADRS 




30009730 


041D 





3A00 






DC 




/3A00 


READ BIT SW IOCC 


30009740 


041E 





0000 




SADRS 

• 

*— — -— - 


DC 




*-* 




30009750 
30009760 
30009770 
30009780 










* 


DELAY SUBROUTINE - 


ENTERED WHEN RUNNING 










* 


IN INTERRUPT MODE. 


IT PROVIDES A DELAY 


30009790 










* 


BETWEEN 


EXECUTION 


OF EACH MAIN LINE 


30009800 










• 


INSTRUCTION. THIS 


DELAY CAN BE INCREASED 


30009810 










* 


BY SETTING A COUNT 


IN MONITOR FUNCTION 2 


30009820 










* 


SWITCHES. 




30009830 




















30009840 
30009850 










* 










041F 





COFE 




DELAY 


LD 




SADRS 


LD DELAY COUNT 


30009860 


0420 





D004 






STO 




DELYC 


SAVE 


30009870 


0421 





74FF 


0425 


DELY1 


MDX 


L 


DELYC-1 


DECR DELAY COUNT 


30009880 


0423 





70F0 






MDX 




DELYl 


LOOP 


30009890 


0424 





70F3 






MDX 




SAQ 


RETURN TO MAINLINE 


30009900 


0425 





0000 




DELYC 


DC 




*-* 


DELAY COUNT 


30009910 
30009920 










********************************************* 


30009930 










* 






MONITOR END ROUTINE 


30009940 










********************************************* 


30009950 










* 


THIS 


ROUTINE IS ENTERED BY AN END 


30009960 










* 


CALL 


FROM ANY TEST 


PROGRAM. IT WILL 


30009970 










* 


FIRST CHECK TO SEE 


IF THE MONITOR 


30009980 










* 


LOOP 


PROGRAM SWITCH IS ON. 


30009990 










* 


IF NOT, 


AN END MESSAGE 


30010000 










* 


IS TYPED. IF NOT OVERLAP MODE, 


30010010 










• 


THE ROUTINE WILL BRANCH TO LOAD TO 


30010020 










* 


ATTEMPT 


TO LOAD ANOTHER PROGRAM. 


30010030 










* 


IF LOOP 


,THE ROUTINE WILL BRANCH 


30010040 










* 


TO THE 


LOOP ADDRESS GIVEN IN THE 


30010050 










* 

* „ 


PROGRAM 


CONTROL TABLE. 


30010060 
30010070 
30010080 










* 






CALLING SEQUENCE 










* 


BSI 


I 


END 




30010090 
30010100 
30010110 










* 










0426 





0000 




MEND 


DC 




*-* 




30010120 


0427 





6780 


023E 




LDX 


13 


MXEQ2S1 


X3*MLSCF ADDRS 


30010130 


0429 





C3FA 






LD 


3 


-6 


LD CONTROL SWS 


30010140 


042A 





ECOO 


0200 




OR 


L 


MSWO 


OR WITH MON SWS 


30010150 


042C 





1804 






SRA 




4 


CK FOR LOOP PROGRAM 


30010160 


042D 





4F84 


FFFE 


* 


BSC 


13 


-2,E 


BR IF LOOP 


30010170 
30010180 


042F 





10AO 






SLT 




32 




30010190 


0430 





C3F7 






LD 


3 


-9 


LD PID 


30010200 


0431 





D400 


050E 




STO 


L 


MTABLE2 


SET IN MSG 


30010210 



0433 





C015 






LO 




MMESF 


LD END MESSAGE 


30010220 


0434 





6600 


8004 




LDX 


L2 


/8004 


SET WD CNTL 


30010230 


0436 





4400 


04F3 


* 


BSI 


L 


MLOG 


LOG MESSAGE 


30010240 
30010250 


0438 





C400 


050D 




LD 


L 


PGMN 


CK IF OVER LAP 


30010260 


043A 





1801 






SRA 




1 




30010270 


043B 





4C20 


0271 




BSC 


L 


MXEQ7.Z 


8R IF OVLAP 


30010280 


0430 





C400 


0155 




LD 


L 


/155 




30010290 


043F 





4C04 


0271 


* 


BSC 


L 


MXEQ7.E 


BR IF LD FROM TAPE 


30010300 
30010310 


0441 





D400 


050D 




STO 


L 


PGMN 


IF NOT OVLAP 


30010320 


0443 





6700 


05DC 




LDX 


L3 


/0 5DC 


GO LOAD NEXT PRGM 


30010330 


0445 





6F00 


015C 




STX 


L3 


NLOC 




30010340 


0447 





4C0O 


0581 


* 


BSC 


L 


LOAD 




30010350 
30010360 


0449 





05A1 




MMESF 

* 


DC 




AEND 




30010370 
30010380 










********************************************* 


30010390 










* 






MONITOR INTERRUPT ROUTINES 


30010400 










********************************************* 


30010410 










* 










30010420 




















30010430 






















* 






INTERRUPT 


LEVEL ZERO 


30010440 




















30010450 






















* 








KEEP ILTO AT /044A 


30010460 


044 A 





0000 




ILTO 


DC 




*-* 




30010470 


044B 





1000 






NOP 






************************** 


30010480 


044C 





D855 






STD 




AQO 


SAVE AQ 


30010490 


044D 





6B09 






STX 


3 


X3061 


SAVE XR3 


30010500 


044E 





2809 






STS 




SSO 


STORE STATUS 


30010510 


044F 





085C 






XIO 




ILSW-1 


SENSE ANO 


30010520 


0450 





630F 






LDX 


3 


15 




30010530 


0451 





4820 






BSC 




Z 


SKIP IF NO ILSW 


30010540 


0452 





1340 






SLCA 


3 




FIND BIT IN ILSW 


30010550 


0453 





4780 


016B 




BSI 


13 


ILO-15 


GO TO USER ROUTINE 


30010560 


0455 





C84C 




XS1 


LDD 




AQO 


RESTORE AQ 


30010570 


0456 





6700 


0000 


X30 


LDX 


L3 


*-* 


RFSTORF XR3 


30010580 


0458 





2000 




SSO 


LDS 




*-* 


LOAD STATUS 


30010590 


0459 





4CC0 


044A 


* 


BOSC 


I 


ILTO 




30010600 
30010610 
30010620 
30010630 
30010640 
30010650 










* 

* 

* 






INTERRUPT 


LEVEL ONE 
















KEEP ILT1 AT /045B 


045B 





0000 




ILT1 


DC 




*-* 




30010660 


045C 





1000 






NOP 






************************** 


30010670 


045D 





D846 






STD 




AQ1 


SAVE AQ 


30010680 


045E 





6B09 






STX 


3 


X31S1 


SAVE XR3 


30010690 


045F 





2809 






STS 




SSI 


STORE STATUS 


30010700 


0460 





084B 






XIO 




ILSW-1 


SENSE AND 


30010710 


0461 





630F 






LDX 


3 


15 




30010720 


0462 





4820 






BSC 




Z 


SKIP IF NO ILSW 


30010730 


0463 





1340 






SLCA 


3 




FIND BIT IN ILSW 


30010740 


0464 





4780 


017B 




BSI 


13 


IL1-15 


GO TO USER ROUTINE 


30010750 


0466 





C830 






LOD 




AQ1 


RESTORE AQ 


30010760 


0467 





6700 


0000 


X31 


LDX 


L3 


*-* 


RESTORE XR3 


30010770 


0469 





2000 




SSI 


LDS 




*-* 


LOAD STATUS 


30010780 


046 A 





4CC0 


045B 


* 


BOSC 


I 


ILT1 




30010790 
30010800 
30010810 




























* 






INTERRUPT 


LEVEL TWO 


30010820 
30010830 




























* 








KEEP ILT2 AT /046C 


30010840 


046C 





0000 




ILT2 


DC 




*-* 




30010850 


046D 





1000 






NOP 






************************** 


30010860 


046E 





D837 






STD 




AQ2 


SAVE AQ 


30010870 


046F 





6B09 






STX 


3 


X32E1 


SAVE XR3 


30010880 


0470 





2809 






STS 




SS2 


STORE STATUS 


30010890 



J 



DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


EC NO. 


415490 


419643 


420317 


42031 70 


571005 


571021 


571053 
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DATE 


02JAN66 
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15JUN67 
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01OCT68 


10JAN69 


25JUL69 


EC NO. 


415490 


419643 


420317 


4203170 


571005 


571021 


571053 
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PAGE 
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0471 083A 




XIO 




ILSW-1 




SENSE AND 




0472 630F 




LDX 


3 


15 








0473 4820 




BSC 




Z 




SKIP IF NO ILSW 




0474 1340 




SLCA 


3 






FIND BIT IN ILSW 




0475 4780 018B 




BSI 


13 


IL2-15 




GO TO USER ROUTINE 




0477 C82E 




LDD 




AO? 




RESTORE AO 




0478 6700 0000 


X32 


LDX 


L3 


*-* 




RESTORE XR3 




047A 2000 


SS2 


LOS 




*-* 




RESTORE STATUS 




047B 4CC0 046C 


* 


BOSC 


I 


ILT2 








* 






INTERRUPT 


LEVEL THREE 




* 










KEEP ILT3 AT /047D 




047D 0000 


ILT3 


DC 




*-* 








047E 1000 




NOP 








************************ 




047F D828 




STD 




AQ3 




SAVE AQ 




0480 6B09 




STX 


3 


X33G1 




SAVE XR3 




0481 2809 




STS 




SS3 




STORE STATUS 




0482 0829 




XIO 




ILSW-1 




SENSE AND 




0483 630F 




LDX 


3 


15 








0484 4820 




BSC 




Z 




SKIP IF NO ILSW 




0485 1340 




SLCA 


3 






FIND BIT IN ILSW 




0486 4780 019B 




BSI 


13 


IL3-15 




GO TO USER ROUTINE 




0488 C81F 




LDD 




AQ3 




RESTORE AO 




0489 6700 0000 


X33 


LOX 


L3 


*-* 




RESTORE XR3 




048B 2000 


SS3 


LOS 




*-* 




RESTORF STATUS 




048C 4CC0 0470 


* 


BOSC 


I 


ILT3 








* 






INTERRUPT 


LEVEL FOUR 




* 










KEEP ILT4 AT /048E 




048E 0000 


ILT4 


DC 




*-* 








048F 1000 




NOP 








************************ 




0490 D819 




STD 




AQ4 




SAVE AQ 




0491 6B08 




STX 


3 


X34£l 




SAVE XR3 




0492 2808 




STS 




SS4 




STORE STATUS 




0493 0818 




XIO 




ILSW-1 




SENSE AND 




0494 630F 




LDX 


3 


15 








0495 1340 




SLCA 


3 






FIND BIT IN ILSW 




0496 4780 01AB 




BSI 


13 


IL4-15 




GO TO USER ROUTINE 




0498 C811 




LDD 




AQ4 




RESTORE AQ 




0499 6700 0000 


X34 


LDX 


L3 


*-* 




RESTORE XR3 




049R 2000 


SS4 


LDS 




*-* 




RESTORE STATUS 




049C 4CC0 048E 
049E 4480 01BD 


* 


BOSC 


I 


ILT4 








* 


KEYBOARD RESPONSE 


BIT 1 




* 
MKBR 


BSI 


I 


SVKB 




GO TO KB USER RTN 




04A0 7031 
04A2 0000 


* 


MDX 




MCI2 








* 






INTERRUPT 


CONSTANTS AND STORAGE 




* 


BSS 


F 











04A2 0000 


AOO 


DC 




*-* 








04A3 0000 




DC 




*-* 








04A4 0000 


AQ1 


OC 




*-* 








04A5 0000 




DC 




*-* 








04A6 0000 


AQ2 


DC 




*-* 




ACCUMULATOR AND 




04A7 0000 




DC 




*-* 




EXTENSION REGISTER 




04A8 0000 


AQ3 


DC 




*-* 




ARE STORED HERE 




04A9 0000 




DC 




*-* 




DURING INTERRUPT 




04AA 0000 


AQ4 


OC 




*-* 






DATE 


02JAN66 15N0V66 


15JUN67 


10QCT67 


010CT68 10JAN69 25JUL69 


EC NO. 


415490 419643 


420317 


42031 70 


571005 571021 571053 



30010900 

30010910 

30010920 

30010930 

30010940 

30010950 

30010960 

30010970 

30010980 

30010990 

30011000 

30011010 

30011020 

30011030 

30011040 

30011050 

30011060 

30011070 

30011080 

30011090 

30011100 

30011110 

30011120 

30011130 

30011140 

30011150 

30011160 

30011170 

30011180 

30011190 

30011200 

30011210 

30011220 

30011230 

30011240 

30011250 

30011260 

30011270 

30011280 

30011290 

30011300 

30011310 

30011320 

30011330 

30011340 

30011350 

30011360 

30011370 

30011380 

30011390 

30011400 

30011410 

30011420 

30011430 

30011440 

30011450 

30011460 

30011470 

30011480 

30011490 

30011500 

30011510 

30011520 

30011530 

300 1 1 540 

30011550 

30011560 

30011570 



PROG 10 
PAGE 



04AB 0000 



0300-2 
9 



04AC 0455 
04AD 0300 






04AE 
04AF 



0000 
0000 



DC *-* 

* 

XSCl 

ILSW 

MCI ST 

MCX2 

* 

********************************************* 

* INTERRUPT ERROR 

********************************************* 

* 



DC 


XS1 


DC 


/0300 


DC 


*-* 


DC 


*-* 



INT 4 SENSE ILSW 
CONSOLE INTER STOR 
CON INT RTN XR2 STORE 



04B0 





0000 




IERR 


DC 




*-* 




04B1 





08FA 






XIO 




ILSW-1 


SENSE ILSW 


04B2 





7400 


0217 




MDX 


L 


IERM.O 


IF INTERRUPT WILL NOT 


04B4 





30F9 




* 


WAIT 




-7 


TURN OFF- WAIT HERE 


04B5 





D05B 




STO 




MTABL65 


STO ILSW 


04B6 





C0F9 






LD 




IERR 




04B7 





90F4 






S 




XSCl 


CALCULATE INTERRUPT 


04B8 





1804 






SRA 




4 


LEVEL 


04B9 





0056 






STO 




MTABL64 


STO INTERRUPT LEVEL 


04BA 





6700 


04C0 




LDX 


L3 


IERR2 




04BC 





6F00 


0217 




STX 


L3 


IERM 




04BE 





4C80 


04B0 




BSC 


I 


IERR 




04C0 





6305 




IERR2 


LDX 


3 


5 


SET MSG NO 


04C1 





6230 






LDX 


2 


/0030 


SET DATA WORD ID 


04C2 





10A0 






SLT 




32 




04C3 





4038 






BSI 




MERR 


LOG MSG 


04C4 





4C00 


0271 




BSC 


L 


MXEQ7 


GO TO SUPERVISOR 



********************************************* 

* CONSOLE INTERRUPT ROUTINE 
********************************************* 

* THIS ROUTINE WILL SERVICE THE CONSOLE 

* INTERRUPT. IF THE INTERRUPT IS DUE TO A 

* USER XIO IT WILL BRANCH TO THE USER 

* INTERRUPT ROUTINE. 



04C6 





0000 




* 

MCI NT 


DC 




*-* 




04C7 





0812 






XIO 




MCDSW 


SENSE, RESET 


04C8 





D011 






STO 




MCDSW 


AND STORE DSW 


04C9 





6303 






LOX 


3 


3 




04CA 





1340 




MCll 


SLCA 


3 




LOOK FOR DSW BIT 


04CB 





F400 


0205 




EOR 


L 


K8000 


TAKE OUT ZERO BIT 


04CD 





DOEO 






STO 




MCIST 


SAVE REMAINING DSW 


04CE 





6BE0 






STX 


3 


MCX2 


SAVE DSW POSITION CNT 


04CF 





COOA 






LD 




MCDSW 


SET DSW IN ACCUM 


04 DO 





4FR2 


04DB 




BSC 


13 


MCDSW61 


,C GO TO SERVICE RTN 


0402 





CODB 




MCI2 


LD 




MCIST 


RETURN - LD DSW 


0403 





6780 


04AF 




LDX 


13 


MCX2 


RESTORE POSITION CNT 


04D5 





4C02 


04CA 




BSC 


L 


MCIltC 


IF NOT 0-CONTINUE CK 


0407 





4C80 


04C6 




BSC 


I 


MCINT 


RETURN TO MAINLINE 


04DA 




0000 






BSS 


E 







04DA 





0000 




MCDSW 


DC 




*-* 


CONSOLE DSW 


04DB 





0F01 






DC 




/OFOl 




04DC 





04E2 






DC 




MMR 


MANUAL REQ 2 


04D0 





049E 






DC 




MKBR 


KB RESPONSE I 


04DE 






04DF 
4480 


OIBB 


* 


DC 




MTWR 


TW RESPONSE 




* 


CONSOLE 


PRINTER 


RESPONSE BIT 


04DF 


* 
MTWR 


BSI 


I 


RQTY 


GO TO TW USER RTN 


04EI 





70F0 






MDX 




MCI2 




DATE 02JAN66 


L5N0V66 


15JUN67 


100CT67 


01DCT68 10JAN69 25JUL69 


EC NO. 415490 419643 


420317 


42031 7D 


571005 571021 571053 



30011580 
30011590 
30011600 
30011610 
30011620 
30011630 
30011640 
30011650 
30011660 
30011670 
30011680 
300U690 
30011700 
30011710 
30011720 
30011730 
30011740 
30011750 
30011760 
30011770 
30011780 
30011790 
30011800 
30011810 
30011820 
30011830 
30011840 
30011850 
30011860 
30011870 
30011880 
30011890 
30011900 
30011910 
30011920 
30011930 
30011940 
30011950 
30011960 
30011970 
30011980 
30011990 
30012000 
30012010 
30012020 
30012030 
30012040 
30012050 
30012060 
30012070 
30012080 
30012090 
30012100 
30012110 
30012120 
30012130 
30012140 
30012150 
30012160 
30012170 
30012180 
30012190 
30012200 
30012210 
30012220 
30012230 
30012240 
30012250 



PROG ID 
PAGE 



0300-2 
9A 



J 

J 

J 
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30012270 








* 


MANUAL 


REQUEST 


BIT 2 


30012280 


















30012290 








* 










30012300 




04E2 1003 




MMR 


SLA 




3 


CK CON/KB SW 


30012310 




04E3 4C10 


04EF 




BSC 


L 


MMR1,- 


BR IF KB 


30012320 




04E5 6700 


04EA 




LDX 


L3 


MMRBS-1 


RESTORE RQKB 


30012330 




04E7 6F00 


01BC 




STX 


L3 


RQKB 




30012340 




04E9 7001 




* 


MDX 




MMRBS 




30012350 
30012360 




04EA 0000 






DC 




*_* 


ENTRY FROM RQKB 


30012370 




04EB 4020 




MMRBS 


BSI 




MRBS 




30012380 




04EC 6F00 


0213 




STX 


L3 


MLSCF 


SET RD SW RETURN 


30012390 




04EE 70E3 




* 


MDX 




MCI2 




30012400 
30012410 




04EF COEA 




MMR1 


LO 




MCDSW 




30012420 




04F0 4480 


01BC 




BSI 


I 


RQKB 




30012430 




04F2 70DF 




* 


MDX 




MCI2 




30012440 
30012450 








**************************** ***************** 


30012460 








* 






MONITOR 


LOG ROUTINE 


30012470 








********************** *********************** 


30012480 








* 


THIS 


ROUTINE SETS THE MONITOR MESSAGE 


30012490 








* 


ID NUMBER, WORD 


COUNT AND ALPHA MESSAGE 


30012500 








* 


ADDRESS 


INTO THE MESSAGE TABLE THEN 


30012510 








* 


CALLS ON LOG OR 


ERROR. 


30012520 


















30012530 








* 






CALLING 


SEQUENCE 


30012540 








* 


BSI 




MLOG 




30012550 








* 






ACC # ALPHA ADDRS 1 


30012560 








* 






EXT * ALPHA ADDRS 2 


30012570 








* 






XR2 # WORD CNT AND MESS ID 


30012580 


















30012590 








* 










30012600 




04F3 0000 




MLDG 


DC 




*-* 




30012610 




04F4 D815 






STD 




MALPH 


STO ALPHA ADDRESSES 


30012620 




04F5 6A13 






STX 


2 


ML0G2E2 


STO WD CNTL 


30012630 




04F6 6B10 






STX 


3 


ML0G2 


STO MSG NO. 


30012640 




04F7 4480 


0163 




BSI 


I 


LOG 




30012650 




04F9 0507 




* 


DC 




ML0G2 


MESS ADDRS 


30012660 
30012670 




04FA 4C80 


04F3 


* 


BSC 


I 


MLOG 




30012680 
30012690 




04FC 0000 




MERR 


DC 




*-* 




30012700 




04FD D80C 






STD 




MALPH 


STO ALPHA ADDRESSES 


30012710 




04FF 6A0A 






STX 


2 


ML0G2C2 


STO WD CNTL 


30012720 




04FF 6B07 






STX 


3 


ML0G2 


STD MSG NO. 


30012730 




0500 4480 


0162 




BSI 


I 


ERROR 




30012740 




0502 0507 






DC 




ML0G2 


MESS ADDRS 


30012750 




0503 0000 




* 


DC 




/OOOO 




30012760 
30012770 




0504 4C80 


04FC 


* 


BSC 


I 


MERR 




30012780 
30012790 


















30012800 








* 


MONITOR 


MESSAGE 


TABLE 


30012810 














30012820 








* 










30012830 




0506 0001 






BSS 


E 


1 




30012840 




0507 0000 




ML0G2 


OC 




*-* 


MESSAGE NUMBFR 


30012850 




0508 0000 






DC 




*-* 


HEX/DEC 


30012860 




0509 0000 






DC 




*_* 


WORD CONTROL 


30012870 




050A 0000 




MALPH 


DC 




*-* 


ALPHA ADDRS 1 


30012880 




0508 0000 






DC 




*-* 


ALPHA ADDRS 2 


30012890 




050C 0000 




MTABL 


DC 




*-* 


BIT SWITCH READINGS 


30012900 




0500 0000 




PGMN 


DC 




*-* 


PROGRAM NUMBER 


30012910 




050E 0000 






DC 




*-* 


PID 


30012920 




050F 0000 






DC 




*_* 


STORAGE ADDRS 


30012930 


^ATE 


02JAN66 15N0V66 


15JUN67 


100CT67 010CT68 10JAN69 25JUL69 


PROG ID 


EC NO. 


415490 419643 


420317 


420317D 5710Q5 571021 571053 


PAGE 



0300-2 



0510 





0000 


0511 





0000 


0512 





8000 


0513 





059F 


0514 





0000 


0515 




0004 



0519 0000 
051A 6300 
051B 6F00 0204 

051D 0834 

051E COED 

051F 1004 

0520 180C 

0521 D001 

0522 6700 0000 

0524 C400 0205 

0526 1B00 

0527 630F 

0528 1340 

0529 C700 01BF 
0528 6700 0579 
052D 4C88 0519 

052F D007 

0530 CODB 

0531 180F 

0532 D007 

0533 C0D8 

0534 1008 

0535 1808 

0536 6700 0000 

0538 73FA 

0539 D700 0000 

053B C3FD 
053C D0D1 

053D C400 020F 
053F 100B 

0540 4C10 054B 

0542 C400 048E 

0544 D480 0014 

0546 6780 0014 

0548 7301 

0549 6F00 048E 
054B 6700 055A 
054D 4C80 0519 

054F 0000 

0550 4C80 054F 



DC 


*-* 


INTERRUPT LEVEL 


DC 


*-* 


ILSW/SW 


DC 


/8000 




OC 


ALD 




DC 


/OOOO 




BSS 


4 WARNING 


DON'T REMOVE USED FOR 



X8000 



**************** ***************************** 

* MONITOR READ BIT SWITCH 

* ROUTINE 

************************************** ******* 
* 

* 
* 
* 
* 
* 
* 

* 

* 
MRBS 



THIS ROUTINE READS THE BIT SWITCHES IN 
INTERRUPT AND PLACFS THE DATA IN SWITCHES 
B-15 IN THE PCT OF THE PROGRAM IDENTIFIED 
BY SWITCHES 4-7. FOLLOWING THE INTERRUPT 
THE SUPERVISER WILL RETURN TO THIS ROUTINE 
IN MAINLINE TO CHECK THE FUNCTION ZERO 
SWITCHES FOR HALT AND LOAD. 



MRBS3 

MRBS4 
* 



DC 

LDX 

STX 

XIO 

LD 

SLA 

SRA 

STO 

LDX 

LD 

SRA 

LDX 

SLCA 

LD 

LDX 

BSC 

STO 
LD 
SRA 
STO 

LD 

SLA 

SRA 

LDX 

MDX 

STO 

LD 
STO 

LD 

SLA 

BSC 



3 
L3 



L3 

L 
3 
3 
3 

L3 

L3 

I 



*-* 



XLECT 

RDBS 

MTABL 

4 

12 

*EI 

*-* 

K8000 



15 



MPIDT- 

MRBSE 

MRRS.K 



L3 

3 
L3 



MRBSB LD 
STO 
LDX 
MDX 
STX 
LDX 
BSC 



MRBSC 

* 
MRBSD 



L 
I 

13 
3 
L3 
L3 
I 



DC 
BSC 



MRBS361 
MTABL 
14 
MRBS461 

MTABL 

8 

8 

*-* 

-6 

*-* 

-3 

MTABLE2 

MSW2 
11 

MRBSC, - 

ILT4 

UTLTY 

UTLTY 

I 

ILT4 

MRBS5 

MRBS 

*-* 
MRBSD 



SET FOR NO MLSCF ENTRY 
SET SCAN TO START AT MON 

READ BIT SWITCHES 

LOAD BIT SW 

CLEAR ALL BUT PRGM 

NUMBER BITS 
STO NUM TO BE VERIFIED 
XR3#PR0GRAM NUMBER 



15 LD MLSCF ADDRS 
LD ERROR RETURN 
BR IF INVALID PGM NO. 

STORE SW ADDRS 
LOAD BIT SW 
GET FUNCTION 
STORE FUNCTION 

LOAD BIT SW 

STRIP OFF 

ALL BUT DATA 

XI # MLSCF ADRS 

ADV TO SW ADDRS 

PUT SW DATA IN PROG 

AT PROPER FUNC LEVEL 

LD PID 

STO PID IN MSG 

LD MONITOR SW 2 

BR OUT IF NO UTILITY 



SET UTILITY RETURN 



SET BR TO UTILITY 
LD NORMAL RETURN 
BR OUT OF INTRPT 
KEEP MRBSD AT /054F 
DUMMY RETURN IF 
UTILITY NOT IN CORE 



30012940 
30012950 
30012960 
30012970 
30012980 
DIMAL 30012990 
30013000 
30013010 
30013020 
30013030 
30013040 
30013050 
30013060 
30013070 
30013080 
30013090 
30013100 
30013110 
30013120 
30013130 
30013140 
30013150 
30013160 
30013170 
30013180 
30013190 
30013200 
30013210 
30013220 
30013230 
30013240 
30013250 
30013260 
30013270 
30013280 
30013290 
30013300 
30013310 
30013320 
30013330 
30013340 
30013350 
30013360 
30013370 
30013380 
30013390 
30013400 
30013410 
30013420 
30013430 
30013440 
30013450 
30013460 
30013470 
30013480 
30013490 
30013500 
30013510 
30013520 
30013530 
30013540 
30013550 
30013560 
30013570 
30013580 
30013590 
30013600 
30013610 



DATE 

EC NO, 



02JAN66 

415490 



15N0V66 



15JUN67 

420317 



IQQCT6? 

4203170 



010CT68 

571005 



10JAN69 

571021 



25JUL6? 

571053 
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PAGE 



0300-2 



J 



J 
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CONSTANTS AND STORAGE FOR 






0000 






READ 


Bll 


SW ROIITINf 


OSS? 




BSS 


1 







OSS? 





osoc 




RDPS 


or. 




MT ABL 


IOCC TO RFAD BIT SWS 


ossi 





3A00 






DC 




/3A00 




OSS'. 





0SB1 




MMf SI 


DC 




ASWS 


MTSSAGr ADDRESSES 


osss 





0S9B 






DC 




ASIVO 


SWS INVLO 


OSSh 





0SB6 




MMf SI 


DC 




AHALT 




0SS7 





0SA4 




MMFS4 


DC 




ACKSM 




OSSH 





0SA8 




MMf ST 


DC 




AOVCR 




0SS9 




0001 






BSS 




1 WARNING 


DON"T RFMOVE USED FOP OIMAl 






RETURN HERE AFTER 


INTERRUPT AND CHECK THF 







I0A0 






SWITCHFS FOR HALT 


AND LOAD 


OSSA 


MRBSS 


SLT 




3? 




0S5B 





COBO 






LD 




MTABL 


LD SW ENTRV 


os5c 





1S0E 






SRA 




14 


SET TO LOOK AT FUNC SWS 


0550 


n 


4C20 


0564 




BSC 


L 


MRBS6.J 


BR UNLESS FUNC 


055F 





COAf 






LD 




MTABL 


LD SW ENTRV 


0560 





100F 






SLA 




15 


LOOK AT HALT SW 


0561 





4B20 






BSC 




I 




0562 


n 


COM 






LO 




MMES3 


PRINT MSG IF HALT 


0563 





1B00 




£ 


RTF 




16 




0*64 





6301 




MPBS6 


LOX 


3 


1 


SET MSG NO- 


0565 





6205 






LOX 


2 


/0005 


SET WO CNTl 


0566 





COED 






LO 




MMES1 




0567 





4400 


04F3 


* 


PS I 


L 


MtOG 




0569 





C400 


0?0F 


LO 


L 


MSW2 


LD MONITOR SW 2 


056B 





1B90 






SRT 




16 




056r. 





0400 


020F 


* 


STO 


L 


MSW2 


RESET SW2 


056F 





1099 






SLT 




25 




056F 





4C02 


05B1 


* 


BSC 


L 


LOAO.C 


GO RELOAD 


0571 





1001 






SLA 




1 




0572 





4C10 


0220 


* 


BSC 


L 


MXEQ,- 


BR IF NOT DEI AY 


0574 





6700 


04 IF 




LOX 


L3 


DELAV 




0576 





6F00 


0015 




STX 


L3 


ILIR 


SET FOR DELAY 


0578 





7006 




* 


MOX 




MRBSF 






* 


COME 


HERE IF THE 


PROGRAM IDENTIFIED IN 










• 


SWITCHES 4-7 IS NOT IN CORE- PRINT SWITCHES 










* 


INVALID 


MESSAGE. 





0579 10A0 
057A CODA 
057B 6201 
057C 6301 
0570 4400 04FC 



057F 4C00 0220 



MRBSF SLT 
LO 
LOX 
LOX 
BS1 

* 

MRBSF BSC 



32 

MMFSltl 

2 /OOOI 

3 1 

I MFRR 

L MXFQ 



PID NO GOOD 

SET WD CNTL 

SET MSG NO. 

LOG MFS - SWS INVll) 

GO TO SUPEP VISOR 



******************************************** 
* LOAD NEXT PROGRAM 



30013620 
30013630 
30013640 
3001 3650 
30013660 
30013670 
300136B0 
3001 3690 
30013700 
30013710 
30013720 
30013730 
30013740 
30013750 
30013760 
30013770 
30013780 
30013790 
3OO13B00 
30013B10 
300I3B20 
30013B30 
30013B40 
3001 3B 50 
30013B60 
30013870 
3001 38B0 
30013890 
30013900 
30013910 
30013920 
30013930 
30013940 
30013950 
30013960 
30013970 
30013980 
30013990 
30014000 
30014010 
30014020 
30014030 
30014040 
30014050 
30014060 
30014070 
30014080 
30014090 
30014100 
30014110 
30014120 
30014130 
30014140 
30014150 
30014160 
30014170 
30014180 
30014190 
30014200 
30014210 
30014220 
30014230 
30014240 
30014250 
30014260 
30014270 
30014280 
30014290 



DATE 


02JAN66 


15N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


PROG ID 


0300-2 


EC NO. 


415490 


419643 


420317 


4203170 


571005 


571021 


571053 
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UA 











♦♦it**************************************** 


30014300 










* 












30014310 


OSftl 





4C28 


05RA 


LOAD 


BSC 


L 


L0AD1, CZ 


BR 


IF CONTINUF LOAD 


30014320 


0SB3 





1810 






SRA 




16 






30014330 


05R4 





0400 


OSOD 




STO 


1 


PGMN 


RESFT PRGM NUMBER 


30014340 


05*6 





6700 


05 DC 




LDX 


L3 


/05DC 






30014350 


0588 





6F00 


015C 




STX 


LT 


NLOC 


RESFT RELOCATION 


30014360 










* 












30014370 


osra 


n 


4 400 


02F8 


L0AD1 


BSI 


L 


LOG! 


GO 


PRINT CD MSG 


30014380 


ossr 





0S10 






DC 




MTABLE4 






30014390 










• 








KFFP L0AD2 AT /058D 


30014400 


05811 





6700 


017A 


LOAD? 


LDX 


L3 


ILO 


REOUIREO BY LOADFR 


30014410 


05RF 


n 


6078 






LDX 




LOADR 


LOAD NEXT PRGM 


30014420 










* 












30014430 
30014440 






























* 


PRINT 


LOADER FRROP Mr 


S SAGES . 


30014450 
30014460 






























* 












30014470 


0590 


n 


6304 




CKSUM 


LOX 


3 


4 


SF1 


MSG NUMBER 


30014480 


0591 





C0C5 






LD 




MMFS4 






30014490 


0592 





7002 






MDX 




LDERM 


PRINT CKSUM MSG 


30014500 










* 












30014510 


0593 





6303 




OVCP 


LDX 


3 


3 


SFT 


MSG NUMBER 


30014520 


0594 





C0C3 






LD 




MMFST 






30014530 


0595 


n 


1B90 




LDERM 


SRT 




16 






30014540 


0596 





6200 






LDX 


2 









30014550 


0597 





4400 


04FC 




BSI 


L 


MFPR 


GO 


PRINT MSG 


30014560 


0599 





4C0O 


0220 


♦ 


BSC 


L 


MXFO 






30014570 
30014580 










******************************************** 


30014590 










♦ 






MONITOR 


ALPHA 


PHRASES 


30014600 










•*•**************•****•*»•**•*•••****»•*••*• 


30014610 










* 












30014620 


059B 





9A92 




ASIVD 


DC 




/9A92 


SW 


SWS 1NVLD 


30014630 


059C 





9A21 






DC 




/9A21 


S 




30014640 


0590 





2276 




AIVD 


DC 




/2276 


IN 


INVLO 


30014650 


059E 





B600 






DC 




/B600 


V 




30014660 


059F 





5F32 




ALO 


DC 




/5F32 


LD 


LD 


30014670 


05A0 





FFFF 






DC 




/FFFF 






30014680 


05A1 





0536 


. 


AFNO 


DC 




/0536 


F 


END 


30014690 


05A2 





7632 






OC 




/7632 


NO 




30014700 


05A3 





FFFF 






DC 




/FFFF 






30014710 


05A4 





1F5A 




ACKSP 


DC 




/1F5A 


CK 


CKSUM 


30014720 


05A5 





9AB2 






DC 




/9AB2 


SU 




30014730 


05A6 





7200 






DC 




/7200 


M 




30014740 


05A7 





FFFF 






DC 




/FFFF 






30014750 


05AB 





52B6 




AOVCR 


OC 




/52B6 


OV 


OVR CORE 


30014760 


05A9 





6221 






DC 




/6221 


R 




30014770 


05AA 





1F52 






DC 




/1F52 


CO 




30014780 


05AB 





6236 






OC 




Z6236 


RE 




30014790 


05AC 





FFFF 






DC 




/FFFF 






30014800 


05AD 





059A 




ASTRT 


DC 




/059A 


S 


START 


30014810 


05AF 





9F3E 






OC 




/9E3F 


TA 




30014820 


05AF 





6?9E 






DC 




/629E 


RT 




30014830 


05B0 





FFFF 






DC 




/FFFF 






30014840 


05B1 





9A92 




ASWS 


OC 




/9A92 


SW 


SWS 


30014850 


05B2 





9A21 






DC 




/9A21 


S 




30014860 


05B-5 





2156 




APID 


DC 




/2156 


P 




30014870 


05B4 





2232 






DC 




/2232 


10 




30014880 


05B5 





FFFF 






DC 




/FFFF 






30014890 


05B6 


n 


263E 




AHALT 


OC 




/263F 


HA 


HALT 


30014900 


05B7 





5E9E 






DC 




/5E9E 


LT 




30014910 


0SB8 





FFFF 






DC 




/FFFF 






30014920 


05B9 





76B2 




ADR ID 


DC 




/76B2 


NU 


NUM PID ADRS RELF 


30014930 


05BA 





7221 






DC 




/7221 


M 




30014940 


05BB 





2156 






DC 




/2156 


P 




30014950 


05BC 





2232 






DC 




/2232 


ID 




30014960 


05BD 





2121 






DC 




/2121 






30014970 



DATE 


02JAN66 


I5N0V66 


15JUN67 


100CT67 


010CT68 


10JAN69 


25JUL69 


PROG 10 


0300-2 


EC NO. 


4154 90 


41964 3 


420317 


42031 7D 


571005 


571021 


571053 
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05BF ^r-) ? 

05RF >>29A 

O5C0 "i 7J62 

OSCI 9 T6^l- 

05C? 1221 

OSC3 FFFF 



0156 
0156 



4C00 0219 

0158 4C00 0590 

01SA 4C00 0593 

015C 05DC 

01*0 1000 

015E 050C 

0078 

102« 

OSOC 

05DC 05 80 

NO STATFMfNTS Fl 



DC 
PC 

or. 

or 

or. 

oc 
* 
********** 

********** 



0-)G 
BSC 

esc 

BSC 

nc 
oc 
oc 



/3E32 
/b?<>H 
/?162 
/?6SE 
/1221 
/FFFF 



AO 

RS 

ri 

F 



LOADER/MONITOR INTERFACE 



NLOC 
RELF 



LOADR 
MFSO 



EQU 
EOll 
ORG 
ENO 
AGGEO IN THE 



/I 56 
L INL1Z 
L CKSUM 
L OVCR 

/50C • 

/OOOO 

/50C 

/0076 
/0028 
/50C 
L0A02 
ABOVE ASSEMBLY 



9LANK CO RET TO MONITOR 



NFXT AVAILABLE LOCATION 
RELOCATION FACTOP 
SET BASF AODPS 

START I OAO ADORS 

"ESQ « LOAOFR INPUT ARFA 



30014980 

30014990 

30015000 

30015010 

30015020 

30015030 

30015040 

30015050 

30015060 

30015070 

30015080 

30015090 

30015100 

30015110 

30015120 

30015130 

30015140 

30015150 

30015160 

30015170 

30015180 

30015190 

30015200 



ACKSK 

A01PS 

AOPLP 

AFNO 

AHALT 

AIVO 

ALO 

ALPHA 

ALPH1 

AnvC p 

API;) 

anp 

AQ1 

A92 

AQ3 

A3* 

AQ5 

A05A 

ASIVO 

ASTOP 

ASTRT 

ASWS 

PFGIN 

BGIN 

BGIN1 

BUSY 

CKSUM 

CR 

DEC 

0EC1 

0EC2 

0FC3 

OFLAY 

OELYC 

0FLY1 

9SW5 

FLOG 

FNO 

FPBY 

ERC 

ER1CK 

ERRI 

FRRI 1 

EKRI2 

ERRI3 

FPRI7 

E^RIfl 

ERROR 

FRSW 

FIVE 

FOUR 

GO 

HALT 

HEX 

HFXl 

HEX? 

IEPM 

IFR* 



15A4 

016 9 

05B9 

05A1 

05B6 

059D 

059F 

0303 

0396 

05AR 

05B3 

04A2 

04A4 

04A6 

04AR 

04AA 

0410 

0016 

059B 

0414 

05A0 

05B1 

0160 

OICF 

010C 

02EB 

0590 

02F6 

03R6 

03BF 

03C1 

03C5 

041F 

0425 

0421 

0413 

0301 

0164 

0215 

02F4 

0166 

0?A4 

02B8 

02C6 

0201 

02 OC 

02F5 

0162 

02F3 

03A? 

0354 

0408 

0209 

03A6 

03AA 

03A0 

0217 

0480 



05S7 

0200 
0449 
05 5 -i 

0211 0513 

0337 111« 033B f)13n 0399 

0394 039R 039F 03A5 

0558 

044C 0455 
0450 0466 
046E 0477 
047F 0488 
0490 0498 
0016 03FR 0413 

0555 

0015 0289 
0278 
0554 

0160 01D5 

01D9 

02AC 02FE 

0158 

0319 

0358 

0389 

03C8 

03C4 

0574 

0420 0421 

042 3 

03FC 

02B8 

02E0 

0288 02AB 02AE 02CR 02F7 

01.62 02A9 
02B3 



I r RR2 
ILIR 
fLSW 
ILTO 



04C0 
0015 
04A0 
044A 



020B 
0307 

02DE 02E? 
0500 

02AF 02C3 
0386 
03A8 
0'82 

02CF 020A 
0328 0330 
03B3 
03AC 

0284 04B2 
016B 016C 
0178 0179 
0185 0186 
0192 0193 
019F O1A0 
01AC 01A0 
018A 01BB 
04BA 

0288 03FO 
044F 0460 
0019 0459 



02C7 0200 02E9 0300 031C 



0333 035A 03B4 



048C 

0160 016F 016F 0170 0171 0172 0173 0174 0175 0176 01T7 

017A 017B 017C.0170 017E 01 7F 0180 0181 0182 0183 0184 

0187 0188 0189 013A 018B 018C 0180 018E 1 8F 0190 0191 

0194 0195 0196 0197 0198 0199 019A 0198 019C 0190 019E 

01A1 01A2 01A3 01A4 01A5 01A6 01A7 01A8 01A9 01AA 01AB 

01AF 01AF 0180 01B1 01B2 01B3 01B4 01B5 01B6 01B7 01B8 

0180 01BE 0285 04*6 04BE 

0576 

0471 0482 049} 04B1 



DATE 
EC NO. 



02JA*16r> 
41 54»0 



I5N0V6^ 
4 1964 3 



15JUN67 
420317 



lOoru 7 
42031 70 



01 Of T6« 
571005 



10JAN69 
571021 



25JUL69 
571053 



PROG 10 
PAGE 



0300-2 
12 



OATF 
FT. NO. 



02J4N66 
4 154 90 



1 6N0V66 
41964 3 



15JUN67 
420317 



100CT67 
4203170 



010CT68 
571005 



10JAN69 
■571021 



25JUL69 
571053 



PROG ID 
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ILT1 
ILT2 
. ILT3 
ILT4 
1LT5 
ILO 
III 
IL2 
IL3 
114 
115 
INL1Z 
IOBSY 
IXFVC 
K0001 
K0009 
K007E 
K007F 
K0080 
K8000 
LDERM 
LEND 
LINE 
LOAD 
LOADR 
L0AD1 
L0AD2 
LOG 
LOGBY 
LOGI 
LOGR 
LOGT 
LOG 10 
LOGU 
L0G12 
LOG* 
L0G5 
LOGT 
LOGS 
L0G9 
MALPH 
MCDSW 
MCINT 
NCIST 
MCI1 
MCI2 
MCX2 
MEND 
MERR 
MESO 
MKBR 
MLOG 
ML0G2 
HLSCF 
MMBSY 
MMESF 
HUE SO 
MMES1 
MMES3 
MHES4 
MHES7 
MNR 
MMRBS 
MMR1 
MPID 
MPIOT 
MRBS 
MRBSB 



045B 

046C 

04 7D 

048E 

03F9 

01 7» 

01 8A 

019A 

01AA 

018A 

01BE 

0219 

02F5 

0019 

0J7C 

0209 

0274 

0207 

0206 

0205 

0595 

035C 

02F7 

0581 

0078 

05 8 A 

058D 

0163 

0167 

02F8 

02 B9 

0300 

0349 

034B 

0351 

0305 

030A 

0315 

0334 

0345 

05 OA 

04DA 

04C6 

04AE 

04CA 

04D2 

04AF 

0426 

04FC 

0028 

049E 

04F3 

0507 

0213 

0216 

0449 

0200 

0554 

0556 

0557 

0558 

04E2 

04EB 

04EF 

020A 

01CE 

0519 

0542 



0009 

OOOA 

OOOB 

001D 

OOOD 

01FC 

0464 

0475 

0486 

0496 

0401 

0156 

0167 

021A 
0297 
010A 
024E 
0222 
01F1 
01E4 
0592 
0350 
02C9 
0447 
01FE 
0581 
05DC 
04F7 

0163 

037 B 

022A 

034F 

035B 

0346 

02EA 

02BD 

0317 

0327 

033E 

04F4 

0385 

01B9 

04CD 

04D5 

04A0 

04CE 

0164 

04C3 

0315 

0400 

01FA 

04F5 

01CE 

02EC 

0433 

01F9 

0566 

0562 

0591 

0594 

04DC 

01BC 

04E3 



001 A 046A 
001B 047B 
00 1C 048C 
049C 0542 0549 
0414 0419 
0453 058D 



021D 0291 0383 

0287 0293 02BA 02FD 0305 0361 



0296 0299 



0231 0235 04CB 0524 

0356 03A4 
0323 
056F 
058F 



026E 029C 02FB 058A 

0360 0362 036B 036C 036E 0371 0374 0376 037D 037E 03SA 03D2 
03CE 

0349 

0309 

0320 



04 FO 
04C7 
022D 
04 D2 

04E1 
04O3 

0504 
0318 

0436 
04 F6 
0230 



04C8 04CF 0400 04EF 
0407 



04EE 04F2 



057D 0597 
035E 03D0 

04FA 0567 

04F9 04FE 04FF 0502 

04EC 



057A 



028D 04E5 04E9 



01E9 0237 0529 
04EB 052D 054D 



& 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15JUN67 
420317 



100CT67 
420317D 



010CT68 
571005 



10JAN69 
571021 



25JUL69 
571053 



PROG ID 
PAGE 



0300-2 
13 





MRBSC 


054B 0540 




MRBSD 


054F 0014 0550 




MRBSE 


0579 052B 




MRBSF 


057F 0578 




MRBS3 


0536 052F 




MRBS4 


0539 0532 




MR8S5 


055A 054B 




MRBS6 


0564 0550 




MRSRT 


0280 0004 




MSWO 


020D 0166 0220 0225 0255 0267 0281 02C0 042A 




MSWOX 


0270 0221 0244 0247 




MSW1 


020E 




MSW2 


020F 0530 0569 056C 




MSW3 


0210 




MTABL 


050C 01D3 0107 01DF 01ED 0431 04B5 04B9 051E 0530 0533 053C 
055F 058C 




MTMR 


040F 04DE 




MXEQ 


0220 023C 02EE 0572 057F 0599 




MXEQ1 


0233 0273 




MXEQ2 


023D 0168 0239 023A 0265 02A5 02C1 02F9 0427 




MXEQ3 


0252 025A 0263 




MXEQ4 


0254 0249 




MXE05 


0258 0241 0253 




MXEQ6 


0261 0259 




MXEQ7 


0271 023F 0256 025D 026D 02A0 02A3 02E3 043B 043F 04C4 




NEGS 


03ED 03BB 




NLOC 


01 5C 0445 0588 




ORGO 


0018 021E 




OVCR 


0593 015A 




PGMN 


050D 01D0 01E1 0438 0441 0584 




PIOWS 


02F0 0302 0304 030E 0310 0329 032C 0331 




RDBS 


0552 01EB 051D 




RDBSW 


041C 0400 




RELF 


015D 0102 




ROKB 


01BC 028F 04E7 04FO 




RQTY 


01BB 0368 04DF 




RSTX 


02BF 02B6 0308 




RTNSW 


0165 0227 026A 




SADRS 


041E 0415 041C 041F 




SAO 


0418 0403 040E 0424 




SELCT 


0203 01F5 01F6 0230 




SMSG 


0293 0275 




SMSGA 


0275 0250 0290 02A1 




SMSG1 


02A1 0295 




SSO 


0458 044E 




SSI 


0469 045F 




SS2 


047A 0470 




SS3 


048B 0481 




SS4 


049B 0492 




START 


0161 




STOP 


0404 03FF 0404 0416 




ST0P1 


0406 0408 




STPIO 


02 7A 029B 




STPSH 


0412 0280 0405 0406 0409 040C 




STRSW 


027B 0223 0229 024B 




STRT 


0264 0161 




SVKB 


01B0 049E 




TAflL 


03DA 03U 




TEMPB 


0202 0108 01E8 




TEN 


0307 03C2 




TERM 


03F0 0379 




TERMX 


0218 025C 




TLOOP 


037D 038F 




TYP 


0362 0364 




TYPI 


0214 02A7 02B1 02CD 0381 




TYPl 


036C 0377 0388 038E 




TYP2 


0376 0370 




TYP3 


037F 038C 


DATE 


02JAN66 15N0V66 15JUN67 100CT67 010CT68 10JAN69 25JUL69 


EC NO. 


415490 419643 420317 42031 70 571005 571021 571053 



-1 



u 



~> 



-J 



■J 
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0300-2 
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J 
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.'191 200 
14 



TYP4 


(1335 


037F 






TYP5 


0390 


0366 


0391 




UTLTY 


0014 


0544 


0546 




WC 


03F2 


0341 






WCNT 


03D8 


03A*> 


0381 


0387 038» 03BF 03C.9 


XFVC 


0008 


0218 






XLFCT 


0204 


Q1E6 


01F3 


023? 0233 0236 0?t>B 0518 


XSC1 


04AC 


048 7 






XS1 


0455 


04AC 






X30 


0456 


0440 






X31 


0467 


045E 






X32 


0478 


046F 






X33 


0439 


0480 






X34 


0499 


0491 






X8000 


0512 








ZEROS 


0208 


0270 







END OF ASSEMBLY 



LAST PAGF 



DATE 
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THE PROGRAM PERFORMS THE FOLLOWING FUNCTIONS ON THE C.E. 2315 DISK PACK. 

1. WRITES SECTOR IDENTIFICATION ADDRESS (S1D> AND PROPER PATTERNS ON ALL 
CYLINDERS EXCEPT 90 THRU HO INCLUSIVE. PROPER PAfTfcRNS ARE — 1313 
ON SECTORS 0,2,5 ANO 7 AND E5E5 ON SECTORS 1,3,4 AND 6. 

2. READS AND VERIFIES EVERY SECTOR IDENTIFICATION ADDRESS WRITTEN. ANY 
MISSING OR ERRONEOUS SECTOR IDENTIFICATION ADDRESS CAUSES THE PROoRAM 
TO TERMINATE AND RESTART THE ENTIRE INITIALIZATION PROCESSES AGAIN. 

3. WRITES THE SID, THE C.E. IDENTIFICATION -CEDC, THE CYLINDER ERROR 
TABLE AND THE PROPER SECTOR PATTERN ON CYLINDER 199 SECTORS 3 AND 
SECTOR 7. THE CYLINDER ERROR TABLE CONTAINS ALL THE SECTOR ADORESSES 
FOR EACH CYLINDER THAT HAS UNREADABLE AREAS. (EITHER ADDRESS OR DATA) 
WHEN A BAD SECTOR IS FOUNDt ALL THE OTHER SECTOR ID'S IN THAT 
CYLINDER ARE ALSO RECORDED IN THE CYLINDER ERROR TABLE. 

REQUIREMENTS 

2.1*** PROGRAM REQUIREMENTS 

1130 DIAGNOSTIC MONITOR II 

2.2*** EQUIPMENT REQUIREMENTS 



PRINTOUTS. 
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2.3*** 

1. 
2. 
3. 



AN 1131 CPU WITH PROGRAM INPUT FROM CARD, PAPERTAPE READER 

OR DISK. 

A OISK STORAGE DRIVE AND A 2315 CE OISK PACK. 

AT LEAST 2350 AVAILABLE POSITIONS OF CORE STORAGE FOR THIS 

PROGRAM. 

EQUIPMENT SETUP 

TURN POKER ON. 

PLACE THE 2315 CE DISK PACK IN THE DISK DRIVE TO BE TESTED. 
WAIT LONG ENOUGH FOR THE MACHINE TO BECOME READY. 
MACHINE MUST BE READY PRIOR TO EXECUTING PROGRAM. 



NOTE - - 00 NOT RUN THIS PROGRAM IN OVERLAP MODE. 
1. PURPOSE 

THE PURPOSE OF THIS PROGRAM IS TO PREPARE THE 2315 CE OISK PACK FOR USE BY 
THE DISK DIAGNOSTIC TEST PROGRAM. THIS PROGRAM IS RUN NORMALLY AT 
INSTALLATION TIME, AND WHEN THE PACK OATA HAS BEEN DESTROYED OR CHANGEO. 
IN. THIS PROGRAM ALL FILE ADDRESSES AND THE PROPER SECTOR PATTERNS ARE 
WRITTEN. THE EXCEPTIONS ARE CYLINDERS 90-110 INCLUSIVE. 
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3. OPERATING PROCEDURE 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEOURE FOR 
DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALT AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5). 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. SELECT PROGRAM CONTROL OPTIONS. 

5. SELECT DRIVE TO BE RUN FROM TABLE AT 3.2.3.1. 

6. IF WAIT 30CE OCCURS, SELECT CONTROL AS PER SECTION 3.2.4.2. 

NOTE — THIS WAIT LOOP IS A SAFETY LOOP TO PREVENT INITIALIZING A 
DIMAL PACK OR CUSTOMER PACK UNINTENTIONALLY. E0B62/E0863 CAN 
OCCUR ON A VIRGIN PACK OR ON AN ERROR CONDITION. THE PROGRAM WILL 
THEN BRANCH TO THE 30CE WAIT. THEREFORE, CHECK PRINTOUTS BEFORE 
PRECEEDING. ANALYZE ERROR ADDRESSES, IF ERROR OCCURED, BEFORE 
PROCEEDING WITH INITIALIZATION. 
****** 



3.2*** PROGRAM OPERATION. 

NOTE— DO NOT RUN THIS PROGRAM IN OVERLAP NODE. 



3.2.1 PROGRAM CONTROL - FUNCTION 

1. SET SWITCHES 0-7 TO 01. 

2. - SET SWITCHES 8-15 AS DESIREO. 



sw 



FUNCTION 



8 RESTART 

9 ROUTINE START MESSAGE 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



3. PRESS INT RED KEY ON CONSOLE. 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 
1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



2. 



3.2.3 



•SEEK-WRITE-READ' 
ADDRESSES AND 
TEST PATTERNS 
'REVERSE READ' 
VERIFIES EACH 
VALID DISK ADORESS 
WRITE CE H1ST0K 
DATA ON CE CYLINDER 
SECTOR 3 AND 7. 



NORMAL ROUTINES- 
THE PROGRAM STARTS WITH 
ROUTINE 1, RUNS EACH 
ROUTINE IN SEQUENCE 
THEN TERMINATES AFTER 
ROUTINE 3. 



NOTE 
IF A COMPLETE PASS OF THE PROGRAM WITH A NORMAL TERMINATION IS NOT 
ALLOWED ANO IS NOT THE FINAL RUN, THE DISK PACK WILL NOT OPERATE 
PROPERLY WITH THE DIAGNOSTIC TEST PROGRAM. IT IS RECOMMENDED THAT 
THE LOOP ROUTINE FUNCTION NOT BE USED WITH THIS PROGRAM. 

C. PRESS INT REO KEY ON CONSOLE. 

TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 

DISK UNIT SELECTION - FUNCTION 2 



S»n D Ii N ?J:LS. , f K .?5 IVE " AV BE SELECTEO AND TESTED BY TURNING ON THE 
PROPER CONSOLE BIT. 

1. TO SELECT DISK 

A. SET SWITCHES 0-7 TO 81. 

B. SET SWITCHES 12-15 FOR DESIREO DRIVE UNIT. 



SW 



ALL OFF 
15 
14 
13 
12 



DRIVE UNIT 



MAIN DRIVE 
FIRST DRIVE 
SECOND DRIVE 
THIRO DRIVE 
FOURTH DRIVE 
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NOTE — SELECTING A DISK THAT IS NOT' ATTACHED TO THE SYSTEM-WILL 
NOT CAUSE AN E0802 (NOT RDY) MESSAGE BUT WILL CAUSE AN 
E0801 (LOST INTERRUPT MESSAGE.) 

2. PRESS INTERRUPT REQUEST KEY. 

3. INITIALIZING MORE THAN ONE DISK PACK PER PROGRAM LOAD WILL REQUIRE 
SELECTING THE NEW DISK UNIT ( SW FNC 2) PRIOR TO RESTARTING THIS 
PROGRAM. 

4. TO RESTART — PRESS IMMEDIATE STOP, RESET AND START. SELECT NEW 
DISK UNIT VIA CONSOLE ENTRY FNC 2 AND RESTART PROGRAM WITH MONITOR 
RESTART CONSOLE SWITCH B8 AND INT REQ BUTTON. 

** 
3. 2. 4 MISCELLANEOUS CONTROL - FUNCTION 3 

1. SET SWITCHES 0-7 TO CI. 

2. SET SWITCHES 8-15 AS DESIRED. 

SW FUNCTION 

12 BOTH BITS 12 AND 13 TOGETHER 

13 SIGNIFIES THAT 

THE CE RECOGNIZES THAT THE DISK 
IS EITHER A DIMAL, VIRGIN, OR 
CUSTOMER PACK AND IT IS TO BE 
INITIALIZED. 



14 
15 



BYPASS RETURNING ARM TO HOME BETWEEN RTNS. 

SEMI-AUTO I/O AREA SCAN. DISPLAYS ONE WORD 
IN THE ACCUMULATOR EACH TIME THE START KEY 
IS PRESSED AFTER AN E0806 MESSAGE. THE 
COUNT IS DISPLAYED ON THE FIRST WAIT. (30DA) 
SCAN RT EXITS AFTER I/O WORD 321 OR FNC 3 
BIT 15 OFF + CONSOLE INTERRUPT IS PRESSED. 



3. PRESS INT REQ KEY ON CONSOLE. 

** 



DATE 


02JAN66 


15JUN66 


15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490 


415490C 


419643 


420317 


420403 



PROG ID 
PAGE 



0308-* 
3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE U30 SYSTEM 
2315 DISK INITIALIZATION 



PART NO. 
PAGE 



2191218 
3A 



3.3*** 
3.3.1 



PROGRAM HALTS 
NORMAL HALTS 



.HALT NO 


DESCRIPTION 


RESTART 


.(B REG) 




ACTION 


. 3001 


PROGRAM STOP OR ADDRESS STOP . 


PRESS START 


. 3002 


HALT ON ERROR 


DISPLAY MODE-PRESS START 
RUN MODE - PRESS START 


. 3033 


WAIT FOR DISK UNIT SELECTION 


SEL DISK (FNC 2) 


. 30CE 


THIS IS A SAFETY WAIT 


SEE 3.2.4 FOR 




TO NOTIFY THE CE THAT THIS 


CONTROLS IN ORDER TO 




IS A DIMAL, CUSTOMER OR 


PROCEED WITH 




VIRGIN PACK. 


INITIALIZATION... 
FUNCTION 3 BITS 12-13 


. 30ED 


THIS SIGNIFIES THE END OF 


PRESS IMMEDIATE 




THE PROGRAM. THIS WAIT IS 


STOP, RESET AND START 




NECESSARY FOR A DIMAL PACK 


TO RECOVER FROM THIS 




TO PREVENT THE PROGRAM FROM , 


INTENTIONAL PROGRAM 




RETURNING TO THE DISK VIA 


END LOOP TRAP. 




THE MONITOR LOAD TO LOOK FOR , 






THE NEXT PROGRAM CONTROL 
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3.3.2 



ERROR HALTS 



.HALT NO 
.IB REG). 


. DESCRIPTION 


RESTART 
ACTION 


. 30F1 


CHECK SUM ERROR ON FIRST 
CARO OF LOADER 


! RELOAD '. 


. 30F2 


READER DSM ERROR WHEN 
LOADING LOADER 


'. RELOAD '. 


! 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD '. 


. 30F4 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS 
RUN OUT IN FRONT OF 
REMAINING DECK ANO PRESS. 
START. 


. 30F6 


. MONITOR DID NOT LOAD 


RELOAD \ 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAO. * 


. 30F8 . 


READER NOT READY 


MAKE READER READY 


. 30F9 , 


INVALID INTERRUPT WHICH WILL ' 
NOT RESET 


PRESS RESET ANO START I 


. 30FA '. 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER \ 
OR NOP THIS WAIT 


. 30DA . 


DISPLAY I/O AREA WORD 


PRESS START FOR NXT WO. \ 
FNC 3 B15 OFF ♦ CNSL 
NTRPT TO END DISPLAY. 



THIS PROGRAM HAS ONE HANGUP WAIT 70FF. THIS OCCURS ON AN UNEXPECTED 
INTERRUPT OR IF THE INTERRUPT DOES NOT RESET. 

****** i 

3. A*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AN A0801 MESSAGE WILL INDICATE PROGRAM TERMINATION. AN A08ED 
WILL INDICATE A NONSCHEDULED TERMINATION. GENERALLY THE RESULT 
OF ILLEGAL OPERATION PROCEDURES. RECHECK CAREFULLY. 

NOTE 

IF THE PROGRAM IS NOT ALLOWED TO MAKE A NORMAL TERMINATION, 
THE DISK PACK WILL NOT BE ACCEPTED BY THE FUNCTION TEST. 

****** 
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3.5*** 



RESTART 



1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SW.ITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 

****** 



4. PRINTOUTS 



ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 
(MESSAGE) 



APPNN OORR AAAA 

OR 
EPPNN OORR AAAA 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE P1D OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY MONITOR OK 
08 FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 

4.1*** STATUS MESSAGES 



AOOOO 



A0001 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEUUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 
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A0800 OOOR AAAA 



4.2*** 



ERROR MESSAGES 



ROUTINE START MESSAGE - IF SWITCH 9t FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE ANO AAAA IS THE STARTING 
ADDRESS. 



A0801 OORR AAAA 



PASS' SEEKS RESKS 
WRITE SFTER HRDER 
READS SFTER HRDER 



THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 

*******»**»»*****»***»**♦*»* **********»******«*»»»*«*** 

* THE DISK DSW * 



COMPLETE PASS OF PROGRAM AND STATISTICAL INFORMATION. THE 
STATISTICAL INFORMATION IS A TOTAL FOR ALL OF THE PASSES INDICATED 
BY THE PROGRAM PASS COUNT. ALL DATA IS GIVEN IN THE DECIMAL FORM. 



A0«03 OORR AAAA SEL FILE 

SELECT DISK UNIT PROGRAM IS TO OPERATE WITH. (SEE 3.2.3-1) 



A0804 OORR AAAA 



THIS MESSAGE IS ALWAYS PRECEEDED BY TWO E0808 MESSAGES. THE TWO 
E0808 MESSAGES INDICATE THAT THE WRONG ADDRESS WAS READ TWICE AFTER 
THE INITIAL SEEK. HOWEVER, REZEROING THE ARM AND RESEEKING THE 
PROPER ADDRESS WAS OBTAINED. THE PROGRAM COUNTS THIS AS ONE SEEK 
ERROR. 



AOBDC OORR AAAA 



INITL DIMAL PACK 



E0001 



THIS MESSAGE IS ACCOMPANIED WITH A 30CE WAIT. IT IS TO INFORM THE 
C.E. OF THE 30CE INITIALIZATION WAIT CONDITIONS. SEE 3.2.4 
BEFORE PROCEEDING. 



* 






• 
* 
* 


BIT 


DESCRIPTION 





ANY ERROR 


* 


1 


OP COMPLETE 


* 


2 


NOT READY 


* 


3 


BUSY 


* 


4 


CARRIAGE HOME 


* 


5 


NOT USED 


• 


6 


NOT USED 


* 


7 


NOT USED 


* 


8 


NOT USED 


* 


9 


NOT USED 


* 


10 


NOT USED 


* 


11 


NOT USED 


• 


12 


NOT USED 


* 


13 


NOT USED 


* 


14 


SECTOR HI COUNT 


* 


15 


SECTOR LO COUNT 


**••*••***»**•*****•*•*•*****• 






SMS INVLO 






xxxx 



* 

* 
* 
* 
» 
« 
* 
* 
* 
* 

* . 

* 
* 
« 
* 



THE SETTING OF SWITCHES 4-7 OID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



AObED OORR AAAA 



RT »N/A (OR) ARM NOT HOME (OR) END INITL OK 



END OF DISK DIAGNOSTIC. AN 'A08E0* FOLLOWING AN 'E0803' 

INDICATES THAT THE ACCESS ARM DIO NOT GO TO HOME DURING 

INITIALIZATION OF PROGRAM. >A08E0< ALONE MEANS A ROUTINE WAS 
SELECTED WHICH IS NOT AVAILABLE. 



AOBAO OORR AAAA 



ADDR RECORDED IN ERR TBL 



THIS IS THE CYLINDER ERROR TABLE (CET) PRINTOUT. THE ADDRESSES HERE 
ARE IN ERROR. ONE BAD SID (SECTOR ID) WILL CAUSE ALL EIGHT AODRESSES 
FOR SAID CYLINDER TO BE INCLUDED IN CET. FOUR LINES OF CET OUTPUT 
EOUAL A BAD PACK; (SEE E0866) ADRO TO A0R7 ARE THE BAD ADDRESSES 
(SECTORS 0-7) OF SAID CYLINDER. SEE COMMENTS. 
*♦»»»» 



E0003 OVR CORE 

THE PROGRAM WHICH THE LOAOER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



E0004 . CKSUN 

A CHECK SUM ERROR WAS DETECTED WHILE LOAOING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKEO UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. . 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 
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E0005 OOON XXXX '. 

THIS ERROR HILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
HAS NOT CORRECT. N IS THE INTERRUPT LEVEL ANO XXXX IS THE 
ILSH. THIS PRINTOUT HILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSI. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT 

E0801 OORR AAAA INST DSH FROM TO READ 

INTERRUPT HAS LOST. PROGRAM AUTOMATICALLY RETRIES TO EXECUTE ROUTINE. 

NOTE 

SELECTING A FILE UNIT THAT IS NOT ATTACHED TO THE SYSTEM HILL NOT 
CAUSE AN 'E0802' (NOT REAOY), RESSAGE, BUT HILL CAUSE AN 'E0801* 
(LOST INTERRUPT) MESSAGE. 



E0802 OORR AAAA INST DSH NOT RDY 

FILE NOT READY, BUSY, OP COHPLT OR ANY ERROR IS ON. 



E0003 OORR AAAA 



INST DSH 



HOME BIT IN DSH FAILED, OR MECHANICAL RESTRICTION IN ACCESS ARM. 
SEEK-1 CYLINOER HAS GIVEN 203 TIMES AND ARM IS NOT AT HOME YET, OR 
DSH DOES NOT HAVE BIT 4 ON. DSH SHOULD BE 080X. X EQUALS - 3. 



E0«04 OORR AAAA 



INST DSH ADOR RECORDED IN ERR TBL 



DESIRED ADDRESS IS IN THE TABLE OF BAO ADDRESSES. 
NEXT CYLINDER IS TRIED. 



E0805 OORR AAAA 



INST DSH DSH ERR 



DSW HAS BIT/BITS ON THAT SHOULD NOT BE ON AT THIS TIME. BRANCH TO 
MONITOR END ROUTINE. 



E0806 OORR AAAA INST DSH AODR DATA' 

DSH ERROR BIT/BITS ON AFTER A READ OR. HRITE. SOFT RD/HR ERROR. 
NOTE ... SEE FNC 3 (3.2.41 TO SCAN I/O AREA! 



E0807 OORR AAAA 



INST DSH -ADDR DATA 



HARD READ OR HRITE ERROR. INOICATES TEN SOFT READ/HR1TE RETRIES HITH 
FAILURE STILL PRESENT. DSH INOICATES ERROR BITS. SEE E0806. 



E0808 OORR AAAA 



INST DSH FROM TO READ 



ACTUAL ADDRESS READ, AND THE DESIRED ADDRESS 00 NOT AGREE. (READ, 

o!c?:^ ECK FUNCT, ° N S ONLY). FIRST E0808 HILL CAUSE A RE-READ OF THE 

OESIREO ADDRESS. SECOND E0808 HILL CAUSE A RE-ZERO OF THE ARM AND 
A RE-SEEK AND A READ OF THE DESIRED ADDRESS. 



E0809 OORR AAAA 



INST DSW FROM TO REAO' 



THIS MESSAGE HILL ALWAYS BE PRECEEDED bY TWO E0B08 MESSAGES. THE 
E«aV?° l H J ?r ES T ' RED AO0R "SES STILL DO NOT AGREE. (SEE 0808 
<!«c AGE ;' „IcL£ CTU * L ADDRESS " OF THE TkO E0808 MESSAGES ARE THE 
AUu, E on^ E J, A ,^ tK ERR ° R M ° ST UKfcLY °"URED. HOWEVER, THERE 
ERROR OR ERRORS ° F * REA °* WR1Tt ' ° R ° 1SK P * CK REC ° Rufc0 "'A 



E0815 OORR AAA 



INST DSH FROM TO READ 



IrTii.r lln tu^c!^" BE PRECEED E0 BY TWO E0»08 MESSAGES. ThE 
icicle ?° J M f 0£SIRED ABYSSES STILL DO NOT AGREE. (SEE E08U8 
c E mc AGE ;' IrL ACTU * L * D0R ESS OF THE TWO E0B08 MESSAGES ARE NOT THE 
SAME. THEREFORE, A READ ERROR MOST LIKELY OCCURED. HOWEVER, ThERE 

ERROR OR" ERrSrI! BIUTV "' * ""' WRIT6 ' ° R DISK "*" R "ORDED DATA 



E0820 OORR AAAA 



INST DSH FROM TO REAO 



WRONG ADDRESS READ, DESIRED ANO ACTUAL ADDRESS DO NOT AGREE. THIS 
* o A act I UK t KKOR * 



E0821 OORR AAAA 



INST DSH FROM TO READ 



CHE A CK S pSuT E S cSrEFULLyT' °"' AD ° RESS * 0R "'* "" " 1N '^ 



E0860 OORR AAAA 



INST DSH FROM TO READ 



HRITE ERROR RETURN. THIS OCCURS IN ROUTINE NO. 01, WHICH 
PLACES THE PROPER PATTERN ON THE DISK. 



E0861 OORR AAAA 



INST DSH FROM TO READ 



READ ERROR RETURN. THIS OCCURS IN ROUTINE NO. 01, UH1CH 
VERIFIES THE PROPER PATTERN ON THE DISK. 



E0862 OORR AAAA 



INST DSH FROM TO READ 



ERROR OCCURED ON READING SECTOR OF CE TRACK. THIS REAO TESTS FOR A 
DIMAL PACK. PROGRAM TRIED TWO TIMES TO READ THIS SECTOR. CE MAY 
PROCEED AFTER CHECKING PRINTOUTS (SEE 3.1 #6 1 AS THE PROGRAM HILL 
BRANCH TO THE 30CE WAIT FOR INITIALIZATION CONTROL. RE-READ IS VIA A 
RE-SEEK OPERATION. ADDRESS DESIRED + ACTUAL DO NOT AGREE. 



E0863 OORR AAAA 



INST DSW FROM TO HEAD 



ERROR OCCURED ON READING SECTOR 7 OF CE TRACK. THIS READ TESTS FOR 
CE PACK. PROGRAM TRIED TWO TIMES TO READ THIS SECTOR. CE MAY 
PROCEED AFTER CHECKING PRINTOUTS (SEE 3.1 *6 ) AS THE PROGRAM HILL 
BRANCH TO THE 30CE WAIT FOR INITIALIZATION CONTROL. RE-READ IS VIA 
RE-SEEK OPERATION. ADDRESS DESIRED + ACTUAL DO NOT AGREE. 



OATE 


02JAN66 


15JUN66 


15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490 


415490C 


419643 


420317 


420403 
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DATE 


02- J AN 66 
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15JUN6 7 
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EC NO. 
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419643 


420317 
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E0866 OORR AAAA 



INITL BAD PACK 



FOUR OR MORE CYLINDERS HAVE BAD SECTORS. THIS PACK IS THEREFORE BAD, 
ACCOROING TO THE DESIGN SPECIFICATIONS. DOES NOT CONTAIN 200 GOOD 
CYLINOERS. 



E0B75 OORR AAAA 



INST DSU FROM TO READ 



TRIED TWICE TO SEEK CE CYLINDER BY REZEROING ARM. FAILED TWICE. 
PROGRAM BRANCHED TO MONITOR ENO. 



E0U77 OORR AAAA 



•CE CYL BAD 



THIS MESSAGE INDICATES THAT THE DESIGNATED 

•CE' CYLINOER 1199 ) ADDRESS 0638 IS BAD. IT HILL BE NECESSARY TO 

PATCH THE PROGRAM. CHANGE ADDRESS (0638) TO SOME OTHER 

UNUSED ADDRESS. SUGGESTED ALTERNATE ADDRESS IS 0630 (CVLINOER 1981. 

REFER TO LISTING FOR THE CORE ADDRESS OF THE OISK ADDRESS CONSTANT. 

PATCH THAT CORE ADDRESS WITH '0630». CORE ADDRESS IS FOUND IN 

LISTING AT LABEL 'OCT' MINUS 40. 'OCT' IS FOUND IN CROSS REFERENCE 

LIST AT THE END OF THE LISTING. 



EOtJCE OORR AAAA 



INST DSW FROM TO READ 



ERROR IN WRITING CE OISK SECTORS 3 AND 7. THESE SECTORS CONTAIN 
SECTOR ID, •CEDC ID WORD, NUMBER OF ERROR SECTORS, CYLINDER ADDRESS 
ERROR TABLE, AND THE PROPER PATTERN. 



4.3*** SPECIAL NOTES 



A SOLID FAILURE TO 



NOTE A. HARD WRITE (OR READ) ERRORS 
WRITE ON THE DISK. 

IF THE TEST PROGRAM DETECTS THAT IT CANNOT WRITE 
ON THE DISK, IT WILL REPEAT THE OPERATION NINE 
TIMES. IF ALL TEN ATTEMPTS TO WRITE END IN A 
FAILURE, -THE PROBLEM IS DEFINED AS A 'HARD WRITEIOR READ) 
ERROR. • 

NOTE B. SOFT WRITE (OR READ) ERROR - AN INTERMITTANT FAILURE 
TO WRITE ON THE DISK. 

IF THE TEST PROGRAM DETECTS THAT IT CANNOT WRITE 
ON THE DISK, IT WILL REPEAT THE OPERATION UP TO NINE TIMES. 
IF ONE OF THE TRIALS IS SUCCESSFUL, THE PROBLEM 
IS CALLED A 'SOFT WRITE (OR READ) ERROR. 1 

NOTE C. DISK ADDRESSES ARE GIVEN IN DECIMAL FORM IN ALL MESSAGES. I.E. A 
FROM, TO, READ ALL APPEAR IN THE FORM «CCCS' WHERE 'CCC» IS THE 
CYLINDER VALUE IN DECIMAL AND «S» IS THE SECTOR VALUE IN OECIMAL. 
SECTOR 'S' IS ACTUALLY SECTORS AND HEAD. 



5. COMMENTS 

5.1*** DISK ADDRESSING SCHEME 

THE FOLLOWING IS THE FORMAT FOR THE OISK ADDRESSING SCHEME -"- 



HEX WD N 


N 




N 




N 




BITS 12 3 


4 5 6 7 




8 9 10 


11 


12 13 14 15 




CODE X X X X 


X C C C 




C C C 


C 


C H S S 




CYL. POS CNT 
READ 
DOWN 


1 

2 6 3 
8 4 2 






1 

6 8 4 




2 





1 




C = CYL 


(NDER 


H 


= HEAD 




S = SECTOR 


X = NOT USED 



THE LOWEST CYLINDER ADDRESS IN HEX * 0000 

THE HIGHEST CYLINDER ADDRESS IN HEX = 0657 

THE ADDRESSES ARE CYLINDER 0, HEAD 0, SECTOR TO CYLINDER 202, 

HEAD I, SECTOR 3. 

THE ABOVE ADDRESSING FORMAT IS USED FOK ALL THE SECTOR IDENTIFICATION 
WOROS (CALLEO SID). IT APPEARS ON THE DISK AND AS THE FIRST 
WORD OF DATA TO BE READ OR WRITTEN TO OR FROM CORE. IT IS THE 
SECOND WORD OF THE FIELD ADDRESSED BY THE 10CC. (THE FIRST WORD OF 
SAID FIELD IS THE WORD COUNT) 

A. TO CONVERT HEX DISK ADDRESS WORD TO DECIMAL. PERFORM THE 
FOLLOWING USING SECTION 'B* BELOW 

1. FIND CORRESPONDING C.V. FOR EACH N IN THE ADDRESS. 

2. ADD THE C.V.'S TOGETHER. 

3. C.V. TOTAL IS THE ACTUAL CYLINDER NUMBER IN DECIMAL. 

4. FIND CORRESPONDING S.N. FOR UNITS N OF HEX ADDRESS. 

5. S.N. IS THE ACTUAL DECIMAL HEAD - SECTOR NUMBER. 

EXAMPLE — 

CONVERT 03BD TO DECIMAL CYLINDER AND SECTOR NUMBERS. 



SOLUTION — FROM TABLE 
3 e D C.V. 



S.N. 



• • • 




• • • 












LINOER 


119 



SECTOR 



DATE 
EC NO. 



02JAN66 
415490 



15JUN66 
415490C 



15NOV66 
419643 



15JUN67 
420317 



15FEB68 

420403 
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0308-* 
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DATE 


02JAN66 


15JUN66 


15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490 
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419643 


420317 


420403 
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B. HEX TO DEC ADDRESS CONVERSION 



* DISK ADDRESS C.V. = CYLINDER VALUE * 

* HORD IN HEX ^ 

* N N N S * N * = SECT0R NUMBER * 
t ZERO NOT USED . . . . I * . . . NNN = HEX ADDRESS FROM ft 

* ... 000 TO 657 * 

: : : •••...... . 



* 
* 
* 
* 
* 
* 

* 

* 
« 

« 
« 
* 

« 
» 
* 
« 
* 
* 
ft*******************,,.*^ 



ftftftftftftftftft*****,,*^,,^,,^^^^,,,^^ 



C.V. 



00 



32 



64 



96 



4 = 128 



160 



6 = 192 



ft 
* 
ft 
* 
ft 
ft 
ft 
ft 
ft 
* 
ft 
ft 
ft 
* 
* 
ft 
* 
* 
ft 
ft 
ft 



ftftftftftftftftftftftftftftftftftftftft,,,,***^*,^ 

ft 



C.V. 






m 





1 


■ 


2 


2 


s 


4 


3 


E 


6 


4 


M 


8 


5 


X 


1.0 


6 


» 


12 


7 


= 


14 


8 


RE 


16 


9 


* 


18 


A 


* 


20 


B 


m 


22 


C 


K 


24 


D 


RE 


26 


E 


m 


28 


F 


m 


30 



ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 



C.V. ♦ S.N. 





1, 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F. 















0. 





+ 

+ 

+ 
+ 
+ 

+ 
+ 
+ 
+ 





1 

2 
3 
4 
5 
6 
7 

1 
2 
3 
4 
5 
6 
7 



5.2*** 



ROUTINES 



IT IS THF INTENT OF THIS SECTION TO DESCRIBE THE FUNCTIONS OF FAr« iter 



PROGRAM LISTING LABEL 
DCARM 
DEXEQ 
DCABP 
DCRDY 
DCDSW 
DCRTN 
DCSK 
DCMR 
. OCRO 
CDTRT 
NTRPT 
START 
END 



FUNCTION 
RETURN ARN TO HOME 
SETUP ANO EXECUTE THE IOCC. 
BYPASS CYLINDERS 90 THRU 110. 
FILE READY, NOT BUSY AND NO ERRORS. 
SENSE OSM ANO SAVE IT. 

ROUTINE NUMBER ANO PROGRAM CONTROL ROUTINE. 
SEEK SUBROUTINE. 
WRITE SUBROUTINE. 
READ SUBROUTINE. 
COMMON DATA TRANSFER ROUTINE. 
INTERRUPT ROUTINE. 
MONITOR CONTROL RETURN. 
MONITOR END ENTRY. 



«i™^s , St^r-v M ^, , ^s:s™™« e '}--" ,t 

CHECKING AND CONTROLLING FOR THE USING ROUTINES WHICH SaY INC ,n n^pp 

NOTE 

AN UNSCHEDULED INTERRUPT WILL CAUSE A 
PROGRAM HANG CONOITION. SEE THE INTERRUPT 
ROUTINE. * 

JsSOC,AT T ,oTwlTH IaCh'oIhErJ^ " ESSAGES " UST " k »^™ ™ "™ ™I* 



6. APPENDIX 

ROUTINES ARE NOT DESIGNED TO LOOP IN THE INITIALIZATION PROGRAM. 

"^CsTan'o n{ T «nl7«T°?Jn E ^ !FICATI0N ° N CY <-1NDERS 000 (00001 THRU 089 

oS ill CYUNDERS InS ,.^ U , 2 «r!S^°in HR1TES AI -TERNATE WORST CASE PATTERNS 

CYLINDER ERROR TAB^ ,r P \ \V?**l 1° L ° G ALL CYL I" 0ER S THAT ARE BAD. THE 
CYLINDER ERROR TABLE IC.E.T. )IS LOCATED ON SECTOR ID 0638 AND 063F. 

^CLUslvE? V TH!Hf A^PucI * DD !? ESSES ° N ALL CYLINDERS (EXCEPT 90 - 110 
HOME'^ESS^OOo'tHEXK"" 56 ^ START$ *' CVL,N ° ER 2 ° 2 MD REA0S T ° 

NOTE 

PROGSAM S Tn U «p CE , E r R o R L IN R ° UTINE 2 WILL CAUSE THE INITIALIZATION 
PROGRAM TO BE RESTARTEO. THESE TYPEOUTS COULD INDICATE IMPROPER SbfK 

l2?T?2, I TJK,2£ I HE SECT ° R * 0DR "S, THEREFORE TO ENSURE PROPER 
J«I]£« uJT2 N D nn E ,r R ° GRAM ,S AUT °»ATICALLY RESTARTED. IF fttROR 
^on^n ell" R0UTINE 2 DESIGNATED KEEP REOCCURRING, THIS INDICATES 

»» SEEK INCREMENTING FROM CYLINDER TO 202. INVEST GATE SEEK 
ERRORS BEFORE TRYING TO INITIALIZE THE PACK. '"VtillbATE SEEK 

DAtI INE t2I r= R «Mo! "RECTORS WH ICH CONTAIN THE CYLINDER ERROR TABLE 
cpJtAo T^ § °l SECT0RS * RE IDENTIFIED BY THE WORD • CEDC • FOLLOWING THE 

E5E5 ON SECTOR'S .^T ItV^" *" ~ Ui3 ° N SECT0RS 0.2.57 SS 5 AND 
PROGRAM IP THPRP it *' ^ ™ E C ' E - T - IS PR 1NT60 AT THE END OF THE 
PROGRAM IF THERE ARE ENTRIES IN IT. 

NOTE 

■^x AN cf RR - 0R 0CCURS DUR I N G THIS ROUTINE IT INDICATES IMPROPER CE 
,i A .^ ECT0R ' AN ALTERNAT E SHOULO BE SELECTED VIA PATCH CARDS, 
i.ex la Al USEDt PACK SH0IJ LD INDICATE SAME. THE 2310 PROGRAM 
MUST BE PATCHED THE SAME AS THE 2315 PROGRAM IF THE 2310 PROGRAM 
IS T^O BE RUN. SEE DM DOCUMENTATION FOR PATCH DETAILS. 
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0000 



ORG *£/05DC 

*************************************************** 

* 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 



THIS TEST WILL NOT RUN W I |H PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



***** 
***** 



CE WAIT NUMBER 1 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*************************************************** 

* 

* * 

* * 

* 1130-2310 FILE DIAGNOSTIC* 

* TEST. PROGRAM RELOCAT- * 

* ABLE. NORMAL ADDR 05DC. * 

* SEE WRITEUP FOR DETAILS. * 
» * 

* * 

* 

* 

* ***** PROGRAM CONTROL 

* ***** CONDITION WAITS 
* 
* 

* WAIT1 
* 
* 

* WAIT1 — IS TO LET THE 

* CE KNOW THAT A DIMAL, 

* CUSTOMER, OR VIRGIN PACK 

* . IS TO BE INITIALIZED. 

* THIS WAIT ALLOWS THE CE TO 

* MAKE THE DECISION WHETHER 

* THIS PACK IS OR IS NOT TO 

* BE INITIALIZED. 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
• 

* ***** 

* ***** 
* 
* 
* 
* 



WAIT2 



END IF JOB WAIT 



WAIT2 — INDICATES THAT 
THE END OF THE INITIAL- 
IZATION PROGRAM HAS BEEN 
REACHED. NOTE — IF THIS 
PROGRAM WAS LOAOEO FROM 
THE DISK VIA DIMAL, DO NOT 
TRY TO PROCEEO WITHOUT RE- 
LOADING DISK DIMAL PGMS. 
TO RECOVER FROM THIS WAIT, 
PRESS STOP-RESET-START IN 
THAT ORDER. THIS WILL RE- 
TURN CONTROL TO THE 
MONITOR. 



ERROR TRAP 01 
PROGRAM HANGUP 



***** 
***** 



30800020 

30800030 

30800040 

30800050 

30800060 

30800070 

30800080 

30800090 

30800100 

30800110 

30800120 

30800130 

30800140 

30800150 

3C800160 

30800170 

30800180 

30800190 

30800200 

30800210 

30800220 

30800230 

30800240 

30800250 

30800260 

30800270 

30800280 

30800290 

30800300 

30800310 

30600320 

•10800330 

30800340 

30800350 

30800360 

30800370 

30800380 

30800390 

30800400 

30800410 

30800420 

30800430 

30800440 

30800450 

30800460 

30800470 

30800480 

30800490 

30800500 

30800510 

30800520 

30800530 

30800540 

30800550 

30800560 

30800570 

30800580 

30800590 

30800600 

30800610 

30800620 

30800630 

30800640 

30800650 

30800660 

30800670 

30800680 

30800690 
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1 



IB'M .MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2315 DISK INITIALIZATION ' * 



PART NO. 
PAGE 
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* 


NTER 




INTERRUPT ERROR TRAP 


• 30800700 










' 


* 

* 










30800710 




















30800720 












* 






ALL SCHEDULED INTERKUPTS 




30800730 












* 






SET A TRANSFER VECTOR IN 




30800740 












* 






THE INTERRUPT ROUTINE. 




30800750 












* 






IF SAID VECTOR WORD IS 




30800760 












* 






BLANK, THE HANGUP WILL 




30800770 












* 






OCCUR. THE CAUSE MAY 


BE 


30800780 












* 






ONE OF TWO CONDITIONS. 




30800790 












* 






1— AN UNSCHEDULED INTER 




3C800800 












* 






RUPT ON THIS LEVEL WITH 




30800810 












* 






THIS ILSW BIT, OR 2— 




30800820 












* 






A DOUBLE OK NON-RESETABLE 


30800830 












* 






INTERRUPT. CONDITION 


30800840 












* 






TWO WILL BE INDICATED BY 




30800850 












* 






HAVING INTERRUPT LEVEL BIT 


30800860 












* 






STILL ON IN THE CONSOLE 




30800870 












* 






LITES. THE TRANSFER 




30800880 












* 






VECTOR IS ZEROED AFTER THE 


30600890 












* 






ADDRESS IS SET IN THE 




30800900 












* 






MLSCF TABLE. 




30800910 












* 










30800920 












* 










30600930 












* 










30800940 












* 








« 


30800950 
30800960 
30800970 
30800980 
30600990 












* 






EQUATE TABLE - ENTRY 


* 












* 








* 






0160 






BEGIN 


EOU 


/160 


BEGIN RT 




30801000 






0161 






START 


EOU 


/161 


MONITOR RT 




30801010 






0162 






ERROR 


EOU 


/162 


ERROR-PRINT RT 




30801020 






0163 






LOG 


EOU 


/163 


STATUS- PRINT RT 




30801030 






0164 






END 

* 


EOU 


/164 


MONITOR END RT 


* 
# * 


30801040 
30801050 
30B01060 
30801070 
30801080 
30801090 












* 






EQUATE TABLE - CONTROL 


* 
9 * 












* 








* 






0165 






RTNSW 


EOU 


/165 


RT START SWITCH 




30801100 






0166 






ERLCK 


EOU 


/166 


LOCK ON ERROR CTRL 




. 30801110 






0167 






LOGBY 

* 


EOU 


/167 


I/O TW BUSY SWITCH 


* 
,* 


30801120 
30801130 
30801140 
30801150 
30801160 
30801170 












* 






EQUATE TABLE - XFER VECT 


* 
,* 












* 








* 






017A 






ILO 


EOU 


/17A 


INTERRUPT LEVEL 




30801180 






018A 






IL1 


EOU 


/18A 


INTERRUPT LEVEL' 1 




30801190 






019A 






IL2 


ECU 


/19A 


INTERRUPT LEVEL 2 




30801200 






01AA 






IL3 


EOU 


/1AA 


INTERRUPT LEVEL 3 




30801210 






01BA 






IL4 


EOU 


/1BA 


INTERRUPT LEVEL 4 




30801220 






01CA 






ROTY 


EOU 


/1CA 


CNSL PRNTR REQUEST 




30801230 






01DA 






RQKB 


EOU 


/IDA 


KEYBOARD REQUEST 




30801240 






01EA 






SVKB 

* 

* 
* 


EOU 


/1EA 


KB SERVICE REQUEST 
PROGRAM CONTROL TABLE 


* 
,* 

* 
,* 

* 


30801250 
30801260 
30801270 
30801280 
30801290 
30801300 






050C 





0308 


PID 


OC 


/0306 


PROGRAM ID 




30801310 






05DD 





0000 


RID 


DC 





ROUTINE ID 




30801320 






05DE 





0000 


RAD 


OC 





ROUTINE ADDRESS 




30801330 






050F 





0000 


SWO 


DC 





PROG CTRL FLD 




30801340 






05E0 





0000 


SW1 


DC 





ROUT CTRL FLD 




30801350 






05E1 





FFFF 


SW2 


DC 


/FFFF 


FILE CTRL FIELD 




30801360 






05E2 





0000 


SW3 


OC 





OPEN CTRL FLD 




30801370 




DATE 


02JAN66 01JUL66 ' 


15N0V66 


15JUM67 


15FEB68 




PROG ID 


0308-*4 


FC NO. 


415'49C 


1 415490C 


419643 


420317 


420403 
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05E3 


1 


0671 


05E4 


1 


•05EC 


05t5 





0000 


05E6 





0000 


05E7 





0000 


05E8 





FFFF 



05E9 4480 0160 
05EB 1 05DC 



05EC 


1 


6700 


0972 


056E 





C0F2 




05EF 





F0F8 




05F0 


1 


4C20 


0607 


05F2 


1 


6600 


OAFD 


05F4 





4328 




05F5 





A003 




05F6 





3033 




05F7 


1 


6500 


05EC 


05F9 


1 


6D00 


05E7 


05FB 





4480 


0161 



05FD 


1 


6700 


0972 


05FF 





C300 




0600 





0319 




0601 





COOF 




0602 


1 


F400 


0655 


0604 





4820 




0605 





70E6 




0606 





706A 





0607 1 6700 0972 
0609 10A0 
060A 1 C400 05E1 
060C E3F1 
0600 1 0400 0655 



060F 
0610 
0611 
0612 
0613 
0614 
0615 



4820 
7001 
700C 
4804 
7014 
1801 
4804 



DC DCTL2 LOOP NO RESET 
OC INITL INITL/RESTART AODRS PM 
MLSCF OC INITL-LOG BUSY PM 

LIV OC LOST INTERRUPT AODR PM 

HLN DC MAIN LINE ENTRY PM 

TERM OC /FFFF TERMINATOR 

* * 
» 

* INITIALIZATION ROUTINE * 
* * 

* * 

EXEOO BSI I BEGIN BR FOR IN1T » SE 
DC PIO DISK 10 ADDR * 

* * 
* 

* RESTART ROUTINE * 
* * 

* . * 

* * 
* 

* INITIALIZATION RT * 
* 

* * 
INITL LOX L3 OCT SET X3 CTRL AODR SE 

LO SW2 GET FILE CTRL WORD 
EOR TERM CHECK FOR ENTRY 
BSC L FILEX.Z BR TO PROCEED 
* 

LDX L2 SELDU GET ALPHA PHRASE 

BSI 3 FORMO-OCT BR TO MSAG FORM MC 

DC /A003 — MSAG * — 

WAIT X /33 WAIT FOR SWITCHES 

LDX LI INITL GET ENTRY AODR 

STX LI MLN SET IT IN MLSCF 

BSI I START RETURN TO MONITOR XM 

* * 
* 

* RESTART LOOP CTRL RT * 
*...... ••••♦.••........................* 

* * 
RLPGM LDX L3 OCT SET X3 CTRL ADOR SE 

10 3 RESET A REG 

STO 3 25 RESET RT CTRL 

LD SW2 GET SW2 DATA 

EOR L HLDSK TEST WITH LAST DATA 

BSC Z SKIP IF EQUAL 

"OX INITL BR TO INITIALIZATION SX 

MDX 0CTL2 BR TO LOOP CONTROL SX 

* » 
* , * 

* FILE SEL £ SETUP TR * 
* * 

* * 
FILEX LDX L3 DCT SET X3 CTRL ADDR SE 

SLT 32 CLEAR A £ REG 

LD L SW2 GET FILE SEL DATA 

AND 3 -15 PASS ONLY GOOD BITS 

STO L HLDSK SAVE IT IN SEL TBL 

BSC Z TEST FOR MAIN FILE 

M DX »£1 SKIP NOT MAIN FILE 

MDX FILEO BR TO MAIN FILE SUR 

BSC E SKIP FOR NXT TEST 

MDX FILE1 BR TO' FILE SETUP RT 

SR' 1 SHIFT FOR NXT TEST 

BSC E SKIP FOR NXT TEST 



DATE 
EC NO. 



02JAN66 
415490 



01JUL66 
415490C 



15N0V66 
419643 



15JUN67 
420317 



15FEB68 
420403 



30801380 
30801390 
30801400 
30801410 
30801420 
30801430 
30801440 
30801450 
30801460 
30801470 
30801480 
30801490 
30801500 
30801510 
30801520 
30801530 
30801540 
30801550 
30801560 
30801570 
30801580 
30801590 
30801600 
30801610 
30801620 
30801630 
30801640 
30801650 
30801660 
30801670 
30801680 
30801690 
30801700 
30801710 
30801720 
30801730 
30801740 
30801750 
30801760 
30801770 
30801780 
30801790 
30801800 
30801810 
30801820 
30801830 
30801840 
30801850 
30801860 
30801870 
30801880 
30801890 
' 30801900 
30801910 
30801920 
30801930 
30801940 
30801950 
30801960 
30801970 
30801980 
30801990 
30302000 
30882010 
30802020 
30802030 
30802040 
30802050 



PROG ID 
PAGE 



0308-4 

2 



0616 701B 






MDX 


FILE2 


BR TO FILE SETUP 


RT 


30802060 




0617 1801 

0618 4804 






SRA 
BSC 


1 
E 


SHIFT FOR NXT TEST 
SKIP FOR NXT TEST 


30802070 
30802080 




0619 7022 
061A 1801 






MDX 
SRA 


FILE3 
1 


BR TU FILE SETUP RT 
SHIFT FOR NXT TEST 


30802090 
30802100 




061B 4804 






BSC 


E 


SKIP FOR NXT TfcST 


'30802110 




061C 7029 






MDX 


FILE4 


BR TO FILE SETUP 


' RT 


30802120 




061D 7000 




* 
* 
* 
FILEO 


MDX 


FILEO 


8R MAIN FILE 0. 
FILE SEL RT 


CTRL 


30802130 
30302140 
30802150 




061 E I C400 


0650 


LO 


L MFST 


GET AREA CODE 


« 


30802160 
30802170 




0620 1 0400 

0622 D305 

0623 1 6600 


070E 
070F 




STO 
STO 
LDX 


L OVA 

3 5 
L2 NTRPT 


SAVE IT 
SAVE IT 
GET NTRPT AODR 




30802180 
30802190 
30802200 




0625 6E00 
0627 C 702E 


019A 


* 

• 
FILE1 


STX 
MOX 


L2 IL2 
SACTL 


SET ADOR IN MON 
BR TO SETUP 

FILE 1 SEL RT 


TBL 

* 


30802210 
30802220 
30802230 
30802240 




0628 1 C400 


0651 


LD 


L MFST£1 


GET AREA CODE 


* 


30002250 
30802260 




062A 1 0400 
062C 0305 


070E 




STO 
STO 


L DVA 
3 5 


SAVE IT 
SAVE IT 




30802270 
30802280 




062D 1 6600 


070F 




LOX 


L2 NTRPT 


GET NTRPT ADDR 




30802290 




062F 6E00 


0199 




STX 


L2 IL2-1 


SET ADDR IN MON 


TBL 


30802300 




0631 7024 




* 
* 


MOX 


SACTL 


BR TO SETUP 
FILE 2 SEL RT ' 


* 


30802310 
30802320 
30802330 




0632 1 C400 


0652 


FILE2 


LD 


L MFST£2 


GET AREA CODE 


* 


30602340 
30802350 




0634 1 D400 


070E 




STO 


L OVA 


SAVE IT 




30802360 




0636 0305 






STO 


3 5 


SAVE IT 




30802370 




0637 1 6600 


070F 




LOX 


L2 NTRPT 


GET NTRPT ADDR 




30802380 




0639 6E00 


0198 




STX 


L2 IL2-2 


SET Al/DR IN HON 


TBL 


30802390 




063B 701A 




* 
* 
* 


MOX 


SACTL 


BR TO SETUP 
FILE 3 SEL RT 


* 
* 
* 


30802400 
30802410 
30802420 
30802430 




063C 1 C400 


0653 


FILE3 


LD 


L MFSTC3 


GET AREA CODE 




30802440 




063E 1 D400 


0706 




STO 


L OVA 


SAVE IT 




30802450 




0640 0305 






STO 


3 5 


SAVE IT 




30802460 




0641 1 6600 


070F 




LDX 


L2 NTRPT 


GET NTRPT ADDR 




30802470 




0643 6E00 


0197 




STX 


L2 IL2-3 


SET ADDR IN MON 


TBL 


30802480 




0645 7010 




» 
* 
* 


MDX 


SACTL 


BR TO SETUP 
FILE 4 SEL RT 


* 
* 

* 


30802490 
30802500 
30802510 
30802520 




0646 1 C400 


0654 


FILE4 


LD 


L MFST£4 


GET AREA CODE 




30802530 




0648 1 D400 


070E 




STO 


L DVA 


SAVE IT 




30802540 




064A 0305 






STO 


3 5 


SAVE IT 




30802550 




064B 1 6600 


070F 




LOX 


L2 NTRPT 


GET NTRPT ADDR 




30802560 




0640 6E00 


0196 




STX 


L2 1L2-4 


SET AODR IN MON 


TBL 


30802570 




064F 7006 




* 


MOX 


SACTL 


BR TO SETUP 


* 


30802580 
30802590 
30802600 
30802610 








* 




SW2 


FILE SELECT TBL 


« 




1 














30802620 








» 








* 


30802630 




0650 2000 




MFST 


DC 


/2000 


PRTY 1 CSL ILSW 


30802640 




0651 8800 






OC 


/8800 


2 1 


1 


30802650 




0652 9000 






DC 


/9000 


3 1 


2 


30802660 




0653 9800 






DC 


/9800 


4 1 


3 


30802670 




0654 AOOO 






DC 


/AOOO 


5 1 


4 


30802680 




0655 0000 




HLDSK 

* 
* 

• 


DC 




SET 


SW2 HOLD DATA WD 
IL AREA CODE CTRLS 




30802690 
30802700 
30802710 
30802720 




0656 C327 




SACTL 


LD, 


3 39 


GET SENSE RESET 




30802730 




DATE • 02JAN66 0UUL66 


15N0V66 


15JUN67 .15FEB68 




PROG 10 


0308-4 


EC NO. 415490 415490C 


419643 


420317 420403 
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PAGE 



2191216 
3 



0657 


EB05 






OR 


3 


5 


OR IN A.C. 




30802740 




0658 


03BB 






STO 


3 


-69 


SAVE IT 




30802750 




0659 


C326 






LO 


3 


38 


GET SENSE INST 




30802760 




065 A 


EB05 






OR 


3 


5 


OR IN A.C. 




30802770 




065B 


03BO 




* 


STO 


3 


-67 


SAVE IT 




30802780 
30802790 




065C 


1 6500 


05F0 




LOX 


LI 


RLPGM 


GET RESTRT ADDR 




30802800 




OAdE 


1 6D0O 


05E4 


* 


STX 


LI 


MLSCF-1 


SET IN PGM CTL TBL 




30802810 
30802820 


1 


O660 


700A 






MOX 




DCTRL 


BR TO START EXEQ PGM 




30802830 




. 






* 












30802840 










* 


**** 




** PSEUDO REQ/REL OE¥lCt *** 




30802850 










« 












30802860 




0661 


0000 




RELOV 


DC 







ENTRY / EXIT 




30802870 




0662 


1 7402 


0661 




MDX 


L 


RELOV, 2 


ADV EXIT ADDR 




30802880 




0664 


1 4C80 


0661 


* 
* 


BSC 


I 


RELDV 


BR TO USER 




30802890 
30802900 
30802910 




0666 


0000 




REOOV 


DC 







ENTRY / EXIT 




30802920 




0667 


1 7404 


0666 




MDX 


L 


REOOV, 4 


ADV EXIT AOOR 




30802930 




0669 


1 4C80 


0666 


* 
* 


BSC 


1 


REODV 


BR TO USER 




30802940 
30802950 
30B02960 
30802970 
30802980 
30802990 
30803000 










* 






MAINLINE PROGRAM CTRL * 












* 








* 






066B 


6116 




DCTRL 


LDX 


1 


22 


SET CLEAR LOOP XTNT 


SE 


30803010 




066C 


1010 






SLA 




16 


CLR ACCUM 




30803020 




06oD 


I D500 


0977 


0CTL1 


STO 


LI 


DCTC5 


RESET OCT FIELD 




30803030 




066F 


71FF 






MDX 


1 


-1 


DEC LOOP CTRL . 




30803040 




0670 


70FC 




* 


MOX 




DCTL1 


BR LOOP 




30803050 
30803060 




0671 


1 6700 


0972 


0CTL2 

* 


LDX 


L3 


OCT 


SET X3 ADDR CTRL 


SE 


30803070 
30803080 




0673 


C300 






LD 


3 





CLR A REG 




30803090 




0674 


1 0400 


0874 




STO 


L 


OCARM-1 


CLEAR CTRL CTR 




30803100 




0676 


030A 






STO 


3 


10 


SET PRESENT ADOR 




30803110 




0677 


C3F8 






LO 


3 


-8 


GET SCI OF ONE 




30803120 




06 /B 


D30B 




* 


STO 


3 


11 


SET DESIRED ADDR 




30803130 
30803140 




0679 


43AE 




* 


BSI 


3 


-82 


BR TO SEEK SUB RT 


SC 


30803150 
30803160 




067A 


4380 




* 


BSI 


3 


-128 


OCARN RT 


SC 


30803170 
30803180 




067B 


1 4C00 


06A3 


* 


BSC 


L 


DMLCK 


BR TO OIMAL CK RTN 




30803190 
30803200 




0670 


1 C400 


05EO 


DCTL3 


LD 


L 


SHI 


GET FNC SW 1 INFO 




30803210 




067F 


1 4C20 


069A 


* 


BSC 


L 


0CTL5.Z 


BR IF RT NUM PRESENT 




30803220 
30803230 




06b 1 


1 7401 


098B 


* 


MOX 


L 


DCTC25.1 


ADD ONE TO RT NUMBER 




30803240 
30803250 




0683 


1 6680 


098B 


0CTL4 


LOX 


12 


0CTC25 


GET RT NUMBER 




30803260 




0685 


1 6E00 


050D 




STX 


L2 


RID 


SET RT NUM IN MLSCF 




30803270 




0687 


1 C600 


0690 




LD 


L2 


DDSA-1 


GET ROUTINE ADDR 




30803280 




06B9 


1 D400 


050E 




STO 


L 


RAD 


SET ADDR IN MLSCF 




30803290 




06BB 


0400 


0165 




STO 


L 


RTNSW 


SET RT NO. PRNT ADDR 




30803300 




06B0 


1 0400 


0695 




STO 


L 


DCTL6-1 


SET RT PIVOT ADDR 




30803310 




06BF 


1 6600 


0696 




LDX 


L2 


DCTL6 


GET ENTRY ADDR 




30803320 




0691 


1 6E00 


05E5 




STX 


L2 


MLSCF 


SET ADDR IN CTRL FLO 




30803330 




0693 


4480 


0161 


* 


BSI 


1 


START 


BR TO MONITOR 


XM 


30803340 
30803350 




0695 


0000 






DC 







RT PIVOT ADDR HOLDER 




30S03360 




0696 


1 6700 


0972 


0CTL6 


LDX 


13 


OCT 


SET X3 CTRL ADDR 


SE 


30803370 




0698 


1 4C80 


0695 




BSC 


i 


0CTL6-1 


BR TO RT ENTRY 




30803380 










* 












30303390 




069A 


E3FD 




0CTL5 


AND 


3 


-3 


PASS MAX RT CNT 




30803400 




069 B 


0319 






STO 


3 


25 


SET RT NUMBER IN OCT 




30803410 




OATE 02JAN66 01JUL66 


15N0V66 


15J0N67 15FEB68 




PROG ID 


0308-4 


EC NO. 415490 415490C 


419643 


420317 420403 
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OATE 
EC NO. 



069C 





70E6 




* 


MDX 




DCTL4 


BR TO CONTINUE 

* 




3080342C 
30803430 
30803440 
30803450 
30803460 
30803470 










* 






DISK 


DIAG START ADDR * 












* 








» 




0690 


1 


06EA 






DC 




DCEOO 


NO RT-RETURN TO MON 




30803480 


069E 


1 


OCBO 




OOSA 


DC 




F01AA 


DISK TEST * 1 




30803490 


069F 


1 


0004 






DC 




F02AA 


DISK TEST * 2 




30803500 


06A0 


1 


0D2F 






DC 




F03AA 


DISK TEST * 3 




30803510 


06A1 


1 


06EA 






DC 




DCEOD 


NO RT-RETURN TO MON 




30803520 


06A2 


1 


06EA 




* 


DC 




DCEOO 


NO RT-RETURN TO MON 




30803530 
30803540 
30803550 
30803560 
30803570 
30803580 










* 






DIMAL-CUST-CE PACK CK RT * 












* 








* 




06A3 





C308 




DMLCK 


LD 


3 


-40 


GET CE HIST TRK 


SE 


30803590 


06A4 





D30B 






STO 


3 


11 


SET DESIRED ADDR 




30d03600 


06A5 





43AE 




* 


BSI 


3 


-82 


BR TO SEEK SUB RTN 


SC 


30603610 
30803620 


06A6 





C3E5 






LD 


3 


-27 


GET WORD COUNT 




308036 30 


06A7 





D30D 






STO 


3 


13 


SET WORD COUNT 




30803640 


06A8 





43A8 






BSI 


3 


-B8 


BR TO READ SUB RTN 


SC 


30803650 


06A9 





701C 




* 


MDX 




DMLE1 


BR TO RO ERR RTRN RT 




30803660 
30803670 


06AA 


1 


C400 


0B04 




LD 


L 


DCDAC2 


GET SECOND DATA WORD 




30803680 


06AC 





F018 






EOR 




DMLXT 


TEST FOR DIMAL IND 




30803690 


06AD 


1 


4C18 


0689 


* 


BSC 


L 


DMLIC, t- 


BR IF DIMAL PATTERN 




30B03700 
30803710 


06AF 





C3D8 






LD 


3 


-40 


GET CE HIST TRK 




30803720 


06B0 





EBF9 






OR 


3 


-7 


SET IN CE SECT ADOR 




30803730 


06B1 





D30B 






STO 


3 


11 


SET ADDR IN CTRL TBL 




30803740 


06B2 





43A8 






BSI 


3 


-88 


BR TO READ SUB RTN 


SC 


30803750 


06B3 





7016 




* 


MDX 




DMLE2 


BR TO RD ERR RTRN RT 




30803760 
30803770 


06B4 


1 


C400 


0B04 




LD 


L 


DCDAE2 


GET SECOND DATA WORD 




30803780 


06B6 





F3C7 






EOR 


3 


-57 


TEST FOR CE PACK IND 




30803790 


06B7 


1 


4C18 


0670 


* 


BSC 


L 


DCTL3,t- 


BR TO INIT IF CE IND 


sx 


30803800 
30803810 


06B9 


1 


C400 


05E2 


OMLIC 


LD 


L 


SW3 


GET SH 3 FUNCTION 




30803820 


06BB 





E3F4 






AND 


3 


-12 


PASS BITS 12 & 13 




30803830 


06BC 





F3F4 






EOR 


3 


-12 


TEST FOR BITS 12 t 13 


30803840 


06BD 


1 


4C16 


067D 


* 


BSC 


L 


0CTL3,£- 


BR TO INIT IF SH 3 F 


SX 


30803850 
30803860 


06BF 


1 


6600 


0AC8 




LOX 


L2 


DPMSG 


GET ALPHA MSG ADDR 




30803870 


06C1 





4328 






BSI 


3 


FORMO-DCT 


BR TO MSAG FORM M 


c 


30803880 


06C2 





AODC 




* 


DC 




/AODC 


— MSAG i — 




30803890 
30803900 


06C3 





30CE 




HAITI 


DC 




/30CE 


HAIT FOR CE GO AHEAD 




30803910 


06C4 


a 


70F4 




* 
* 


MDX 




DMLIC 


LOOP TO RE-CHECK 




30803920 
30803930 
30803940 


06C5 





ABCD 




DMLXT 

* 
• 


DC 




/ABCD 


DIMAL IND XTNT 




30803950 
30803960 
30803970 


06C6 





4339 




DMLE1 


BSI 


3 


F0RM2-DCT 


BR TO MSAG FORM 2 


MC 


30803980 


06C7 





E062 






DC 




/E062 


— MSAG # — 




30803990 


06C8 


1 


06A3 






DC 




DMLCK 


ERR LOOP ADDR 




30804000 


06C9 





70EF 




* 


MDX 




DMLIC 


BR TO CE WAIT 




30804010 
30804020 


06CA 





4339 




DMLE2 


BSI 


3 


F0RM2-DCT 


BR TO MSAG FORM 2 


MC 


30804030 


06CB 





E063 






DC 




/E063 


— MSAG * — 




30804040 


06CC 


I 


06A3 






DC 




DMLCK 


ERR LOOP ADDR 




30804050 


06CD 





70EB 




* 


MOX 




DMLIC 


BR TO CE WAIT 

* 

RETURN CONTROL * 




30804060 
30804070 
30804080 




« 






TEST 


30804090 


02JAN66 01JUL66 


15N0V66 


15JUN67 15FEB68 
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DATE 
EC NO. 



06CE 
06D0 
060 1 
060 3 
06D4 
06D6 



1 C400 05E2 

1801 

1 4C04 06D4 

4380 

1 C400 05E0 
1 4C20 069A 



0608 C319 

0609 F3FD 
06DA 1 4C20 067D 

06DC 1 7401 098A 
06DE 1000 



06DF 1010 
06EO 0319 

06E1 4377 

06E2 A001 

06E3 4380 

06E4 1 6600 0AD2 

06E6 7005 

06E7 1 6600 OAAF 
06E9 7002 

06EA 1 6600 OAAA 
06EC 4328 
0660 AOEO 
06EE 7000 

06EF 1000 
06F0 30ED 



DCRTN LO 
SRA 
BSC 
BSI 

DCNHM LD 
BSC 

LD 

EOR 
BSC 



MDX 
NOP 



06F1 70FD 



SLA 

STO 

BSI 

oc 

BSI 
LOX 
MDX 

DCANH LDX 

MDX 

» 

OCEOD LDX 
BSI 
OC 
MDX 

* 

DCRNO NOP 

WAIT2 DC 

* 

MDX 



L SW3 

1 
L DCNHM, E 

3 -128 
L SHI 
L DCTL5.7 

3 25 
3 -3 
L DCTL3,Z 

I 0CTC24.1 




16 
3 25 

3 F0RN5-DCT 

/A001 
3 -128 
L2 NDMSG 

DCE0DC2 

L2 ARMNH 
DCE0DC2 

L2 NORTN 
3 FORMO-DCT 
/AOEO 
DCRNO 


/30ED 



GET SM FNC 3 DATA SE 
SHIFT TO TEST BIT 14 
BR IF B14 IS A ONE 
BR TO DC ARM RT SC 
GET SW FNC 1 DATA 
BR IF RT NUN PRESENT 

GET ROUTINE 10 NUM 

TEST FOR LAST RT 

BR TO CONTINUE TESTS 

ADD TO PROG PASS CNT 
SAFTV NOP 



CLR ACC 

CLR RT ID NUMBER 



DCRND 



BR TO MSAG FORM 5 
— MSAG * — 
DCARM RTN 
GET END INITL MSG 
BR TO EOJ MSG RTN 

GET MSAG REMARK 
BR TO MSAG XFER 

GET REMARK AODR 
BR TO MSAG FORM 
— MSAG # — 
BR TO END PROGRAM 

STOP NOP 

INIT END WAIT 

SEE BEGINNING OF THE 

LISTING FOR DETAILS 

WAIT BR LOOP 



MC 
SC 



MC 



06F2 1 6700 0972 
06F4 C318 
06F5 83FF 
06F6 D31B 
06F7 F31C 
06F8 4820 
06F9 700B 

06FA OBBA 
06FB D308 
06FC 4339 
06FD E001 
06FE 0000 

06FF 1010 

0700 D31B 

0701 438E 

0702 4386 

0703 1 4C00 0683 

0705 C310 

0706 1 4C18 070C 
0708 I 6700 06F2 



* 

* 

OLNRT LOX 
LD 
A 

STO 
EOR 
BSC 
MDX 

* 

XIO 
STO 
BSI 

DC 
OC 

SLA 
STO 
BSI 
BSI 
BSC 

DLNR1 LD 
BSC 



iOST INTERRUPT RT 



0<JAN66 
* 15490 



01JUL66 
415490C 



LOX 



15N0V66 
419643 



13 OCT 
3 27 
3 -1 
3 27 
3 28 
Z 
0LNR1 

3 -70 

3 8 

3 F0RM2-DCT 

/E001 



16. 

3 27 

3 -114 

3 -122 

L DCTL4 

3 29 
I. DLAND,t- 
L3 OLNRT 



SET X3 CTRL ADDR 
GET TIMER CNT 
ADO CI TO CNT 
SAVE NEW CNT 
TEST FOR LIMIT 
0. EQ TO LIMIT 
NO, PROCEED 

SENSE DSW 

SET OSN IN OCT 

BR TO MSAG FORM 2 

— MSAG « — 

NO ERROR LOOP ADOR 



SE 



MC 



CLEAR ACCUM 
CLEAR LOST NTRPT CTR 
RELEASE RT $C 

BR TO RE-ZERO ARM SC 
BR TO RE-TRY RTN SX 

GET NXT MLN' ENTRY 
BR - NTRPT OCCUREO 
GET LST NTRPT RT ADR 



15JUN67 
420317 



15FEB68 
420403 ' 



30804100 

30804110 

30804120 

30804130 

30804140 

30804150 

30804160 

30804170 

30804180 

30804190 

30804200 

30804210 

30804220 

30804230 

30804240 

30804250 

30804260 

30804270 

30804280 

30804290 

30804300 

30804310 

30804320 

30804330 

30804340 

30804350 

30804360 

30804370 

30804380 

30804390 

30804400 

30804410 

30804420 

30804430 

30804440 

30804450 

30804460 

30804470 

30804480 

30804490 

30804500 

30804510 

30804520 

30804530 

30804540 

30804550 

30804560 

30804570 

30804580 

30804590 

30804600 

30804610 

30804620 

30804630 

30804640 

30804650 

30804660 

30804670 

30804680 

30804690 

30804700 

30804710 

30804720 

30804730 

30804740 

30804750 

30804760 

30804770 
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DATE 
EC NO. 



070A 1 6F00 05E6 
070C 4480 0161 



070E 2000 

070F 0000 
0710 1 6700 0972 

0712 OBBA 

0713 D308 

0714 C31D 

0715 1 D400 OaE7 
0717 1 4C18 0721 



0719 
071A 
071B 
071C 
0710 



1010 
0306 
031B 

0310 

1 D400 05E6 



071F 1 4C80 070F 
0721 70FF 



0722 





0000 




0723 


1 


6680 


0722 


0725 


1 


C400 


05DF 


0727 





ECOO 


0166 


0729 





1805 




072A 


1 


4C00 


072C 


072C 


1 


7401 


0722 


072E 


1 


4C80 


0722 



0730 

0731 1 
0733 
0735 
0737 
0739 
073A 
073C 



0730 



0000 

C400 OOCA 
4C18 073E 
6580 ODCA 
C500 ODDD 
F30B 

4C18 0740 
71FF 
70F9 



073E 1 4C80 0730 



0740 1 
0742 1 
0744 1 

0746 

0747 

0748 1 
074A 
074B 



6600 0A90 
6E00 0A1D 
7404 09A6 
C30B 
4399 

D400 0A20 
4331 
E004 



STX L3 LIV 
DLAND BSI. I START 



* 

OVA 
NTRPT DC 



SET IT IN MLSCF 
BR TO MONITOR 



XM 



DISK INTERRUPT ROUTINE 



DC 



LDX 

XIO 
STO 

LD 
STO 

BSC 

• 

NTRST SLA 
STO 
STO 
STO 

STO 

* 

NTRXT BSC 

* 

NTRER MDX 

* 

* 

LCKAF DC 
LDX 

LO 

OR 

SRA 

BSC 

MDX 

BSC 

« 

*. ......... 



/2000 


L3 OCT 

3 -70 
3 8 

3 29 
L MLN 
L NTRER, 6- 

16 

3 6 

3 27 

3 29 

L LIV 

I NTRPT 

NTRER 



DISK AREA CODE ID 

SET X3 CTRL ADDR SE 

SENSE RESET DSW 
SAVE IT IN T3L 

GET RETURN ADDR 
SET IT IN MLSCF 
BR TO ERR RT IF ZERO 

CLR ACCUM 

CLR FUNCTION 

CLR LST NTRPT CTR 

CLR NTRUPT ADDR OCT 

CLR LST NTRPT RT XFR 

EXIT TO MONITOR Sx 

NO ML MLSCF ADDR PH 



LOCK ON FNC CHECK RT 



12 LCKAF 



ENTRY AOOR 
GET LOOP ADDR 



SE 



L SWO GET FNC 

I ERLCK OR IN MONITOR CTRL 

5 SHIFT FOR BIT 10 

L * BR TO NSI 

L- LCKAF, 1 ADD FOR RETURN AODR 
I LCKAF RETURN TO USER SX 

* 
............ .....................* 

READ WRITE ADOR CK RT * 



RWACK DC 
LD 
BSC 
LDX 

RWCKA LD 
EOR 
BSC 
MDX 
MDX 

RWCKX BSC 

* 

RWCKT LDX - 
STX 
MDX 
LD 
BSI 
STO 
BSI 
DC 




L CYLEX 

L RWCKX, fi- 
ll CYLEX 
LI CYLET-1 

3 11 
L RWCKT, £- 

1 ^1 
RWCKA 

I RWACK 

L2 ARIET 
L2 REMRK 
L F0RMU3.4 

3 11 

3 -103 
L MSGC2 

3 F0RM1-DCT 
/E004 



ENTRY 

GET CYL ERR CNT 

BR OUT IF ZERO 

GET LOOP COUNT 

GET LAST ADDR 

TEST AGAINST OESIREO 

BR IF EO — BAD ADDk 

DEC CTRL 

LOOP 

RETURN TO USER 

G?T ALPHA STOTEMENT 
SET IT IN THOPA 
ADD TO PRINT CTRL 
GET DESIRED ADOR 
BR TO CONVERT IT 
SET ADDR IN TWOPA 
BR TO MSAG FORM 1 
— MSAG * — 



S£ 



SX 



SC 



MC 



02JAN66 
415490 



01JUL66 
415490C 



15N0V66 
419643 



1SJUN67 
420317 



15FEB68 
420403 



30804780 

30804790 

30804800 

30804810 

30804820 

30804830 

30804840 

30804850 

30804860 

30804870 

30804880 

30804890 

30604900 

30804910 

30804920 

30804930 

30804940 

30804950 

30804960 

30804970 

30804980 

30804990 

30805000 

30805010 

30805020 

30805030 

30805040 

30805050 

30805060 

30805070 

30805080 

30805090 

30805100 

30805110 

30805120 

30805130 

30805140 

30805150 

30805160 

30805170 

30805180 

30805190 

30805200 

30805210 

30805220 

30805230 

30805240 

30805250 

30805260 

30805270 

30805280 

30805290 

30805300 

30805310 

30805320 

30805330 

30805340 

30805350 

30805360 

30805370 

30805380 

30805390 

30805400 

30805410 

30805420 

30805430 

30805440 

30805450 
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C74C 0' 0000 
0740 1 74FC 09 A6 



074F 


C319 






LD 


3 


25 


0750 


F3FD 






EOR 


3 


-3 


0751 1 


4C18 


0760 


* 


BSC 


L 


RWRTl, fi- 


0753 


C30B 




LO 


3 


ll 


0754 


1803 




( 


SRA 




3 


0755 


1003 






SLA 




3 


0756 1 


4C18 


06CE 




BSC 


L 


DCRTN.E- 


0758 


93F8 






S 


3 


-8 


0759 


EBF9 






OR 


3 


-7 


075A 


D30B 






STO 


3 


11 


D75B 1 


6580 


002E 




LDX 


11 


F02XB 


075"D 


71F9 






MOX 


1 


-7 


075E 1 


6400 


0D14 


4t 


LOX 


L 


F02ACC5 


O760 1 


6600 


0A09 


RWRT3 


LDX 


L2 


CECAB 


0762 1 


6E00 


0A1C 




STX 


L2 


ALPHA 


0764 


4328 






BSI 


3 


FORMO-DCT 


0765 


E077 






OC 




/E077 


0766 


0000 




* 

* 
* 


DC 







0767 


4396 




BSI 


3 


-106 



DC NO ERR LOOP ADOR 

MOX L F0RMU3.-4 SET PRNT CTL TO STD 



GET RT EXEO NUMBER 

TEST FOR RT 3 

BR TO SET RT 3 RETRN SX 

GET CURRENT AODR 
SHIFT RIGHT HD^SECT 
SHIFT LEFT HO-SECT 
END RT BR IF ZERO 
DEC OISK AODR BY 1 
SET HI SECT ADOR 
SET IN DESIRED ADOR 
GET CURRENT CTRL CNT 
DEC FOR ONE TOT CYL 
BR TO CONTINUE RT 2 SX 



GET MSAG REMARK 

SET IN TWOPA 

BR TO MSAG FORM 

— MSAG * — 

NO ERR LOOP AODR 

BR TO MONITOR END 



MC 



PX 





7004 




* 






DISK 


WRITE ROUTINE * 




0768 


* 

DCWR 

4t 


MOX 




DCW10 


* 
BR / NOP SWITCH 


SE 


0769 


40C6 




* 


BSI 




RWACK 


RO/WR AODR CK RT 


SC 


076A 
S76B 
076C 


1010 
D3E0 
030E 




* 


SLA 
STO 
STO 


3 
3 


16 

-32 

-34 


CLR A REG 

RESET SFT ERR CNTR 

RESET HRD ERR CNTR 




0760 
076E 
076F 
0770 
0771 


C323 
D306 
D3DF 

C30B 

1 D400 


0B03 


DCW10 

* 


LD 
STO 
STO 
LD 

STO 


3 
3 
3 
3 
L 


35 

6 

-33 

11 

DCDAC1 


GET WRITE FUNCTION 
SET IT IN DCT 
MEM FNC HOLDER 
GET DESIRED AODR 
SET IT IN I/O ADOR 




0773 


4060 




* 


BSI 




CDTRT 


CMN OATA XFER RT 


SC 


0774 

0776 


1 7401 
1000 


0983 


% 


MDX 

NOP 


L 


DCT£17,1 



ADO TO TOTAL WR CTR 
SAFTY NOP 




0777 
0779 


1 4400 
7002 


080A 


* 


BSI 

MDX 


L 


CDTSN 
OCWEL 


BR TO CK DSW WORD 
WRITE ERR BR RETURN 


SC 


077A 
077C 
077D 
077E 
077F 
0780 
0781 


1 7401 
C315 
83DE 
D315 
C314 
83E0 
D314 


09 ID 


OCWEL 


MDX 

LD 

A 

STO 

LD 

A 

STO 


L 
3 

3 
3 
3 
3 
3 


OWR.l 
21 

-34 

21 
20 
-32 
20 


ADD TO EXIT RTN OK 
GET TOT HRD WR ERRS 
ADD NEW HRD ERRS 
SAVE NEW TOTAL 
GET TOT SFT WR ERRS 
ADD NEW SFT ERRS 
SAVE NEW TOTAL 




0782 
0784 
0785 


1 4400 
1 0768 

1 4C80 


0722 
091D 


DCWBB 

* 

* 


BSI 
DC 

BSC 


L 
I 


LCKAF 

DCWR 
DWR 

DISK 


BR TO LOOP ANY FNC 

LOOP ADDR 

EXIT TO CALL RT 

READ ROUTINE * 


SC 
SX 



DATE 


02JAN66 


01JUL66 


15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490 


415490C 


419643 


420317 


420403 



30805460 
30805470 
30805480 
.30805490 
30805500 
30805510 
30805520 
30805530 
30805540 
30805550 
30805560 
30805570 
30805580 
30805590 
30805600 
30805610 
30805620 
30805630 
30805640 
30805650 
30805660. 
30805670 
30805680 
30805690 
30805700 
30805710 
30805720 
30805730 
30805740 
30805750 
30805760 
30805770 
30805780 
30805790 
30805800 
30805810 
30805820 
30805830 
30805840 
30805850 
30805860 
30805870 
30805880 
30805890 
30805900 
30805910 
30805920 
30805930 
30805940 
30805950 
30805960 ' 
30805970 
30805980 
30805990 
30806000 
3080601Q 
30806020 
30806G30 
30806040 
30806050 
30806060 
30806070 
30806080 
30806090 
30806100 
30806110 
30806120 
30806130 
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0787 7001 




DCRD 

* 


MOX 


OCR 10 


BR / NOP SWITCH 




0788 40A7 




« 


BSI 


RWACK 


RD/WK AODR CK RT 




0769 1010 




DCR10 SLA 


16 


CLR A REG 




078A D3EB 
076B D3E0 






STO 
STO 


3 -21 
3 -32 


RESET SK-RO SW1 
RESET SFT ERR CNTR 




078C D30E 






STO 


3 -34 


RESET HRD ERR CNTR 




0780 C324 
O'bE D306 




ocri; 


! LD 
STO 


3 36 

3 6 


GET READ FUNCTION 
SET IT IN DCT 




078F 03DF 






STO 


3 -33 


MEM FNC HOLDER 




0790 C31A 






LO 


3 26 


GET RD / RD-CK MOD 




0791 1 4C30 


0796 




BSC 


I 0CR16.Z- 


BR BY ADOR CLR IF £ 




0793 1010 






SLA 


16 


CLR ACC 




0794 1 040C 


0B03 


* 


STO 


L DCDAC1 


CLR READ 1/0 ADOR 




0796 404A 




OCR 16 


i BSI 


CDTRT 


CMM DATA XFER RT 




0797 1 7401 


0984 




MDX 


L 0CTC18.1 


ADD TO TOTAL RD CTR 




0799 1000 




* 


NOP 





SAFTY NOP 




079A 406F 






BSI 


CDTSN 


BR TO CK OSW £ OPCMP 




079B 703A 




£ 


MDX 


DCREL 


READ ERR BR RETURN 




079C 1 C400 


0B03 




LD 


L DCDA£1 


GET ACTUAL ADDR 




079E D30C 






STO 


3 12 


SET ADDR IN DCT 




079F F30B 






EOR 


3 11 


CK ACTUAL EQ DESIRED 




07A0 1 4C18 


07CB 


* 


BSC 


L DCRGA,£- 


BR IF ADDR IS OK 




07A2 C3EB 






LD 


3 -21 


GET SW 1 




07A3 1 4C10 


07B6 


$ 


BSC 


L DCR21,- 


BR IF NOT 3RD RE-RD 




07A5 C023 






LD 


DCRE1 


GET FIRST E008 AAR 




07A6 F023 






EOR 


DCRE2 


COMP 2N0 E008 AAR 




07A7 1 4C20 


07B2 


J|t 


BSC 


L DCR20 f Z 


BR IF £008 RDS UNEQ 




07A9 4339 






BSI 


3 F0RM2-DCT 


BR TO MSAG FORM 2 




07AA E009 






DC 


/E009 


— MSAG # — 




07AB 1 0787 




* 


DC 


DCRD 


ERROR LOOP ADOR 




07AC 1010 






SLA 


16 


CLR A REG 




07AD 03E0 






STO 


3 -32 


RESET SFT ERR CNTR 




07AE 1 7401 


0985 


OCR 19 


MDX 


L DCT£19,1 


ADD £ 1 TO RESK CNT 




07B0 1000 






NOP 





SAFTY NOP 




07B1 7024 




4c 


MDX 


DCREL 


RD ERR BR RETURN 




0762 4339 




DCR20 


BSI 


3 F0RM2-DCT 


BR TO MSAG FORM 2 




07B3 E015 






DC 


/E015 


— MSAG # — 




07B4 1 0787 






DC 


DCRD 


ERROR LOOP ADDR 




07B5 70F8 




g 


MDX 


DCR19 


RD ERR BR RETURN 




07B6 4339 




DCR21 


BSI 


3 F0RM2-DCT 


BR TO MSAG FORM 2 




07B7 E008 






DC 


/E008 


— MSAG * — 




07B8 0000 




* 


DC 





NO ERROR LOOP ADDR 




07B9 C3EB 






LD 


3 -21 


GET SW 1 




078A 1 4C20 I 


97C4 


* 


BSC 


.L 0CR23.Z 


BR IF 2ND E008 PASS 




07BC C30C 






LD 


3 12 


GET 1ST AAR OF E008 




07BD DOOB 






STO 


DCRE1 


SAVE IT 




07bE C3C0 




DCR22 


LD 


3 -51 


GET 4000 HEX 




07BF D3EB 




£ 


STO 


3 -21 


SET SW 1 £ OR - 




O7C0 C3E0 






LD 


3 -32 


GET SFT RD TEMP CNT 




07C1 83FF 






& 


3 -1 


ADO UNE TO ERROR CNT 




07C2 D3E0 




* 


STO 

f 


3 -32 


SAVE NEW COUNT 


DATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 15FEB68 


EC NO. 


415490 415490C 


419643 


420317 420403 



SE 

.SC 



SC 



MC 



MC 



MC 



30806140 

30806150 

30806160 

30806170 

30806180 

30806190 

30806200 

30806210 

30806220 

30806230 

30806240 

30806250 

30806260 

30806270 

308062U0 

30806290 

30306300 

30806310 

3080&320 

30806330 

30806340 

30806350 

30806360 

30806370 

30806360 

30806390 

30806400 

30806410 

30806420 

30806430 

30806440 

30806450 

30806460 

30806470 

30806460 

30806490 

30806500 

30806510 

30806520 

30806 530 

30806540 

30806550 

30806560 

30806570 

30806580 

30806590 

30806600 

30806610 

30806620 

30806630 

30806640 

30806650 

30806660 

30806670 

30806680 

30806690 

30806700 

30806710 

30806720 

30806730 

30806740 

30806750 

30806760 

30806770 

30806780 

30806790 

30806800 

30606810 
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OATE 
EC NO. 



07C3 70C9 

07C4 C30C 
07C5 D004 
07C6 4386 

07C7 C3BF 
07C8 70F6 

07C9 0000 
07CA 0000 



07CB 
07CC 
07CE 
07CF 
07D0 
07D1 
07D3 
0704 
07D5 
07D6 
07D7 
07D8 
0709 
070A 
07DB 



091 A 



C3EB 

4C10 07D1 

C3E0 

93FE 

D3E0 

7401 

C30C 

D30A 

D309 

C317 

830E 

D317 

C316 

83E0 

0316 



07UC 1 4400 0722 
07DE 1 0787 
07DF 1 4C80 091A 



07E1 0000 
07E2 1010 
0763 D30E 

07E4 4388 

07E5 C30D 
07E6 1 D400 0B02 
0768 C30F 
07E9 D306 
07EA C30B 
07EB 100D 
07EC 180D 
07ED EB1A 
07EE D307 
07EF C301 
07F0 0304 

07F1 4392 

07F2 E3C5 
07F3 1 4C18 07FF 

07F5 1 6600 OABE 
07F7 1 6E00 0A1D 
07F9 4331 
07FA E005 
07FB 1 07F1 

07FC OBBA 
07FD D308 
07FE 4396 



NDX 

* 

DCR23 LD 
STO 
BSI 

LD 

MOX 

OCR El DC 
0CRE2 DC 

OCRGA LD 
BSC 
LD 
S 
STO 

OCROK MOX 
LD 
STO 
STO 

OCR EL LD 
A 

STO 
LD 
A 
STO 

BSI 
DC 
DCRBB BSC 
«... ...... 

* 

* 

COTRT DC 



0CR12 BR TO RE r READ ADDR 

3 12 GET 2ND AAR OF E008 

DCXE2 SAVE IT 

3 -122 BR TO RE-ZERO ARM t 

RE-SEEK DESIREO ADR 

3 -65 GET 8000 HEX 

DCR22S1 BR TO SET SN .1 

E008 AAR 1 

E008 AAR 2 

3 -21 GET SHI 

L DCROK,- CR IF RD ADDR OK 

3 "32 GET SFT RD ERR TEMP 
3 -2 COUNT C CORRECT IT 

3 -32 SAVE CORRECTED CNT 

L ORD.l ADD TO EXIT RT OK 

3 12 GET ACTUAL DISK ADDR 

3 "J SET IT IN OCT PRESNT 

3 9 SET IT IN LAST GOOD 

3 23 GET TOT HRD RD ERRS 

3 -34 ADD NEW HRD ERRS 

3 23 SAVE NEW TOTAL 

3 22 GET TOT SFT RD ERRS 

3 -32 ADD NEW SFT ERRS 

3 22 SAVE NEW TOTAL 



SC 



SC 

sx 



SLA 
STO 

CDTBC BSI 

* 

LD 

STO 

LD 

STO 

LD 

SLA 

SRA 

OR 

STO 

LD 

STO 

CDTRC BSI 

* 

AND 

BSC 



L LCKAF BR TO LOOP ANY FNC 

DCRD LOOP ADDR 
I DRD EXIT TO CALL RT 

COMMON RD / WR ROUTINE * 
•«••••........ ..................... 

* 
ENTRY 

16 CLR ACC SE 

CLR RETRY CTR 



3 14 



3 -120 



13 

OCDA 

-33 

6 

11 

13 

13 

26 

7 

1 

4 

-110 



3 -59 
L CDTSE.C- 



LOX L2 DSWER 

STX L2 REMRK 

BSI 3 F0RM1-DCT 
OC /E005 
OC COTRC 



XIO 


3 


-70 


STO 


3 


8 


BSI 


3 


-106 



DCRDY RT sc 

GET WORD COUNT 
SET IT IN I/O FLO 
GET MEM HLD FNC 
SET IT IN OCT FNC WO 
GET DESIRED AODR 
CLR CYL NUMBER 
CLR CYL NUMBER 
RO/RD CK MODIFIER 
SET ADJ MOD IN OCT 
GET I/O ADDR 
SET IT IN OCT 

DCDSW RT sc 

TEST BITS 

BR ZERO TO CONTINUE 

GET ALPHA PHRASE 

SET IT IN THOPA 

BR TO MSAG FORM I MC 

— MSAG # — 

ERR LOOP ADDR 

SENSE RESET DSH 

SET DSW IN OCT 

BR TO MONITOR ENO RT SX 



02JAN66 
415490 



01JUL66 
415490C 



15N0V66 
419643 



15JUN67 
420317 



15FE868 
420403 



30806820 

30806830 

30806840 

30806850 

30806860 

30806870 

30806880 

30806890 

30806900 

30806910 

30806920 

30806930 

30806940 

30806950 

30806960 

30806970 

30806980 

30806990 

30807000 

30807010 

30807020 

30807030 

30807040 

30807050 

30807060 

30807070 

30807080 

30807090 

30807100 

30807110 

30807120 

30807130 

30807140 

30807150 

30807160 

30807170 

30807180 

30807190 

30807200 

30807210 

30807220 

30807230 

30807240 

30807250 

30807260 

30807270 

30807280 

30807290 

30807300 

30807310 

30807320 

30807330 

30807340 

30807350 

30807360 

30807370 

30807380 

30807390 

30807400 

30807410 

30807420 

30807430 

30807440 

30807450 

30807460 

30807470 

30807480 

30807490 



PROG ID 
PAGE 



0308-4 
6 





07FF C3B7 
0800 D31D 


COTSE LD 

STO 

* 


3 -73 
3 29 


GET RETURN ADDR 
SET IT IN OCT 




30807500 
30807510 






0801 4382 


* 


BSI 


3 -126 


BR TU EXEO RT 


SC 


30807520 
30807530 






0802 439C 


* 


BSI 


3 -100 


MONITOR START RT 


XM 


30807540 
30807550 






0803 1 6700 0972 
0805 C300 


CDTNR LDX 
' i n 


L3 DCT 
3 
3 7 


SET X3 CTRL ADDR 


SE 


30807560 
30807570 






0806 0307 


* 


STO 


GET ZERO XTNT 
CLR MODIFIER 




30807580 
30807590 






0807 438E 


• 


BSI 


3 -114 


RELEASE RT 


SC 


30807600 
30807610 






0808 1 4C80 07E1 


* 


BSC 


I CDTRT 


EXIT TO CALL RT 


SX 


30807620 
30807630 








* 
* 


« 
**** »* CHECK DSH RD/HR ** * 




30807640 
30807650 






080A 0000 


CDTSN DC 





* 
ENTRY 




30807660 






080B C308 




LD 
AND 
EOR 
BSC 


3 8 
3 -59 
3 -51 
L CDTGX, £- 




30807670 






080C E3C5 
080D F3CD 
080E 1 4C18 082A 


* 


GET DSH IN DCT 
PASS TEST BITS 
TEST ALL FOR OK 
BR ZERO ALL OK 


SE 


30807680 
30*07690 
30807700 
30807710 






0810 1 C400 0B03 
0812 D30C 


* 


LD 
STO 


L DCDAC1 
3 12 


GET ACTUAL ADDR 
SET IT IN TBL 




30807720 
30B07730 
30807740 






0813 4367 

0814 E006 

0815 0000 


* 


BSI 

OC 

DC 


3 F0RH4-0CT 
/E006 



BR TO MSAG FORM 4 

-- MSAG * — 

NO ERR LOOP ADOR 


MC 


30807750 
30807760 
30807770 
30807780 






0816 1 C400 05E2 
0818 4804 




LD 

BSC 

MDX 


L SH3 
E 
DSPLA 


GET SH FNC THREE 




30807790 
30807800 






0819 7014 


* 


SKIP IF 15 NOT ON 
BR TO DISPLAY IOA RT 




30807810 
30807820 






081A 1 7401 0952 


CDTLK 

* 
* 


; MDX 


L DCT-32,1 


ADO TO SFT cRR HOLDR 




30807830 
30807840 
30807850 


• 




081C 1000 
081D C30E 
081E 83FF 




NOP 

LD 

A 

STO 

EOR 

BSC 




3 14 
3 -1 
3 14 
3 -10 
L CDTBC, Z 


SAFTY NOP 

GET ERR TRY CTR 




30807860 
30807870 
30807880 






081F 030E 
0820 F3F6 
0821" 1 4C20 07E4 


* 


ADD TO TRY CTR 
SAVE CTR TOTAL 
TEST FOR TENTH TRY 
LOOP TO RETRY AUTO 




30807890 
30807900 
30807910 
30807920 






0823 1 7401 0950 
0825 1000 


* 


MDX 
NOP 


L DCT-34,1 



ADD TO HRD ERR HOLDR 
SAFTY NOP 




30807930 
30807940 
30807950 






0826 4367 

0827 E007 

0828 1 07E2 


* 


BSI 

DC 
DC 


3 F0RM4-DCT 
/E007 
CDTRTtl 


BR TO MSAG FORM 4 
— MSAG * — 
ERR LOOP ADDR 


MC 


30807960 
30807970 
30807980 
30807990 






0829 7002 


• 


NDX 


CDTGX&2 


EXIT TO ERR ADDR 


SX 


30808000 
30808010 






082A 1 7401 080A 
082C 1 4C80 080A 
082 E 690D 
082F 6500 FEBF 


CDTGX 
DSPLA 

* 


MDX 
BSC 
STX 
LDX 


L CDTSN, 1 
I CDTSN 

1 DSPXUl 
LI -321 


ADO TO EXIT CTRL 
EXIT GOOD I/O OP 

SAVE XI CONTENTS 
SET XI CONTROL COUNT 


SX 


30808020 
30808030 
30808040 
30808050 
30808060 






0831 1 C400 05E2 

0833 4804 

0834 7001 

0835 7005 


OSPLP 

• 


LD 
BSC 
MDX 
MDX 


L , SH3 
E 

»C1 
DSPX1 


GET SU FNC 3 DATA 
SKIP IF BIT 15 OFF 
GO TO DISPLAY LOGIC 
BR TO RESET XI 




30808070 
30808080 
30808090 
3080B100 
30808110 






0836 1 C500 0C43 
0838 30DA 


* 


LD 
DC 


LI DCDAC321 
/30DA 


GET 1/0 AREA HORD 
HAIT TO LOOK AT IT 




30808120 
30808130 
30808140 
30808150 






0839 7101 




MDX 


1 1 


DEC XI FOR NXT HORD 




30808160 
30808170 




DATE 
EC NO. 


02JAN66 01JUL66 
415490 415490C 


15N0V66 
419643 


15JUN67 15FEB68 
420317 420403 




PROG ID 
PAGE 


0308-4 
6A 
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083A 





70F6 






MDX 




DSPLP 


DISPLAY LOOP 






30808180 














* 














30808190 






08 36 





6500 


OOOO 


ospxi 


LOX 


LI 





RESTORE XI 






30808200 






083D 





700C 




* 


MDX 




CDTLK 


BR OUT TO CONTINUE 


* 




30808210 
30808220 
30808230 
30808240 














* 






DISK 


SEEK ROUTINE 


* 






























30808250 
30808260 














* 










* 








083E 





4388 




OCSK 


BSI 


3 


-120 


OCRQV RT 




SEC 


30808270 






083F 





C300 






10 


3 





CLR ACC 






30808280 






0840 





D302 




* 


STO 


3 


2 


CLR SEEK INCREMENT 






30808290 
30808300 






0841 





C30A 






LO 


3 


10 


GET PRESENT ADDR 






30808310 






0842 





E8F9 






OR 


3 


-7 


SET HO-SECT TO MAX 






30808320 






0843 





930B 






S 


3 


11 


SUB DESIRED ADDR 






30808330 






0844 





1883 






SRT 




3 


CLR HEAD-SECTOR BITS 




30808340 






0845 


1 


4C98 


0920 




BSC 


I 


DSK.t- 


BR OUT IF DIFF ZERO 


sx 


30808350 














* 














30808360 






0847 


1 


4C10 


0851 




BSC 


L 


DSK10,- 


0. DIRECTION NEG 






30808370 






0849 





F3C2 






EOR 


3 


-62 


YES- EOR TO GEN PLUS 




30808380 






084A 





83FF 






A 


3 


-1 


AOO ONE TO CORRECT 






30808390 






0848 





D304 






STO 


3 


4 


SAVE DIFF - INCR 






30808400 






084C 





D302 






STO 


3 


2 


SAVE DIFF - INCR 






30808410 






0840 





C321 






LD 


3 


33 


GET SK IN FUNCTION 






30808420 






084E 





0306 






STO 


3 


6 


SET IT IN OCT 






30808430 






084F 





D3DF 






STO 


3 


-33 


SET MEM FNC HLDR 






30808440 






0850 





7004 




* 


MDX 




0SK20 


BR TO CONT 






30808450 
30808460 






0851 





D304 




DSK10 


STO 


3 


4 


SAVE DIFF - INCR 






30808470 






0852 





D302 






STO 


3 


2 


SAVE DIFF - INCR 






30808480 






0853 





C322 






LD 


3 


34 


GET SK OUT FUNCTION 




30808490 






0854 





D306 




* 


STO 


3 


6 


SET IT IN OCT 






30808500 
30808510 






0855 





C3B8 




DSK20 


LD 


3 


-72 


GET RETURN AODR - ', 


SK 




30808520 






0856 





D08A 






STO 




CDTRT 


SET IN COT CNN RTRN 




30808530 






0857 





7099 




* 


MDX 




CDTRC 


BR TO SET I/O EXEQ 






30808540 
30808550 






0858 


1 


7401 


0982 


0SK30 


MDX 


L 


DCT£16,1 


AOO TO SEEK OPCMP CT 




30808560 






085A 





1000 




* 


NOP 







SAFTV NOP 






30808570 
30808580 






0858 





C30B 






LD 


3 


11 


GET DESIRED AODR 






30808590 






08 5C 





030A 




• 


STO 


3 


10 


SET IT IN PRESENT 






30808600 
30808610 






085D 


1 


4400 


0722 




BSI 


L 


LCKAF 


BR TO LOOP ANY FNC 




sc 


30808620 






085F 


1 


083E 






DC 




OCSK 


LOOP AODR 






30808630 






0860 


1 


4C80 


0920 


* 


BSC 


I 


OSK 


EXIT TO CALL RT 


* 


sx 


30808640 
30808650 
30808660 
30808670 
30808680 
30808690 














* 






CHANNEL BUSY ROUTINE 


* 
















* 










• 








0862 


1 


6700 


08CE 


CHNB2 


LDX 


L3 


CHNRO 


GET CHNRO ADOR 




SE 


30808700 






0864 


1 


6F00 


05E7 




STX 


L3 


MLN 


SET IT IN HLSCF 






30808710 






0866 





4480 


0161 


* 


BSI 


' 


START 


BR TO MONITOR 


* 


XM 


30808720 
30808730 
30808740 
30808750 
30808760 
30808770 














* 






SEEK 


AOJ CYL 089 J 1U 


* 
















* 










* 








0868 





C30B 




SKADJ 


LD 


3 


11 


GET DESIRED ADDR 




SE 


30808780 






0869 





930C 






S 


3 


12 


SUB PRESENT ADDR 






30808790 






08 6A 





4808 






BSC 




C 


SKIP IF POSITIVE 






30808800 






0868 





7003 




* 


MDX 




SKOUT 


BR TO NEGATIVE RT 






30808810 
30808820 






086C 





C3E2 






LC 


3 


-30 


GET CYL 111 






30808830 






086D 





D30B 






STO 


3 


11 


SET ADOR 






30808840 






086E 





7002 






MDX 




SKOUT62 


BR TO BR BACK 






30808850 


m 


DATE 


02JAN66 0IJUL66 


15N0V66 


15JUN67 15FEB68 






PROG 10 


0308-4 


EC NO. 


415490 415490C 


419643 


420317 420403 
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7A 











9 
















30808860 






086F 


C3E3 




SKOUT 


LD 


3 


-29 




GET CYL 089 






30808870 






0870 


D30B 






STO 


3 


11 




SET ADDR 






30808880 






0871 


1 4C00 


0885 




BSC 


L 


DCBPR 




BR TO USER RT 




SX 


30808890 






0874 


OOOO 




* 


BSS 


E 






SET XFER X3 EVEN ADD 




30808900 
30808910 












* 
















30808920 

30808930 
30808940 
30808950 
30808960 












* 






ARM 


TO HOME ROUTINE 


« 














* 












* 








0874 


OOOO 






DC 









DCARM SEEK CNT 






30808970 






0875 


C3FF 




OCARM 


LO 


3 


-1 




GET CYL INCR 




SE 


30808980 






0876 


0304 




* 


STO 


3 


4 




PUT IN INCREMENT 






30808990 
30809000 






0877 


C322 




OARM 


LD 


3 


34 




GET SEEK — OUT — OP 






30809010 






0878 


L-306 






STO 


3 


6 




SET IT IN DCT 






30809020 






0879 


C3B6 






LD 


3 


-74 




GET RETURN ADDR 






30809030 






087A 


D310 




* 


STO 


3 


29 




SET IT IN OCT 






30809040 
30809050 






087B 


4388 




* 


BSI 


3 


-120 




DCRDY RT 




SC 


30809060 
30809070 






08 7C 


4392 






BSI 


3 


-110 




OCDSH RT 




SC 


30809080 






0870 


1004 






SLA 




4 




SHIFT FOR 84 






30809090 






087E 


1 4C28 


0892 


* 


BSC 


L 


DARTH, 


,zt 


BR IF ARM AT HOME 






30809100 
30809110 






0880 


C0F3 






LD 




DCARM- 


-1 


GET SEEK CNT 






30809120 






0881 


83FF 






A 


3 


-1 




AOO CI TO CNT 






30809130 






0882 


00F1 






STO 




DC ARM- 


-1 


SAVE NEW CNT 






30809140 






0883 


F3E7 






EOR 


3 


-25 




TEST KITH 204 






30809150 






0884 


1 4C20 


088C 


* 


BSC 


L 


OARMX, 


-Z 


BR IF NOT EO 204 






30809160 
30809170 






0886 


1 0400 


OA10 




STO 


L 


RENRK 




RESET REMRK HD TMOPA 




30809180 






0888 


4331 






BSI 


3 


F0RM1- 


-DCT 


BR TO MSAG FORM 1 




MC 


30809190 






0889 


E003 






DC 




/E003 




— MSAG # — 






30809200 






088A 


OOOO 




• 


DC 









NO ERR LOOP ADOR 






30809210 
30809220 






088B 


43A5 




* 


BSI 


3 


-91 




BR TO END PROG 




SC 


30809230 
30809240 






088C 


4382 




OAR NX 

• 


BSI 


3 


-126 




DEXEQ RT 




SC 


30809250 
30809260 






0880 


439C 




* 


BSI 


3 


-100 




MONITOR START RT 




XM 


30809270 
30809280 






088E 


1 6700 


0972 


DARTN 


LDX 


L3 


OCT 




SET X3 CTRL ADDR 






30809290 






0890 


438E 






BSI 


3 


-114 




RELEASE RT 




SC 


30809300" 






0891 


70E5 




* 


NOX 




OARM 




LOOP 






30809310 
30809320 






0892 


10A0 




OARTH 


SLT 




32 




CLEAR A AND 






30809330 






0893 


0309 






STO 


3 


9 




CLR LAST ADOR 






30809340 






0894 


OBOA 






STD 


3 


10 




CLR DESIRED £ PRESNT 




30809350 






0895 


D30C 






STO 


3 


12 




CLR ACTUAL ADDR 






30809360 






0896 


D310 






STO 


3 


29 




CLR NTRPT RTRN ADDR 




30809370 






0897 


OOOC 






STO 




DC ARM- 


-1 


RESET SEEK CNTR 






30809380 






0898 


6500 


0BB8 




LDX 


LI 


3000 




SET DELAY XTNT 






30809390 






089A 


4390 




* 
* 


BSI 


3 


-112 




DELAY RT - 20 MS 




SC 


30809400 
30809410 
30809420 






089B 


1 4C80 


08F2 


* 


BSC 


I 


ARM 




EXIT TO CALL RT 


* 


SX 


30809430 
30809440 
30809450 












« 






COMMON EXEQUTE I/O RT 


« 




30809460 
























* 




30809470 
30809480 






* 
















089D 


438A 




OEXEO 

* 


BSI 


3 


-118 




REQUEST DEVICE 


* 


SC 


30809490 
30809500 












* 


• *»« 




** *» MAIN LINE MUST RELEASE* 




30809510 












* 












* 




30809520 






089E 


C3B9 






LD 


3 


-71 




GET NTRPT TIMR ADDR 




30809530 




DATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 






PROG ID 


0308-4 


EC NO. 


415490 415490C 


419643 


420317 


420403 
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2191216 

8A 



089F 1 D400 05E6 



STO L LIV 



SET IN MLSCF TBL 





08A1 C305 
08A2 EB06 
08A3 EB07 
08A4 1890 




LO 
OR 
OR 
SRT 


3 5 
3 6 
3 7 
16 




GET AREA CODE 
SET IN FUNCTION 
SET IN MODIFIER 
PUT XIO IN Q REG 






08A5 C304 




LD 


3 4 




GET ADDR / INCREMENT 




08A6 D803 




STD 


OEXIO 




SET 10CC WORD 






08A7 0802 




XIO 


OEXIO 




00 I/O COMMAND 






08A8 1 4C80 08F4 




BSC 


I EXO 




EXIT RETURN 






08AA 0002 

08AC C30B 
08AD 93EC 
08AE 1 4C28 08B5 


DEXIC 

» 


1 BSS 


E 2 




IOCC WORD 


* 




* 




AODR 


BYPASS CK RT 


* 




DCABP 


' LO 

S 
BSC 


3 11 
3 -20 
L DCBPR, 


.ze 


GET DESIRED AODR 

SUB CVL 90 

BR IF LESS THAN 


* 




08B0 C30B 
08B1 93EA 
08B2 1 4C30 08B5 




LD 

S 

BSC 


3 11 
3 -22 
L DCBPR, 


Z- 


GET DESIRED AODR 

SUB CYL 110 

BR IF GREATER THAN 






08B4 70B3 




MDX 


SKADJ 




BR TO GET CYL €/- 






0865 1 4C80 08F6 

0807 C30B 

08B8 030C 

08B9 1 7401 0985 . 

08BB 1000 


OCBPR 

« 


BSC 


I ABP 




EXIT TO CALL RT 


* 




* 




RE-ZERO TO RE-SEEK RT 


* 




* 
DRESK 


LO 
STO 
MDX 
NOP 


3 11 
3 -36 
L DCTC19 



• 1 


* 
GET DESIRED ADDR 
SAVE IT 

ADD TO SEEK ERR CNT 
SAFTV NOP 




08BC 4380 




BSI 


3 -128 




DCARM RT 






08BD C3DC 
08BE 030B 


* 


LD 
STO 


3 -36 
3 11 




GET SAVED ADDR 
SET IT IN DCT 






08BF 0* 43AE 


* 


BSI 


3 -82 




DCSK RT 






08C0 1 4C80 08F8 

08C2 4392 
08C3 180C 
08C4 1 4C98 08FA 


* 


BSC 


I RSK 




EXIT TO CALL RT 


* 




* 




RDY-NOTBUSV-OK CK RT 


* 




* 
DCRDY 


BSI 
SRA 
BSC 


3 -110 

12 

I ROY.t- 




DCDSW RT 

SHIFT FOR B0-B3 

EXIT 


* 




08C6 1 6600 0AC3 
08C8 1 6E00 OAID 
08CA 4331 
08CB E002 
08CC 0000 
08CD 70F4 


* 


LDX 
STX 
BSI 

DC 
DC 
MOX 


L2 NTRDY 
L2 REMRK 
3 FORMl-l 

/E002 



OCRDY 


DCT 


GET ALPHA PHRASE 
SET IT IN THOPA 
BR TO MSAG FORM 1 
— MSAG * -*- 
NO ERR LOOP ADDR 
BR TO PRINT AGAIN 


s 


DATE 
EC NO. 


02JAN66 01JUL66 
415490 415490C 


15N0V66 
419643 


15JUN67 
420317 


15FEB68 
'420403 





sx 



PM 



SE 



SX 



SE 



SC 



SC 
SX 



SEC 

SX 

MC 



■ 30809540 
30809550 
30809560 
30809570 
30809580 
30809590 
30809600 
30809610 
.30809620 
30809630 
30809640 
30809650 
30809660 
30809670 
30809680 
30809690 
30809700 
30809710 
30809720 
30809730 
30809740 
30809750 
30809760 
30809770 
30809780 
30809790 
30809800 
30809810 
30809820 
30809830 
30809840 
30809850 
30809860 
30809870 
30809880 
30809890 
30809900 
30809910 
30809920 
30809930 
30809940 
30809950 
30809960 
30809970 
30809980 
30809990 
30810000 
30810010 
30810020 
30810030 
30810040 
30810050 
30810060 
30810070 
30810080 
30810090 
30810100 
30810110 
30810120 
30810130 
30810140 
30810150 
30810160 
30810170 
30810180 
30810190 
30810200 
30810210 



PROG ID 
PAGE 



0308-4 
8 



DATE 
EC NO. 





• 






CHANNEL REOUEST RT 




* 




30810220 




08CE 1 4400 0666 
08D0 1 0862 
08D1 0000 

0802 1 070E 

0803 I 05E8 
08D4 1 4C80 08FC 


CHNRC 
CHNSA 


i BSI 
DC 
DC 
DC 
DC 
BSC 


L REQOV 
CHNBZ 


DVA 
TbRM 

I REO 


CHANNEL REOUEST 
BUSY RT ADDR 
DDEF AODR 
DEVICE REF ADDR 
ADDR OF/FFFF 
EXIT TO CALL RT 


RT 


* 


SEC 
SX 


30810230 
30810240 
30610250 
30810260 
30810270 
30810280 
30810290 
30810300 






















30810310 


















* 




30810320 






* 






FILL 


I/O AREA RT 




* 




30810330 
30810340 
30810350 
30810360 
30810370 
30810380 
30810390 
30810400 
30810410 




0806 6500 FECO 
0BD8 1 D500 0C44 
080A MOl 
080B 70FC 
08DC 1 4C80 08FE 


* 

OF ILL 


LDX 
STO 
MDX 
MDX 
BSC 


LI -320 
LI DCDAC322 
1 1 

0FILL62 
I FLX 


SET PASS CTRL 

RESET IOA WITH ACC 

DEC CTRL 

LOOP 

EXIT 


* 


SE 

SX 






















30810420 
30810430 
30810440 
30810^50 
30810460 
30810470 
30810480 
30810490 
30810500 












CHANNEL RELEASE RT 






08DE 1 4400 0661 
08E0 0000 
08E1 1 05E8 
08E2 1 4C80 0900 


* 

CHNRL 

CHNRA 

• 


BSI 
OC 
OC 
BSC 


L RELOV 



TERM 
I REL 


> 


CHANNEL RELEASE 
DDEF ADDR 
ADDR OF /FFFF 
EXIT TO CALL RT 


RT 


* 


SEC 
SX 
















* 




30810510 
30810520 
30810530 
30810540 
30810550 
30810560 
30810570 






* 






DISK 


DELAY ROUTINE 




* 






08E4 71FF 
08E5 70FE 


» 
DCDLA 


MOX 
MDX 


1 -1 
*-2 




DEC NDX CNT 
LOOP IF NOT ZERO 




» 


SE 




08E6 C3C0 




LD 


3 -64 




GET ADDR OF RETURN 






30810580 




08E7 1 D400 05E7 




STO 


L MLN 




SET ADDR IN MLSCF 






30810590 




08E9 439C 




BSI 


3 -100 




BR TO MON START 






XM 


30810600 




08EA 1 6700 0972 


DLABB 


LDX 


L3 DCT 




SET X3 CTRL AODR 








30810610 




08EC 1 4C80 0902 


* 


BSC 


I DLA 




EXIT TO CALL RT 




* 


SX 


30810620 
30810630 
3081G640 
30810650 
30810660 
30810670 
30810680 






* 






READ 


DSU ROUTINE 




* 






08EE OBBC 


* 
OCOSH 


XIO 


3 -68 




READ DSW 




* 


SE 




08EF 0308 




STO 


3 8 




SAVE OSW 








30810690 




08F0 1 4C80 0904 




BSC 


I DSU 




RETURN TO CALL RT 




SX 


30810700 


















* 




30810710 
30810720 
30810730 
30810740 
30810750 
30810760 
30810770 






* 






X3 - 


COMMON XFER TABLE 




S 






08F2 0000 
08F2 0000 


• 
ARM 


BSS 
DC 


E 







* 
-128 






08 F3 7081 




MOX 


DCARM 










SC 


30810780 




08F4 0000 


» 
EXO 


OC 









-1?ft 




30810790 
30810800 




08F5 70A7 




MDX 


DEXEQ 










SC 


30810810 




08F6 0000 
08F7 70B4 


ABP 


DC 
MOX 



DCABP 




-124 


SC 


30810820 
30810830 
30810840 




08F8 0000 


RSK 


DC 









•12? 




30810850 
30810860 




08F9 70BD 




MOX 


DRESK 










SC 


30810870 




08FA 0000 


ROY 


DC 









■120 




30810880 
30810890 




02JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 




• 




PROG 10 
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419643 


420317 


'-2Q4Q3 
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08FB 70C6 



08FC 
08FD 

08FE 
08FF 

0900 

0901 

0902 

0903 

09 04 

0905 

0906 

0907 

0908 

0909 

090B 
09 OC 1 

090E 
090F 

0911 

0912 1 

091 A 
0915 1 

0917 

0918 1 

091 A 
091B 1 

0910 
091E 1 

0920 

0921 1 

0923 

0924 1 



0926 
0927 
0928 



0929 1 



092A 
092 B 
092C 
092 D 
092E 
092 F 
0930 
0931 

0932 1 

0933 



0000 
70D0 

0000 
70D6 

0000 
70DC 

0000 
70E0 

0000 
70E8 

0000 
70FF 

0000 
4480 0164 

0000 
4C00 OA60 

0000 
4480 0161 

0000 
4C00 06CE 

0000 
4C00 066B 

0000 
4C00 06E7 

0000 
4C00 0787 

0000 
4C00 0768 

0000 
4C00 083E 

0000 
4CB0 0923 



066B 

0671 
088E 
0803 
0858 
06F2 
0000 
0701 
0000 
0700 
0658 
8000 
08EA 
0100 



* 
REO 

FLX 

* 
REL 

OLA 

* 
DSW 

* 
HNG 

* 
MEND 

* 
ARC 

* 
STRT 

* 
RTN 

* 
REST 

OEND 

* 
ORD 

* 
OMR 

* 
OSK 

* 
EMF 



MDX 

DC 
MDX 

DC 

MDX 

OC 
MDX 

DC 
MDX 

OC 
MDX 

DC 
MDX 

OC 
BSI 

DC 
BSC 

DC 
BSI 

DC 
BSC 

OC 
BSC 

OC 
BSC 

DC 
BSC 

DC 
BSC 

DC 
BSC 

DC 
BSC 



DCRDY 


CHNRO 


DFILL 



CHNRL 


DCDLA 


OCDSH 


»-l 


END 



DSKAC 


START 


DCRTN 


DCTRL 



DCANH 


DCRD 


DCHR 


OCSK 


EMF 



sc 



-118 



SC 



-116 



SC 



-114 



SC 



-112 



SC 



-110 



SC 



-108 



SC 



-106 



PXM 



-103 



SC 



-100 



SC 



-97 



SC 



-94 



SC 



-91 



SC 



-88 



SC 



-65 



SC 



-82 



SC 



-79 



SC 



X3 - COMMON XTNT REF 



* 
...... 

TBL * 



DATE 
EC NO. 



02JAN66 
415490 



01JUL66 
415490C 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 



15N0V66 
419643 



DCTRL 
DCTL2 
DARTN 
CDTNR 
DSK30 
DLNRT 
/OOOO 
/0701 
70000 
/0700 
/0658 
/8000 
DLABB 
/0100 



15JUN67 
420317 



* 
-76 
-75 
-74 
-73 
-72 
-71 
-70 
-69 
-68 
-67 
-66 
-6 5 
-64 
-6 3 



15FEB68 
420403 



30810900 
30810910 
30810920 
30810930 
30810940 
30810950 
30810960 
30810970 
30810980 
30810990 
30811000 
30811010 
30811020 
30811030 
30811040 
30811050 
30811060 
30811070 
30811080 
30811090 
30811100 
30811110 
30811120 
30811130 
30811140 
30811150 
30811160 
30811170 
30811180 
30811190 
30811200 
30811210 
30811220 
30811230 
30811240 
30811250 
30811260 
30811270 
30811280 
30811290 
30811300 
30811310 
30811320 
30811330 
30811340 
30811350 
30811360 
30811370 
30811380 
30811390 
30811400 
30811410 
30811420 
30811430 
30811440 
30811450 
30811460 
30811470 
30811480 
30811490 
30811500 
30811510 
30811520 
30811530 
30811540 
30811550 
30811560 
30811570 
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0934 





FFFF 




DC 


/FFFF 




-62 


30811580 






0935 





FFFC 




OC 


/FFFC 




-61 


30811590 






0936 





FOFF 




DC 


/FOFF 




-60 


30811600 






0937 





F7FC 




DC 


/F7FC 




-59 


30811610 






0938 





E5E5 




DC 


/E5E5 


PATTERN ZERO 


-58 


30811620 






0939 





CEOC 




DC 


/CEDC 




-57 


30811630 






09 3 A 





C800 




DC 


/C800 




-56 


30811640 






093B 





0700 




DC 


/0700 




-55 


30811650 






09 3C 





7000 




DC 


/7000 




-54 


30811660 






093D 





6400 




DC 


/6400 


' 


-53 


30811670 






09 3E 





4800 




DC 


/4800 




-52 


30811680 






093F 





4000 




OC 


/4000 




-51 


30811690 






0940 





0000 




DC 


/OOOO 




-50 


30811700 






0941 





0657 




DC 


/0657 


MAX DISK AODR 


-49 


30811710 






0942 





1313 




DC 


/1313 


PATTERN ONE 


-48 


30811720 






0943 





luOO 




DC 


/1000 


NOP INST 


-47 


30811730 






0944 





0800 




DC 


/0800 


BIT PATTERN 


-46 


30811740 






0945 





0700 




DC 


/07D0 


TIME CONSTANT 


-45 


30811750 






0946 





0000 




DC 


/OOOO 


DISK ADDRESSES 


-44 


30811760 






0947 





0008 




DC 


/0008 


DISK ADDRESSES 


-43 


30dll770 






0948 





0010 




OC 


/0010 


DISK ADDRESSES 


-42 


30811760 






0949 





0018 




DC 


/0018 


DISK ADORESSES 


-41 


30811790 






094A 





0638 




DC 


/0638 


DISK ADDRESSES 


-40 CE 


30811800 






094B 





0640 




DC 


/0640 


DISK ADDRESSES 


-39 


30811810 






094C 





0648 




DC 


/0648 


DISK ADDRESSES 


-38 


30811820 






094D 





0650 




DC 


/0650 


OISK ADDRESSES 


-37 


30811830 






094E 





0000 




DC 





DISK WORK AREA 


-36 


30811840 






094F 





0000 




DC 





DISK WORK AREA 


-35 


30811850 






0950 





0000 




DC 





DISK WORK AREA 


-34 


308118oO 






0951 





0000 




DC 





DISK WORK AREA 


-33 


30811870 






0952 





0000 




DC 





DISK WORK AREA 


-32 


30811880 






0953 





0000 


• 


DC 





DLA XTN T HLDR 


-31 


30811690 






0954 





0378 




DC 


/0378 




-30 


30811900 






0955 





02CF 




DC 


/02CF 




-29 


30811910 






0956 





0190 




DC 


400 




-28 


30811920 






0957 





0141 




DC 


321 




-27 


30811930 






0958 





0000 




DC 







-26 


30811940 






0959 





OOCC 




DC 


204 




-25 


30811950 






09 5 A 





00C8 




DC 


200 




-24 


30811960 






095B 





0000 




DC 







-23 


30811970 






095C 





0377 




OC 


/0377 




-22 


30811960 






095D 





0000 




DC 







-21 


30811990 






095E 





0200 




DC 


/0200 




-20 


30812000 






095F 





0018 




DC 


24 




-19 


30812010 






0960 





0017 




DC 


23 




-18 


30.812020 






0961 





001F 




DC 


31 




-17 


30812030 






0962 





0010 




DC 


16 




-16 


30812040 






0963 





OOOF 




DC 


15 




-15 


30612050 






0964 





OOOE 




OC 


14 




-14 


30812060 






0965 





OOOD 




DC 


13 




-13 


30812070 






0966 





OOOC 




DC 


12 




-12 


30812080 






0967 





OOOB 




OC 


11 




-11 


30812090 






0968 





OOOA 




OC 


10 




-10 


30812100 






0969 





0009 




DC 


9 




-9 


30812110 






09 6A 





0008 




DC 


8 




-8 


30812120 






09 6B 





0007 




DC 


7 




-7 


30812130 






09 6C 





0006 




DC 


6 




-6 


30812140 






096D 





0005 




DC 


5 




-5 


30812150 






09 6E 





0004 




DC 


4 




-4 


30812160 






096F 





0003 




DC 


3 




-3 


30812170 






0970 





0002 




DC 


2 




-2 


30812180 






0971 





0001 


* 


. DC 


1 




-1 


30812190 
30812200 
30812210 

30812220 






* 




X3 - DISK CTRL TABLE 


* 












*••». 


.. .... 


»**«••*•••• 






30812230 












* 








* 


30812240 






0972 





0000 . 


OCT 


DC 


/OOOO 


ZERO CONSTANT 





30812250 


■ 


DATE 


C2JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 




PROG ID 


0308-4 


EC NO. 


415490 415490C 


419643 


42031? 


420405 




PAGE 
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0973 


1 


0B02 


0974 





0000 


0975 





0000 


0976 





0000 


0977 





0000 


0978 





0000 


0979 





0000 


09 7 A 





0000 


09 7B 





0000 


09 7C 





0000 


09 7D 





0000 


097E 





0000 


097F 





0000 


0900 





0000 


0981 





0000 


0982 





0000 


0983 





0000 


0984 





0000 


0985 





0000 


0986 





0000 


0987 





0000 


0988 





0000 


0989 





0000 


098A 





0000 


09 8B 





0000 


098C 





0000 


09 80 





0000 


098E 





OFFF 


098F 





0000 


0990 





0000 


0991 





0000 


0992 





0000 


09S3 





0400 


0994 





0404 


0995 





0500 


0996 





0600 


099 7 





0680 


0998 





0700 


0999 





0701 



DC 


DCDA 


DC 





DC 





DC 





DC 





DC 





DC 





DC 


c 


DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





DC 





OC 





DC 





DC 





DC 


/OFFF 


DC 





DC 





DC 





DC 





DC 


/0400 


DC 


/0404 


OC 


/0500 


DC 


/0600 


DC 


/06B0 


DC 


/0700 


DC 


/0701 



READ DATA AREA FLD 
SEEK INCR CALC HLD 
SK - MR - RD SWCTL 
I/O AREA / CYL INC 
AREA CODE 
FUNCTION 
MODIFIER 
LAST DSH READ 
LAST GOOD CYL READ 
PRESENT CYL 
DESIRED CYL HDOR 
ACTUAL ADOR READ 
CURRENT WORD CNT 
RD-WR ERR TRY CTR 
SEEK ERR TRY CTR 
TOTAL SEEKS 
TOTAL WRITES 
TOTAL READS 
TOTAL SEEK ERRORS 
TOT SFT WR ERRORS 
TOT HRD WR ERRORS 
TOT SFT RD 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

ERRORS 22 



TOT HRD RD ERRORS 23 

TOT PROG PASSES 24 

ROUTINE EXEQ NUM 25 

RD-RDCK MOOE CODE 26 

LOST TIME DLA CTR 27 

LOST TIME DLA XNT 28 

NTRUPT RTRN ADDR 29 

WO NUM OF PAT ERR 30 

DESIRED PATTERN 31 

ACTUAL PATTERN 32 

DISK SEEK — IN — 33 

DISK SEEK —OUT— 34 

DISK WRITE OATA 35 

DISK REAO DATA 36 

DISK REAO CHECK 37 

DISK SENSE NORSET 38 

DISK SENSE RESET 39 

X3 - MSAG REF TBL * 

« 
* 

SETUP MSAG FORMAT RTNS * 
.................... .....* 

* 





099A 


0000 




FORMO 


DC 







ENTRY ADOR 




099B 


1 6580 


099A 




LDX 


11 


FORMO 


SAVE ENTRY FOR RTRN 




099D 


6A7F 






STX 


2 


REMRK 


SET PHRASE IN TWOPA 




099E 


6200 






LDX 


2 





GET PRINT CONTROL 




099F 


6A7A 






STX 


2 


HOSW 


CLEAR HEX-DEC CTRL 




09 AO 


6A7A 






STX 


2 


DPCW 


' SET IT IN TWOPA 




09 A 1 


6A7A 






STX 


2 


ALPHA 


CLEAR ALPHA ADDR 1 




09 A2 


705C 




£ 


MDX 




MCALL 


BR TO MSG CTRL RT 




09A3 


0000 




F0RM1 


DC 







ENTRY ADDR 




09A4 


1 6580 


09A3 




LDX 


11 


F0RM1 


SAVE ENTRY FRO RTRN 




09A6 


6203 






LDX 


2 


3 


GET PRINT CONTROL 




09A7 


6A73 






STX 


2 


DPCW 


SET IT IN TWOPA 




09 A8 


6200 






LDX 


2 





SET X2 TO ZERO 




09A9 


6A70 






STX 


2 


HDSW 


CLEAR HEX-DEC CTRL 




09 AA 


7013 




£ 


MDX 




TWFRM 


BR TO FINISH SETUP 




09 AB 


0000 




F0RM2 


DC 







ENTRY ADOR 




09AC 


1 6580 


09 AB 




LDX 


11 


F0RM2 


SAVE ENTRY FOR RTRN 


DATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 


EC NO. 


415490 415490C 


419643 


420317 


420403 



SE 



SE 



SE 



30812260 
30812270 
30812280 
30812290 
30812300 
30812310 
30812320 
30812330 
30812340 
30812350 
30812360 
30812370 
30812380 
30812390 
30812400 
30812410 
30812420 
30812430 
30812440 
30812450 
30812460 
30812470 
30812480 
30812490 
30812500 
30812510 
30812520 
30812530 
30812540 
30812550 
30812560 
30812570 
30812580 
30812590 
30812600 
30812610 
30812620 
30812630 
30812640 
30812650 
30812660 
30812670 
30812680 
30812690 
30812700 
30812710 
30812720 
30812730 
30812740 
30812750 
30812760 
30812770 
30812780 
30812790 
30812800 
30812810 
30812B20 
30812830 
30812840 
30812850 
30812860 
30812870 
30812880 
30812890 
30812900 
30812910 
30812920 
30812930 



PROG ID 
PAGE 



0308-4 
10 





09AE 


6200 




LDX 


2 





SET X2 TO ZERO 




30812940 






09AF 


6A6A 




STX 


2 


HOSW 


CLEAR HEX-DEC CTRL 




30812950 






09 BO 


621F 




LDX 


2 


31 


GET PRINT CONTROL 




30812960 






09B1 


6A69 




STX 


2 


DPCW 


SET IT IN TWOPA 




30812970 






09B2 


C309 




LD 


3 


9 


GET LAST ADDR 




30812980 






09B3 


4399 




BSI 


3 


-103 


BR TO DSK CNVRT RT 


SC 


30812990 






09 B4 


D06B 




STO 




MSGC2 


SET AODR IN TWOPA 




30813000 






09B5 


C30B 




LD 


3 


11 


GET DESIRED ADDR 




30813010 






09B6 


4399 




BSI 


3 


-103 


BR TO DSK CNVRT RT 


sc 


30813020 






09B7 


D069 




STO 




MSG£3 


SET IN TWOPA 




30813030 






09B8 


C30C 




LD 


3 


12 


GET ACTUAL ADDR 




30813040 






09B9 


4399 




BSI 


3 


-103 


BR TO DSK CNVRT RT 


SC 


30813050 






09BA 


DO 67 




STO 




MSGC4 


SET IN TWOPA 




30813060 






09BB 1 


6600 


0A8A 


LDX 


L2 


FRTRD 


GET ALPHA ADDR 2 




30813070 






09BD 


6A5F 




STX 


2 


REMRK 


SET IN TWOPA 




30613080 






09BE 1 


6600 


0A7E 


TWFRM LDX 


12 


1N0SW 


GET ALPHA ADDR 1 




308130SO 






09C0 


'■ASB 




STX 


2 


ALPHA 


SET IN TWOPA 




30813100 






09C1 


C308 




LD 


3 


8 


GET DSW 




30813110 






09C2 


D05C 




STO 




MSGtl 


SET IT IN TWOPA 




30813120 






09C3 1 


C400 


08AB 


LD 


L 


DEXIOU 


GET INST 




30813130 






09C5 


7038 




MDX 

* 




MCALL- 1 


BR TO SET IN MSAG 


SX 


30813140 
30813150 






09C6 


0000 




F0RM3 DC 







ENTRY ADDR 


SE 


30813160 






09C7 1 


6580 


09C6 


LDX 


11 


F0RM3 


SAVE ENTRY FOR RTRN 




30813170 






09C9 


623F 




LOX 


2 


63 


GET PRINT CONTROL 




30813180 






09CA 


6A50 




STX 


2 


DPCW 


SET IT IN TWOPA 




30813190 






09CB 


6208 




LDX 


2 


8 


GET HEX-DEC CONTROL 




30813200 






09CC 


6A4D 




STX 


2 


HDSW 


SET IT IN TWOPA 




30813210 






09C0 


C30C 




LD 


3 


12 


GET ACTUAL ADDR 




30813220 






09CE 


4399 




BSI 


3 


-103 


BR TO CNVRT RT 


SC 


30813230 






09CF 


D050 




STO 




MSGC2 


SET IN TWOPA 




30613240 






09D0 


C31E 




LD 


3 


30 


GET WD # IN REC 




30813250 




, 


0901 


004F 




STO 




MSG&3 


SET IN TWOPA 




30813260 






09D2 


C31F 




LD 


3 


31 


GET DESIRED PATTERN 




30813270 






09D3 


004E 




STO 




MSG£4 


SET IT IN TWOPA 




30813280 






09D4 


C320 




LD 


3 


32 


GET ACTUAL PATTERN 




30813290 






0905 


D04D 




STO 




MSGC5 


SET IT IN TWOPA 




30813300 






09D6 1 


6600 


0A92 


LOX 


L2 


AWEAX 


GET ALPHA 2 ADOR 




30813310 






0908 


70E4 




MDX 

» 




TWFRM-1 


BR TO FINISH SETUP 


SX 


30813320 
30813330 






0909 


0000 




F0RM4 DC 







ENTRY ADDR 


SE 


30813340 






09DA 1 


6580 


09 D9 


LDX 


11 


F0RM4 


SAVE ENTRY FOR RTRN 




30813350 






090C 


6200 




LDX 


2 





SET X2 TO ZERO 




30813360 






0900 


6A3C 




STX 


2 


HDSW 


CLEAR HEX-DEC CTRL 




30813370 






09 OE 


620F 




LDX 


2 


15 


GET PRINT CONTROL 




30613380 






09DF 


6A3B 




STX 


2 


DPCW 


SET IT IN TWOPA 




30813390 






09E0 


C30C 




LD 


3 


12 


GET ACTUAL ADDR REAO 




30613400 






09E1 


4399 




BSI 


3 


-103 


BR TO ADOR CNVRT RT 


SC 


30813410 






09E2 


0030 




STO 




MSGC2 


SET IT IN TWOPA 




30813420 






09E3 1 


C400 


OB 04 


LD 


L 


DCDA&2 


GET FIRST DATA WD 




30813430 






09E5 


D03B 




STO 




MSGC3 


SET IT IN TWOPA 




30813440 






09E6 1 


6600 


0A84 


LDX 


L2 


A DATA 


GET ALPHA 2 ADDR 




30813450 






09E8 


70D4 




MDX 

* 




TWFRM-1 


BR TO FINISH SETUP 


SX 


30813460 
30813470 






09 E9 


0000 




FORMS DC 







ENTRY ADDR 


SE 


30813460 






09EA 1 


6580 


09E9 


LDX 


11 


F0RM5 


SAVE ENTRY FOR RTRN 




30813490 






09EC 


6200 




LDX 


2 





SET X2 TO ZERO 




30813500 






09E0 


6A2F 




STX 


2 


REMRK 


SET IT IN TWOPA 




30813510 






09EE 


6207 




LDX 


2 


7 


GET CTRL XTNT 




30813520 






09EF 


6A2A 




STX 


2 


HDSW 


SET HEX-OEC CTRL 




30813530 






09 FO 


6A2A 




STX 


2 


DPCW 


SET PRINT CTRL 




30813540 






09F1 


C3CB 




LD 


3 


-53 


GET BR INST 




30813550 






09F2 


DO 50 




STO 




CTLOG 


SET IT IN STATUS CTL 




30813560 






09F3 1 


6600 


0A52 


LOX 


L2 


TWMLP 


GET MULTILINE XFER 




30813570 






09F5 


6A4E 




STX 


2 


CTL0GC1 


STATUS LOOP CTRL 




30813580 






09F6 1 


6600 


OADF 


LDX 


L2 


STAT1 


GET ALPHA ADOR 




30813590 






09 F8 


6A23 




STX 


2 


ALPHA 


SET IT IN TWOPA 




30813600 






09F9 


C313 




LD 


3 


19 


GET RESK COUNT 




30813610 




DATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 
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09FA D025 






STO 




MSG62 


SET IT IN TWOPA 






09FB C310 






LD 


3 


16 


GET SEEK COUNT DATA 






09FC D022 






STO 




MSGtl 


SET IT IN TWOPA 






09FD C318 






LD 


3 


24 


GET PASS COUNT 


.. 




09FE D01F 






STO 




MSG 


SET IT IN TWOPA 






09FF 702E 




MCALL 

* 

FRM5A 


MDX 




CALLM 


BR TO MSAG CTRL RT 






OAOO 1 6600 


OAOD 


LDX 


L2 


FRM5B 


LINE THREE SETUP 






0A02 6A54 






STX 


2 


TWMLBtl 


GET NEW MLP RTRN 






0A03 1 6600 


0AE9 




LDX 


L2 


STAT2 


GET ALPHA ADDR 






0A05 6A16 






STX 


2 


ALPHA 


SET IT IN TWOPA 






0A06 C311 






LO 


3 


17 


GET WRITE COUNT 






0A07 DO 16 






STO 




MSG 


SET IT IN TWOPA 






0A08 C314 






LD 


3 


20 


GET WR SFT ERRS 






0A09 DO 15 






STO 




MSGtl 


SET IT IN TWOPA 






OAOA C315 






LD 


3 


21 


GET WR HRD ERRS 






OAOB 0014 






STO 




MSGt2 


SET IT IN TWOPA 






OAOC 7031 






MDX 




TWLOGtl 


BR TO LOG CALL 






OAOO 1 6600 


0A58 


* 

FRM5B 


LDX 


L2 


TWMLR 


GET MLP RESET ADDR 






OAOF 6A47 






STX 


2 


TWMLBtl 


SET RESET AODR MLP 






0A10 1 6600 


0AF3 




LDX 


L2 


STAT3 


GET ALPHA ADDR 






0A12 6A09 






STX 


2 


ALPHA 


SET IT IN TWOPA 






0A13 C312 






LD 


3 


18 


GET REAO COUNT 






0A14 D009 






STO 




MSG 


SET IT IN TWOPA 






0A15 C316 






LD 


3 


22 


GET RD SFT ERRS 






0A16 D008 






STO 




MSGtl 


SET IT IN TWOPA 






0A17 C317 






LD 


3 


23 


GET RD HRD ERRS 






0A18 70F2 
0A19 0000 




* 


MDX 




FRH5B-2 


BR TO LOG CALL 


* 




* 






TH 


MESSAGE OUTPUT AREA 


* 




« 
TWOPA 


DC 






MESSAGE NUMBER 


* 




. 0A1A 0000 




HDSU 


DC 






HEX / DEC SN 






0A1B 0000 




DPCW 


DC 






OAT A ID 






0A1C 0000 




ALPHA 


DC 






ALPHA 1 






0A1D 0000 




REMRK 


DC 






ALPHA 2 






0A1E 0000 




MSG 


DC 






M 






0A1F 0000 






DC 






E 






0A20 0000 






DC 






S 






0A21 0000 






DC 






s 






0A22 0000 






DC 






A 






OA23 0000 






DC 






G 






0A24 0000 






DC 






E 






0A25 0000 






DC 












0A26 0000 






DC 













OA27 0000 






DC 






A 






OA28 0000 






DC 






T 






0A29 0000 






DC 






A 






0A2A 0000 






DC 












OA2B 0000 






DC 






W 






0A2C 0000 






DC 






D 




. 


0A2D 8100 
0A2E C100 




CCRTN 

• 


DC 




/eioo 


S 


* 




* 






MESSAGE CALL CTRL RTS 


* 




* 
CALLM 


LO 


1 





GET MSAG NUM 


« 




0A2F 00E9 






STO 




TWOPA 


SET IT IN TW OPA TBL 




0A30 180C 






SRA 




12 


SHIFT FOR ERR RT CK 




0A31 F3F2 






EOR 


3 


-14 


TEST FOR ERR IND 






OA32 1 4C20 


0A3D 




BSC 


L 


TWLOG.Z 


BR TO LOG CALL RT 






0A34 7101 






MDX 


1 


1 


ADO FOR LOOP ADOR 






OA35 C100 






LO 


1 





GET ERROR ADDR 






0A36 D004 






STO 




TWERRt3 


SET IT IN CALL SEO 




DATE 


02JAN66 I 


31JUL66 


15N0V66 


15JUN67 


15FEB68 




EC NO. 


415490 415490C 


419643 


420317 


420403 





sx 



SE 



SX 



SE 



SX 



SE 



30813620 

30813630 

30813640 

308136S0 

30813660 

30813670 

30813680 

30813690 

30813700 

30813710 

30813720 

30813730 

30813740 

30813750 

30813760 

30813770 

30813780 

30813790 

30813800 

30813810 

30813820 

30813830 

30813840 

30813850 

30813860 

30813870 

30813880 

30813890 

30813900 

30813910 

30813920 

30813930 

30813940 

30813950 

30813960 

30813970 

30813980 

30813990 

30814000 

30814010 

30814020 

30814030 

30814040 

30814050 

30814060 

30814070 

30814080 

30814090 

308141M 

30814110 

30814120 

30814130 

30814140 

30814150 

30814160 

30814170 

30814180 

30814190 

30814200 

30814210 

30814220 

30814230 

30814240 

30814250 

30814260 

30814270 

30B14280 

30814290 
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0A37 6927 


STX 

* 


1 


TWX1H 


SAVE INDEX 1 DATA 

» 


30814300 
30814310 








* 




ERROR 


RT CALL SEO * 


30814320 








* 






* 


30814330 






0A38 4480 0162 


TWERR BSI 


I 


ERROR 


BR TO MON ERR RT Sa 


30814340 






0A3A 1 0A19 


DC 




TWOPA 


OPA STRING 


30814350 






0A3B 0000 


DC 







LOOP ON ERR ADDR 


30814360 






0A3C 7008 


MDX 

* 




TWRTN 


BR TO MSG KTRN CTRL SE 


30814370 
30814380 








• 




LOG RT CALL SEO * 


30814390 








* 






* 


30814400 






0A30 6921 


TWLOG STX 


1 


TWX1H 


SAVE INDEX 1 DATA 


30814410 






0A3E 4480 0163 


BSI 


I 


LOG 


BR TO MONITOR LOG 


30814420 






OA40 1 0A19 


DC 




TWOPA 


OPA STRING 


30814430 






0A41 1 6700 0972 


LDX 

* 


L3 


OCT 


SET XR3 CONTROL ADDR 


30814440 
30814450 






0A43 1000 


CTLOG NOP 






LOG - STATUS 


30814460 






0A44 1000 


NOP 

» 






LOOP CONTROL 

* 


30814470 
30814480 








• 




MSAG 


RETRN CTRL RT * 


30814490 








« 






* 


30814500 






0A45 1 6700 0972 


TWRTN LDX 

• 


L3 


OCT 


SET X3 CTRL ADDR SE 


30814510 
30814520 






0A47 1 6600 0A4C 


LDX 


L2 


TWEND 


GET ENTRY ADDR 


30814530 






0A49 1 6E00 05E5 


STX 


L2 


MLSCF 


SET IT IN CTRL TBL 


30814540 






0A4B 439C 


BSI 

• 


3 


-100 


BR TO MONITOR START SX 


30814550 
30814560 






0A4C 1 6700 0972 


TWENO LOX 

* 


L3 


OCT 


SET X3 CTRL AODR SE 


30814570 
30814580 






0A4E 1 6580 0A5F 


LOX 


11 


TWX1H 


GET XI ENTRY ADDR 


30814590 






0A50 4D00 0001 


BSC 

* 


LI 


1 


RETURN TO USER SX 


30814600 
30814610 






0A52 C3D2 


TMMLP LD 


3 


-46 


GET CTRL WORD 


30814620 






0A53 1004 


SLA 




4 


SHIFT FOR MLP CTRL 


30814630 






0A54 E8C6 


OR 




DPCW 


OR IN CTRL COUNT 


30814640 






0AS5 D0C5 


STO 




DPCW 


SET IN FINAL CTRL 


30814650 






0A56 1 4C00 OAOO 


TWMLB BSC 

* 


L 


FRM5A 


RETURN TO NEXT RT 


30814660 
30814670 






0A58 1 6600 OAOO 


TWMLR LDX 


L2 


FRM5A 


GET BASIC AODR 


30814680 






0A5A 6AFC 


STX 


2 


TWMLBtl 


SET IN MLB RETURN 


30814690 






OASB C3D1 


LO 


3 —47 


GET NOP INST 


30814700 






0A5C D0E6 


STO 




CTLOG 


CLEAR MLP CTRL XFER 


30814710 






0A5D D0E6 


STO 




CTL0GC1 


CLEAR MLP CTRL XFER 


30814720 






0A5E 70E6 


MDX 

• 




TWRTN 


RETURN TO NORMAL CTL 


30814730 
30814740 






0A5F 0000 


TWX1H OC 

* 







XI ENTRY HOLD AODR 


30814750 
30814760 
30814770 
30814780 






* 






ADDR CNVRT RT * 
















30814790 
30814800 






• 






* 






0A60 18D0 


DSKAC RTE 




16 


SET Q DATA IN A 


30814810 






0A61 1010 


SLA 




16 


CLR C DATA IN A 


30814820 






0A62 18D0 


RTE 




16 


RESET TO ZERO 


30814830 






0A63 18D3 


RTE 




19 


SHIFT A DATA 


30814840 






0A64 180D 


SRA 




13 


ADJ SECT-HEAD 


30814850 






0A65 D014 


STO 




HCAP1 


SAVE IT 


30814860 






0A66 1010 


SLA 




16 


CLR A REG 


30814870 






0A67 ABF6 


D 


3 


-10 


DIVIDE FOR BASE 10 


30814880 






0A68 18D0 


RTE 


• 


16 


SET QUOTIENT INTO 


30814890 






0A69 DO 11 


STO 




HCAP2 


SAVE REMAINDER 


30814900 






0A6A 1010 


SLA 




16 


CLEAR A REG 


30814910 






0A6B ABF6 


D 


3 


-10 


DIVIDE FOR BASE 10 


30814920 






0A6C 18D0 


RTE 




16 


SET QUOTIENT INTO 


30814930 






0A60 DOOE 


STO 




HCAP3 


SAVE REMAINDER 


30814940 






0A6E 1010 


SLA 




16 


CLEAR A REG 


30814950 






0A6F ABF6 


D 


3 


-10 


DIVIDE FOR BASE 10 


3081496D 






0A79 1800 


RTE 




16 


SEG UUOTIENT INTO Q 


30814970 




DATE 
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0A71 1004 




SLA 


4 


SHIFT TO BUILD ADDR 




0A72 E809 
0A73 1004 




OR 
SLA 


HCAP3 
4 


OR IN TENS CYL AOOR 
SHIFT AGAIN 




0A74 E806 
0A75 1004 




OR 
SLA 


HCAP2 
4 


OR IN UNITS CYL ADDR 
SHIFT AGAIN 




0A76 E803 




OR 


HCAP1 


OR IN HEAD-SECT 




0A77 D005 


* 


STO 


HCAP4 


SAVE FINAL „ADDR 




0A78 1 4C80 090B 


£ 


BSC 


I ARC 


BR TO USER 




0A7A 0000 


HCAP1 DC 





HEAD-SECTOR 




0A7B 0000 


HCAP2 DC 





UNITS CYL ADDR 




0A7C 0000 


HCAP3 DC 





TENS CYL AODR 




0A70 0000 


HCAP4 OC 

* 
* 





TOTAL CYL ADDR 

* 




0A7E 2074 






ALPHA PHRASES TABLE * 




* 

INOSW DC 


/2074 


* 
INST OSH 




0A7F 989C 




DC 


/989C 






0A80 2121 




OC 


/2121 






0A81 3098 




DC 


/3098 






0A82 9000 




DC 


/9000 






OA83 FFFF 


* 


DC 


/FFFF 






0A84 3C30 


A DATA DC 


/3C30 


ADDR DATA 




OA85 3060 




DC 


/3060 






0A86 2130 




DC 


/2130 






0A87 3C9C 




DC 


/3C9C 






0A88 3C00 




DC 


/3C00 






0A89 FFFF 


* 
FRTRD 


DC 


/FFFF 






OASA 1060 
0A8B 5070 


DC 
DC 


/1060 
/5070 


FROM TO READ 




0A8C 2121 




DC 


/2121 






0A8D 9C50 




DC 


/9C50 






OA8E 2121 




DC 


/2121 






OAflF 6034 




DC 


/6034 






0A90 3C30 




DC 


/3C30 






0A91 FFFF 


£ 


DC 


/FFFF 






0A92 3C30 
0A93 3060 


AMEAX 


DC 
OC 


/3C30 
/3060 


ADDR WD f EXPT ACTL 




0A94 2190 




OC 


/2190 






0A95 3021 




DC 


/3021 






0A96 34C0 




DC 


/34C0 






0AV7 2134 




OC 


/2134 






0A98 9454 




OC 


/9454 






0A99 9C21 




DC 


/9C21 






0A9A 3C1C 




DC 


/3C1C 






0A9B 9C5C 




DC 


/9C5C 






0A9C FFFF 


» 
ARIET 


OC 


/FFFF 






0A9D 3C30 
0A9E 3060 


DC 
DC 


/3C30 
/3060 


ADDR RECORDED IN ERR 
TBL 




0A9F 2160 




DC 


/2160 






OAAO 341C 




DC 


/341C 






0AA1 5060 




DC 


/5060 






0AA2 3034 




DC 


/3034 






0AA3 3021 




DC 


/3021 






0AA4 2074 




DC 


/2074 






0AA5 2134 




DC 


/2134 






0AA6 6060 




OC 


/6060 






0AA7 219C 




DC 


/219C 






0AA8 185C 
0AA9 FFFF 




OC 
DC 


/185C 
/FFFF 




DATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 
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EC NO. 
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420317 
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30814980 

30814990 

30815000 

30815010 

30815020 

30815030 

30815040 

30815050 

30815060 

30815070 

30815080 

30815090 

30815100 

30815110 

30815120 

30815130 

30815140 

30815150 

30815160 

30815170 

30815180 

30815190 

30815200 

30815210 

30815220 

30815230 

30815240 

30815250 

30815260 

30815270 

30815280 

30815290 

30815300 

30815310 

30815320 

30815330 

30815340 

30815350 

30815360 

30815370 

30815380 

30815390 

30815400 

30815410 

30815420 

30815430 

30815440 

30815450 

30815460 

30815470 

30815480 

30815490 

30815500 

30815510 

30815520 

30815530 

30815540 

30815550 

30815560 

30815570 

30815580 

30815590 

30815600 

30815610 

30815620 

30815630 

30815640 

30815650 



PROG ID 
PAGE 



OAAA 609C 
OAAB 21C0 
OAAC 74BC 
OAAD 3C00 
OAAE FFFF 



NORTN 



OAAF 
OABO 
0AB1 
0AB2 
0AB3 
0AB4 
0AB5 

0AB6 
0AB7 
0AB8 
0AB9 
OABA 
OABB 
OABC 
OABO 



3C60 
7021 
7450 
9C21 
2450 
7034 
FFFF 

2074 
209C 
5C21 
183C 
3021 
543C 
1C58 
FFFF 



OABE 3098 
OABF 9021 
OACO 3460 
0AC1 6021 
0AC2 FFFF 

0AC3 7450 
0AC4 9C21 
0AC5 6030 
0AC6 A442 
0AC7 FFFF 



0AC8 
0AC9 
OACA 
OACB 
OACC 
OACO 
OACE 
OACF 
OAOO 
0AD1 

0AD2 
0AD3 
0AD4 
0AD5 
0AD6 
0AD7 
0AD8 

0AD9 
OADA 
OADB 
OADC 
OADD 
OADE 

OADF 
OAEO 
0AE1 
0AE2 
0AE3 
0AE4 



2074 
209C 
5C21 
3020 
70 3C 
5C21 
543C 
1C58 
8486 
FFFF 

3474 
3021 
2074 
209C 
5C21 
5058 
FFFF 

1C34 
211C 
A45C 
2118 
3C30 
FFFF 



54 3C 
9898 
C021 
9834 
3458 
9821 



* 
ARMNH 



* 
BDPAK 



OC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 

OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



DSHER DC 
DC 
DC 
DC 
DC 

NTRDY DC 
OC 

DC 
DC 
OC 

• 

DPMSG DC 
OC 
DC 
DC 
OC 
OC 
DC 
DC 
DC 
DC 

NDMSG DC 
DC 
DC 
DC 
DC 
DC 
DC 



CECAB 



« 
STAT1 



0308-4 
12 



DATE 
EC NO. 



02JAN66 
415490 



01JUL66 

415490C 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



15N0V66 
419643 



/609C 
/21C0 
/74BC 
/3C00 
/FFFF 

/3C60 
/7021 
/7450 
/9C21 
/2450 
/7034 
/FFFF 

/2074 
/209C 
/5C21 
/183C 
/3021 
/543C 
/1C58 
/FFFF 

/3098 
/9021 
/3460 
/6021 
/FFFF 

/7450 
/9C21 
/6030 
/A442 
/FFFF 

/2074 
/209C 
/5C21 
/3020 
/703C 
/5C21 
/543C 
/1C58 
/8486 
/FFFF 

/3474 
/3021 
/2074 
/209C 
/5C21 
/5058 
/FFFF 

/1C34 
/211C 
/A45C 
/2118 
/3C30 
/FFFF 

/543C 
/9898 
/C021 
/9834 
/3458 
/9821 



RT * N/A 



ARM NOT HOME 



INITL BAD PACK 



DSW 
ERR 

NOT ROY 

INITL D1MAL PACK-. 



END INITL OK 



CE CYL BAD 



PASS* SEEKS RESKS 



15JUN67 
420317 



15FEB68 
420403 



30315660 

30815670 

30815680 

30815690 

30815700 

30815710 

30815720 

30815730 

30815740 

30815750 

30bl5760 

30815770 

30815780 

30815790 

30815800 

30815810 

30815820 

30815830 

30815840 

30815850 

30815860 

308158/0 

30815880 

30815890 

30815900 

30815910 

30815920 

30815930 

30815940 

30815950 

30815960 

308159Y0 

30815980 

30815990 

30816000 

30816010 

30816020 

30816030 

30816040 

30816050 

30816060 

30816070 

30816080 

30816090 

30816100 

30816110 

30816120 

30816130 

30816140 

30816150 

30816160 

30816170 

30816180 

30816190 

30816200 

30816210 

30816220 

30816230 

30816240 

30816250 

30816260 

30816270 

30816280 

30816290 

30816300 

30816310 

30816320 

30816330 



PROG ID 
PAGE 



0308-4 
12A 



IBM NA1NTFNANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2315 DISK INITIALIZATION 



PART NO. 2191216 
PAGE 13 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2315 DISK INITIALIZATION 



P.ART NO. 2191216 
PAGE . 13A 





0AE5 6034 




DC 


/6034 






30816340 






0AE6 98S8 




DC 


/9858 






30816350 






0AE7 9800 




DC 


/9800 






- 30816360 


, 




0AE8 FFFF 


* 


DC 


/FFFF 






30816370 
30816380 






0AE9 9060 


STAT2 


DC 


/9060 


WRITE SFTER HKDER 


30816390 






OAEA 209C 




DC 


/209C 






30816400 






OAEB 3421 




DC 


/3421 






30816410 






OAEC 9810 




OC 


/9810 






30816420 






OAED 9C34 




DC 


/9C34 






30816430 






OAEE 6021 




DC 


/6021 






30B16440 






OAEF 2460 




DC 


/2460 






30816450 






OAFO 3034 




DC 


/3034 






30816460 






0AF1 6000 




OC 


/6000 






30816470 






0AF2 FFFF 


* 


DC 


/FFFF 






30816480 
30816490 






0AF3 6034 


STAT3 


DC 


/6034 


READS SFTER HRDER 


30816500 






0AF4 3C30 




DC 


/3C30 






30816510 






OAFS 9821 




OC 


/9821 






30816520 






0AP6 9610 




DC 


/9810 






30816530 






0AF7 9C34 




DC 


/9C34 






30816540 






OAFS 6021 




DC 


/6021 






30816550 






0AF9 2460 




DC 


/2460 






30816560 






OAFA 3034 




DC 


/3034 






30816570 






OAFB 6000 




DC 


/6000 






30816580 






OAFC FFFF 


* 


DC 


/FFFF 






30816590 
30816600 






OAFD 9834 


SELDU 


DC 


/9834 


SEL FILE 




30816610 






OAFE 5C21 




DC 


/5C21 






30816620 






OAFF 1020 




OC 


/1020 






30816630 






0800 5C34 




OC 


/5C34 






30816640 






OBOI FFFF 


« 


DC 


/FFFF 




» 


30816650 
30816660 
30816670 
30816680 






* 




OISK IOCC AND CE HIST * 


















30816690 
30816700 






* 








* 






0BU2 0000 


DC DA 


DC 




WORD COUNT 




30816710 






0B03 0000 




OC 




DATA FIRST WORD 


30816720 






0B04 0140 




BSS 


320 


REMAINING AREA 


30816730 






0C44 0050 




BSS 


80 


SAFTY AREA FOR RO ERR 


30816740 








* 










30816750 






0C94 FFFF 


DCE 


DC 


/FFFF 


DISK HISTORY 


DATA 


30816760 






0C95 FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816770 






0C96 FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816780 






0C97 FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816790 






0C98 FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816800 






0CV9 FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816810 






0C9A FFFF 




DC 


/FFFF 


DISK HISTORY 


OAT A 


30816820 






0C9B FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816830 






0C9C' FFFF 




OC 


/FFFF 


DISK HISTORY 


DATA 


30816840 






0C9D FFFF 




DC 


/FFFF 


DISK HISTORY 


OATA 


30816850 






0C9E FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816860 






0C9F FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816870 






' OCAO FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816880 






0CA1 FFFF 




DC 


/FFFF 


DISK HISTORY 


OATA 


30816890 






0CA2 FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816900 






0CA3 FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816910 






0CA4 FFFF 




DC 


/FFFF 


DISK HISTORY 


OATA 


30816920 






0CA5 FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816930 






0CA6 FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816940 






0CA7 FFFF 




OC 


/FFFF 


DISK HISTORY 


DATA 


30816950 






0CA8 FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816960 






0CA9 FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30816970 






OCAA FFFF 




DC 


/FFFF 


OISK HISTORY 


DATA 


30816980 






OCAB FFFF 




OC 


/FFFF 


OISK HISTORY 


DATA 


30816990 






OCAC FFFF 




DC 


/FFFF 


DISK HISTORY 


DATA 


30817000 






OCAO FFFF 


• 


DC 


/FFFF . 


DISK HISTORY 


DATA 


30817010 




DATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 




PROG 10 


0308-4 


EC NO. 


415490 415490C 


419643 


420317 


420403 




PAGE 


13 



OCAE FFFF 
OCAF FFFF 



OC 
DC 



/FFFF 
/FFFF 



DISK HISTORY DATA 
DISK HISTORY DATA 



* * 

* ** START INITIALIZATION ** * 

* * 
********************************************* 

* 







• 










* 








* 
* 






BEGIN 


RT F01 MR ADDR-PAT * 

* 




OCBO C3E5 


F01AA 


LD 


3 


-27 




GET WORD COUNT 


SE 


0CB1 0300 






STO 


3 


13 




SET WORD COUNT 




0CB2 C300 






LD 


3 







CLR ACC 




0CB3 1 D400 


ODCA 




STO 


L 


CYLEX 




CLR CTR 




0CB5 1 D400 


0C06 




STO 


L 


CYLEC 




CLR CTR 




0C87 C300 






LD 


3 







DESIREO CYLINDER AND 




0CB8 030B 






STO 


3 


11 




SECTOR SET TO 000 






* 
* 
* 








* 

SELECTION OF NEXT SECTOR* 

* 




0CB9 4384 


FC1AB 


BSI 


3 


-124 




BR TO CK BYPASS CYL 


SC 


OCBA 43AE 




F01SK 


BSI 


3 


-82 




SEEK NEXT SECTOR 


SC 


OCBB 1 4C00 


OOCB 




BSC 


L 


PATRT 




BR TO SETUP PATTERN 




OCBO 43AB 




F01UR 


BSI 


3 


-85 




WRITE SECTOR ID 


SC 


OCBE 700E 






MDX 




F01AE 




ERROR RETURN ADDRESS 






* 
* 








* 
IF ID IS OK, GEN NEW * 








* 








SECTOR ADDRESS AND * 








* 








CONTINUE TEST * 




OCBF 43A8 


F01RD 


BSI 


3 


-88 




BR TO RD RT 


SC 


OCCO 7010 




* 
F01AC 


MOX 




F01AF 




RD ERR RETURN 




0CC1 1 7401 


097D 


MDX 


L 


DCT611 


.1 


INCREMENT SECTOR ADR 




0CC3 C3BE 






LD 


3 


-66 




GET DISK MAX CTRL 




0CC4 F30B 






EOR 


3 


11 




TEST CURRENT ADDR 




0CC5 4820 






BSC 




Z 




BR OUT IF ZERO 




0CC6 70F2 




* 


MDX 




F01AB 




CONTINUE TEST 




0CC7 C301 




LD 


3 


-47 




GET NOP INST 




0CC8 1 D400 


0768 




STO 


L 


OCWR 




SET BR/NOP SW TO NOP 




OCCA 1 0400 


0787 


* 


STO 


L 


DCRD 




SET BR/NOP SW TO NOP 




OCCC 439F 




BSI 


3 


-97 




BR TO RT RTRN CTRL 


SX 




• 
* 
* 






* 

ERR ANALYSISS 6 LOGGING * 

* 




OCCD 4339 


F01AE 


BSI 


3 


F0RM2-DCT 


BR TO MSAG FORM 2 


MC 


OCCE E060 






DC 




/E060 




— MSAG » — 




OCCF 1 OCBD 






DC 




F01UR 




ERROR LOOP RE-MR iTE 




OCDO 70EE 






MDX 




F01RD 




BR TO RO CK 




0CD1 4339 




F01AF 


BSI 


3 


F0RM2- 


-OCT 


BR TO MSAG FORM 2 


MC 


0C02 E061 






DC 




/E061 




— MSAG # — 




0CD3 1 OCBF 






DC 




F01R0 




ERR LOOP AODR 




0jC04 4002 






ESI 




CETRT 




BR TO CYL ERR TBL RT 


SC 


0C05 70EB 






MDX 




F01AC 




BR TO CONTINUE 





DATE 


0/.JAN66 


01JUL66 


15N0V66 


15JUN67 


15FEB68 


FC NO. 


415490 


415490C 


419643 


420317 


420403 



30817020 

30817030 

30817040 

30817050 

30817060 

30817070 

30817080 

30817090 

30817100 

30817110 

30817120 

30817130 

30817140 

30817150 

30817160 

30817170 

30817180 

30817190 

30817200 

30817210 

30817220 

30817230 

30817240 

30817250 

30817260 

30817270 

30817280 

30817290 

30817300 

30817310 

30817320 

30817330 

30817340 

30817350 

30817360 

30817370 

30617380 

30817390 

30817400 

30817410 

30817420 

30817430 

30817440 

30817450 

30817460 

30817470 

30817480 

30817490 

3081 I 500 

30817510 

30817520 

30817530 

30817540 

30817550 

30817560 

30817570 

30817580 

30817590 

30817600 

30817610 

30817620 

30817630 

30817640 

30817650 

30817660 

30817670 

30817680 

30817690 
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DATE 
EC NO. 



ocu6 o qdoo 

0CD7 0000 
0CD8 COFD 
0CD9 F3FD 
OCUA 1 4C18 0CF6 
OCbC 1 7401 0C06 

OCUE 1 C400 ODCA 
OCtO 4820 
0CE1 7002 
0CE2 6100 
0CE3 7002 
QCt4 1 6580 ODCA 



DC 



0C66 
0CE7 
0CE8 
0C69 
OCEA 
OCEC 
OCED 
OCfcE 
OCEF 
OCFO 
0CF1 
0CF2 
0CF4 



6208 
C30B 
1803 

1003 

1 D500 ODDE 
7101 

83FF 
72FF 
70FA 
93FF 
D30B 
7408 ODCA 



1 4C80 0CD7 



0CF6 C3D1 
0CF7 1 D400 0D72 
0CF9 70E4 



OCFA 0000 

OCFB 4339 

OCFC EOCE 

OCFO 0000 

OCFE 1 4C80 OCFA 

0000 40F9 

0001 7070 

0002 40F7 

0003 7055 



OD04 C3FF 
0DU5 030D 
0D06 C3CF 
0D07 D30B 
OOOa 6500 05B0 



* 
* 

CYLEC 

* 

CETRT DC 
LD 
EOR 
BSC 
MDX 

CKCET LO 
BSC 
MDX 
LDX 
MOX 
LDX 

« 

SETUP LOX 
LD 
SRA 
SLA 

CSADR STO 
MDX 
A 

MDX 
MDX 
S 

STO 
MDX 
BSC 

* 

DSKNG LD 
STO 
MDX 

* 

* 

CETYP DC 
BSI 
DC 
DC 

BSC 

* 

CESX3 BSI 

MOX 

« 

CESX7 BSI 
MOX 

« 
* 
* 

F02AA LD 
STO 
LD 
STO 
LDX 



ERROR CONTROL ROUTINE 



CYL ERR CTR 

SAVE ENTRY 

CYLEC TEST S E 

3 -3 FOR 
L DSKNG.C- MAX ERR TEST 

L CYLEC, 1 CNT 

L CYLEX GET ERR CNT 

2 SKIP IF ZERO 

*C2 BR TO SET ERR CTRL 

1 SET CNT TO ZERO 
*£2 BR TO SETUP RT 

II CYLEX SET IN ERR CTRL CNT 

2 8 SET X3 CTRL TO 8 

3 H CET INITIAL ADDR 

3 CLR HD/SECT 
3 CLR HD/SECT 

LI CYLET PUT SECT AODR IN CET 

1 i ADV CYL ERR TBL CTRL 
3 -1 ADV SECT ADOR 

2 -1 DEC ADDR C-S CTRL 
CSADR BR TO LOOP 

3 "I RE-ADJ ADDR CTRLS 
3 11 SET IN PROPER ADDR 

L CYLEX, 8 INCREMENT ERR CNTR 

I CETRT RETURN TO CALL RT SX 



SET BAD PACK ERR SWITCH * 



3 -47 GET NOP INST 
L DNGSW SET BR INST TO NOP 
CKCET BR TO SETUP 



CE DATA ERR ROUT 



3 F0RM2-DCT 
/EOCE 

I CETYP 

CETYP 

ONGSW 

CETYP 
CEXA7 



SAVE ENTRY 

BR TO HSAG FORM 2 

— MSAG # ~ 

NO ERR LOOP ADDR 

RETURN TO MAIN LINE 

BR TO TYPE ERR MSAG 
BR TO CONTINUE 

BR TO TYPE ERR MSAG 
BR TO CONTINUE 



SE 
SX 



MC 



BEGIN ROUTINE 2 



3 "I SET WORD COUNT FOR 

3 13 READ TO 001 

3 -49 OESIRED CYLINDER AOR 

3 11 SECTOR SET TO 000 

LI 1456 NUMBER OF SECTORS 



TE 



02JAN66 
415490 



01JUL66 
415490C 



15N0V66 
419643 



15JUN67 
420317 



SELECTION OF NEXT SECTOR* 



15FEB68. 
420403 



30817700 
30817710 
30817720 
30817730 
30817740 
30817750 
30817760 
30817770 
30817780 
30817790 
30817800 
30817810 
30817820 
30817830 
30817840 
30817850 
30817860 
30817870 
30817880 
30817890 
30817900 
30817910 
30817920 
30817930 
30817940 
30817950 
30817960 
30817970 
30817980 
30817990 
30818000 
30818010 
30818020 
30818030 
30818040 
30818050 
30818060 
30818070 
30818080 
30818090 
30818100 
30818110 
30818120 
30818130 
30818140 
30818150 
30818160 
30818170 
30818180 
30818190 
30818200 
30818210 
30818220 
30818230 
30818240 
30818250 
30818260 
30818270 
30818280 
30818290 
30818300 
30818310 
30818320 
30818330 
30818340 
. 30818350 
30818360 
30818370 



PROG ID 
PAGE 



0308-4 
14 





U 

ODOA 6923 
OOOB 4384 
OOOC 43AE 
OOOD 43A8 
ODOE 7008 




* 






* 


30818380 




BSI 

F02SK BSI 

BSI 

MDX 


1 F02XB 
3 -124 
3 -82 
3 -88 
F02A0 


SAVE XI XTANT 
0CA8P RT Sc 
DCSK RT s c 
DCRO RT sc 
ERROR RETURN ADDRESS 


30818390 
30818400 
30816410 
30818420 
30818430 
30818440 
















30818450 
30818460 








* 
• 
* 


IF 10 IS OK, GEN NEW 
SECTOR ADDRESS AND 
CONTINUE TEST 


* 


30818470 
30818480 
3U818490 




ODOF 1 74FF 
0D11 1000 
0012 1 6580 
0014 71FF 
0D15 70F4 
0016 439F 


097D 
002E 








9 


30818500 




NOP 
LOX 
MDX 
MDX 
BSI 


L OCTtll,-] 


11 F02XB 
1 -1 

F02AB 
3 -97 


1 DECREMENT SECTOR 
SAFTY NOP 
GET XI XTANT 
DECREMENT XRl BY 
CONTINUE TEST 
OCRTN RT 


AOR 

1 

SX 


30818510 
30818520 
30818530 
30818540 
3081b550 
30818560 
30818570 








• 
* 


ERR 


ANALYSISS C LOGGING 


* 


308l85bO 
308185*0 
30818t>U0 




0D17 C30B 
0D18 F30C 
0D19 1803 










* 


30618610 




EOR 
SRA 
BSC 

* 


3 11 
3 12 
3 
L F02AE.Z 


GET DESIRED ADDR 
CMP WITH ACTUAL 




30816620 
3u81t630 
30818640 




0D1A 1 4C20 


0D22 


CLR SECTOR/HEAD 
BR IF CYL NOT EO 




30818650 
30810660 




0D1C C30B 




LD 
EOR 
SLA 
BSC 
MDX 
* 


3 11 
3 12 
12 
L F02AF,Z 
F02AC 






30818670 




0D1D F30C 
0D1E 100C 
001F 1 4C20 
0021 70ED 


0D26 


GET OESIRED AODR 
CMP WITH ACTUAL 
CLR CYLINDER ADDR 
BR IF SECT/HD NOT EQ 
FALSE ERR CONTINUE 


30818680 
30818690 
30818700 
30818710 
30818720 




0D22 4386 
0023 43A8 
0D24 7005 
0025 43A2 




F02AE BSI 
BSI 
MDX 
BSI 

* 


3 -122 
3 -88 

F02AG 
3 -94 


DRESK RT 
DCRD RT 
ERR RO RETURN 
RESTART EXIT 


SC 
SC 

SX 


30818730 
30818740 
30818750 
30818760 
30818770 




0D26 4339 

0027 E020 

0028 1 OOOC 

0029 43A2 




F02AF BSI 
OC 
DC 
BSI 

« 


3" F0RM2-DCT 

/E020 

F02SK 
3 -94 


BR TO MSAG FORM 2 
— MSAG * — 
LOOP ON ERR 
RESTART EXIT 


MC 
SX 


30818780 
30816790 
30818800 
30818810 
30818820 




002A 4339 
0D2B E021 
0D2C 0000 
002D 43A2 




F02AG BSI 
DC 
DC 
BSI 


3 F0RM2-DCT 

/E021 


3 -94 


BR TO MSAG FORM 2 
— MSAG # — 
NO ERR LOOP AODR 
RESTART EXIT 


MC 
SX 


30818830 
30818840 
30818850 
30818860 
30818870 




0D2E 0000 




F02XB DC 

* 
• 





XI XTANT HOLDER 




30818880 
30818890 
30818900 
30818910 








» 






* 


30B18920 
30818930 








ROUTINE 3 MR CE SECTORS 


« 


30818940 




002F 4388 
0D30 4380 










* 
.* 

SEC 
SC 


30818950 




F03AA BSI 
F03AB BSI 


3 -120 
3 -128 


RDY NBSY RT 
DCARN RT 


30818960 
30818970 
30818980 




0D31 C3D8 
0D32 030B 
0D33 C3E5 
0D34 D30D 
0D35 43AE 
0D36 43A8 




F03AC LD 
STO 
LD 
STO 
BSI 
BSI 


3 -40 
3 11 
3 -27 
3 13 
3 -82 
3 -88 


GET DISK AODR 

SET ADDR 

GET WC 

SET WC 

SEEK CYL 

BR TO READ SUB RT 


SC 

sc 


30818990 
30819000 
30819010 
30819020 
30819030 
30819040 
30819050 


DATE 
EC NO. 


02JAN66 C1JUL66 
415490 415490C 


15N0V66 15JUN67 15FEB68 
419643 420317 420403 
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0037 





7001 






MOX 




CESKE 


BR 


TO SEEK ERR RT 




30819060 






0D38 





7308 




• 


MDX 




F03AD 


BR 


TO CONTINUE 




30819070 
30819080 






0DJ9 





4386 




CESKE 

* 


BSI 


3 


-122 


BR 


TO REZERO ARM.RT 


SC 


30819090 
30819100 






003A 





43A8 






BSI 


3 


-88 


BR 


TO READ SUB RT 


SC 


30819110 






0038 





7001 






MOX 




SK2ER 


BR 


TO ERR MSAG RT 




30819120 






003C 





7004 




* 


MDX 




F03A0 


BR 


TO CONTINUE 




30819130 
30819140 






0030 





4339 




SK2ER 


BSI 


3 


FORH2-0CT BR 


TO MSAG FORM 2 


MC 


30819150 






003E 





E075 






OC 




/E075 


— 


MSAG * — 




30819160 






0D3F 


1 


002F 




* 


DC 




F03AA 


BR 


ERROR LOOP ADDR 




30819170 
30819180 






01)40 





4396 




* 
* 
* 


BSI 


3 


-106 

CE 


BR 
SECT 7 


TO MONITOR END RT 
SETUP 


SX 


30619190 
30819200 
30819210 
30819220 






0041 





C300 




F03A0 


LD 


3 


-48 


GET 


1313 PATTERN 




30819230 






0042 





438C 






BSI 


3 


-116 


OF ILL RT 


SC 


30819240 






0043 


1 


C400 


OOCA 




LD 


L 


CYLEX 


GET 


ERR AMT 




30819250 






0045 


1 


4C18 


0049 




BSC 


L 


F03XY,£> 


BR 


NO ERR CNT 




30819260 






0047 


1 


4400 


ODBC 


* 


BSI 


L 


FIOAX 


BR 


TO SET ERR IN IOA 




30819270 
30819280 






0D49 





C3F9 




F03XV 


LO 


3 


-7 


GET 


SECTOR ADDR 




30819290 






004A 





EB08 






OR 


3 


-40 


OR 


IN AOOR OF CYL 




30819300 






004B 





0308 




* 


STO 


3 


11 


SET 


IN SECT-CYL ADDR 




30819310 
30819320 






0D4C 





C3C7 






LD 


3 


-57 


GET 


CE ID — CEDC— 




30819330 






0D4D 


1 


0400 


0804 


* 


STO 


L 


0CDAG2 


SET 


IN IOA 




30619340 
30819350 






0D4F 


1 


C400 


OOCA 




LD 


L 


CYLEX 


GET 


ERR AMT 




30819360 






0051 


1 


0400 


0B05 


* 


STO 


L 


DCDAC3 


SET 


IN IOA 




30819370 
30819380 






0053 





C3E5 






LO 


3 


-27 


GET 


HC 




30819390 






0054 





0300 




* 


STO 


3 


13 


PUT 


IN OCT TBL 




30819400 
30819410 






0055 





43AB 






BSI 


3 


-85 


MR 


CE SECT SEVEN 


SC 


30819420 






0056 





70AB 




» • 


MDX 




CESX7 


BR 


TO ERR ROUT 




30819430 
30819440 






01)57 





43A8 






BSI 


3 


-88 


BR 


TO READ SUB RT 


SC 


30819450 






0058 





7017 




* 
* 
* 


MDX 




CERDE 

CE 


BR 
SECT 3 


TO RO ERR RT 
SETUP 




30819460 
30819470 
30819480 
30819490 






0D59 





C3C6 




CEXA7 


LD 


3 


-58 


GET 


PATTERN 




30819500 






005A 





438C 


^ 




BSI 


3 


-116 


FILL IOA WITH SAME 


SC 


30819510 






005B 


1 


C400 


OOCA 




LD 


L 


CYLEX 


GET 


ERR AMT 




30819520 






0050 


1 


4C18 


0061 




BSC 


L 


F03X2,t 


BR 


NO ERR CNT 




30819530 






005F 


1 


4400 


ODBC 


« 


BSI 


L 


FIOAX 


BR 


TO SET ERR IN IOA 




30619540 
30819550 






0D61 





C3FD 




F03XZ 


LD 


3 


-3 


GET 


ADDR 




30819560 






0062 





EBD8 






OR 


3 


-40 


OR 


IN ADOR OF CYL 




30819570 






0063 





D30B 




* 


STO 


3 


11 


PUT 


IT IN OCT 




30819580 
30819590 






0064 





C3C7 






LD 


3 


-57 


GET 


CE ID — CEDC -- 




30819600 






0065 


1 


0400 


OB 04 


• 


STO 


L 


0CDAC2 


PUT 


10 IN IOA 




30819610 
30819620 






0067 


1 


C400 


OOCA 




LD 


L 


CYLEX 


GET 


ERR AMT 




30819630 






0069 


1 


D400 


0B05 


• 


STO 


L 


0CDAC3 


PUT 


MC IN IOA 




30819640 
30819650 






0068 





43AB 






BSI 


3 


-85 


WRITE CE SECT THREE 


SC 


30819660 






0D6C 





7093 




* 


MDX 




CESX3 


BR 


TO ERR ROUT 




30819670 
30819680 






0060 





43A8 






BSI 


3 


-88 


BR 


TO READ SUB RT 


SC 


30819690 






006E 





7001 




* ' 


MDX 




CEROE 


BR 


TO RO ERR RT 




30819700 
30819710 






0D6F 





7002 




• 


MDX 




ONGSU 


BR 


TO CONTINUE 




30819720 
30819730 




OATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 


15FEB68 






PROG 10 


0308-4 


EC NO. 


415490 415490C 


419643 


420317 


420403 
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0D70 1 4C00 


0760 


CEROE 


BSC 


L 


RWRT3 


BR TO PRNT ERR MSAG 


0072 7007 




ONGSW 


MDX 




ETEST 


BR TO TEST ERR CNT 


0D73 1 6600 


0AB6 




LDX 


L2 


BDPAK 


GET REMARK ADDR 


0D75 1 6E00 


0A1C 




STX 


L2 


ALPHA 


SET IN MSAG TWOPQ 


0077 fl 4328 






BSI 


3 


FORMO-DCT 


BR TO MSAG FORM 


0D78 E066 






DC 




/E066 


— MSAG * — 


0D79 0000 




* 


DC 







NO ERR LOOP AOOR 

* 




* 






CE ERR TBL TEST RT * 


0D7A C04F 


* 
ETEST 


LO 




CYLEX 


* 
GET ERR CNT 


007B 1 4C18 


OOBB 


£ 


BSC 


L 


DlPND.t- 


BR IF ZERO ERR CNT 


0D7D C3F1 




WRCET 


LD 


3 


-15 


GET BASIC PRNT CTRL 


007E 1004 






SLA 




4 


SHIFT FOR TOTAL CTRL 


007F EBF1 






OR 


3 


-15 


SET PARTIAL CTRL WD 


0080 1 0400 


0A1B 




STO 


L 


DPCW 


SET CTRL IN TWOPA 


0062 6500 


CBAO 




LDX 


LI 


/CBAD 


BAD CYL ERR MSAG NUM 


0084 1 6D00 


0A19 




STX 


LI 


TWOPA 


SET ERR MSAG MUM OPA 


0086 6200 






LOX 


2 





CLR NOX 2 


0D87 1 6E00 


0A1D 




STX 


L2 


REMRK 


CLEAR ALPHA 2 


0D89 1 6600 


0A90 




LOX 


L2 


ARIET 


GET ALHPA PHRASE 


0D8B 1 6E00 


0A1C 


* 


STX 


L2 


ALPHA 


SET IN TWOPA 


0080 C03C 






LD 




CYLEX 


GET TBL ERR CNT 


0D8E 0038 




* 


STO 




ETCNT 


SET IT IN CTRL WD 


0D8F 6200 






LOX 


2 





SET X2 CNT CTRL 


0090 6100 






LDX 


1 





SET XI CNT CTRL 


0091 C3F8 






LO 


3 


-6 


GET CNT CTRL 


0092 0036 




WRCPL 


STO 




TWCNT 


SAVE COUNT CTRL 


0093 1 C600 


OOOE 




LO 


L2 


CYLET 


GET ERR AOOR 


0095 4399 






BSI 


3 


-103 


BR TO CNVRT ADOR 


0096 1 0500 


0A1E 




STO 


LI 


MSG 


SET DEC AOOR IN OPA 


0D98 7101 






MOX 


1 


1 


ADV CTRL XI 


0099 7201 




£ 


MDX 


2 


1 


AOV CTRL X2 


009A C02E 






LD 




TWCNT 


GET TW DATA WR CNT 


0D9B 93FF 






S 


3 


-1 


DEC CTRL 


009C 4820 






BSC 




Z 


SKIP IF ZERO 


009D 70F4 






MDX 




WRCPL 


BR LOOP 


009E 6A29 




* 
• 


STX 


2 


X2SAV 


SAVE X2 INFO 






* 






PRINT 


CYL ERR TBL DATA * 


















* 








« 



KC 



SE 



SC 



009F 4480 0163 
0DA1 1 0A19 



0DA2 1 6600 0DA8 
00A4 1 6E00 05E5 

0DA6 4480 0161 



0DA8 
00 A A 
OOAC 
OOAE 



6700 0972 
6680 0QC8 



1 C400 0A1R 
1884 



PRTBL BSI I LOG CALL MON LUG RT 
DC TWOPA TYPE OUTPUT AREA 

* 
* 

LSTRT LDX 
STX 

BSI 

* • 

LHOLD LD< 

LDX 

LD 

SRT 



SC 



L2 LHOLD 
L2 MLSCF 

I START 

L3 OCT 
12 X2SAV 
L DPCW 

4 



GET MLN ENTRY 

SET IN CTRL FOR MON 

BR TO MONITOR 

SET X3 CTRL AOOR 
GET X2 HOLD INFO 
GET PRNT CTRL 
SHIFT FOR SETUP 



30819740 
30819750 
30819760 
30819770 
30819780 
30819790 
30619800 
30819810 
30819820 
30819830 
30819840 
30819850 
30819860 
30819870 
30819880 
30819890 
30819900 
30819910 
30819920 
30819930 
30819940 
30619950 
30819960 
30819970 
30819980 
30819990 
30820000 
30820010 
30820020 
30820030 
30820040 
30820050 
30820060 
30820070 
30820080 
30820090 
30820100 
30820110 
30820120 
30820130 
30820140 
30820150 
30820160 
30820170 
30820180 
30820190 
30820200 
30820210 
30820220 
30820230 
30820240 
30820250 
30820260 
30820270 
30820280 
30820290 
30820300 
30820310 
30820320 
30620330 
30820340 
30820350 
30820360 
30820370 
30820380 
30820390 
30820400 
30820410 



OATE 
EC NO. 



0LJAN66 
415490 



01JUL66 
415490C 



15N0V66 
419643 



15JUN67 
420317 



15FEB68 
420403 



PROG 10 
PAGE 



0308-4 
ISA 
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ODAF EB02 


• OR 


3 


-46 


OR IN MULTI-LINE CTL 




30820420 






ODBO 1084 


SLT 




4 


SHIFT TO NORMAL 




30820430 






0DB1 1 D400 0A1B 


STO 


L 


DPCW 


SET IT BACK IN TWOPA 




30820440 • 






0DB3 C013 


LD 




ETCNT 


GET CNT FLD 




30820450 






0DB4 93F8 


S 


3 


-8 


DEC LOOP CNT 




30820460 






00B5 DOU 


STO 




ETCNT 


SAVE NEW TOTAL 




30820470 






0DB6 1 4C20 0D90 


BSC 

* 


L 


WRCPL-2tZ 


TEST IT - NOP IF ZRO 




30820480 
30820490 






0DB8 1010 


SLA 




16 


CLR ACC 




30820500 






0DB9 1 0400 0A1B 


STO 

* 


L 


OPCW 


CLEAR CTRL WORD 




30820510 
30820520 






ODbB 439F 


DIPND BSI 

* 
* 

* 
* 


3 


-97 


BR RETURN 

* 


SX 


30820530 
30820540 
30820550 
30820560 
30820570 
30820580 






ODBC 0000 


FIOAX OC 







SET IN RETURN AODR 


SE 


30820590 






ODBD 1 6580 ODCA 


LDX 


11 


CYLEX 


SET ERR CNT IN XI 




30820600 






ODBF 1 C500 ODDD 


FIOAY LD 


LI 


CYLET-1 


GET FIRSTADDR 




30820610 






0DC1 1 D500 0B05 


STO 


LI 


DCDAC3 


PUT IT IN IOA 




30820620 






0DC3 71FF 


MDX 


1 


-1 


DEC INDEX CTRL 




30820630 






0DC4 70FA 


MOX 




FIOAY 


BR LOOP 




30820640 






0OC5 1 4C80 ODBC 


FIOAZ BSC 

* 
* 


I 


FIOAX 


RETURN TO MAINLINE 


SX 


30820650 
30820660 
30820670 






0DC7 0000 


ETCNT OC 







LINE CTRL COUNTER 




30820680 






0DC8 0000 


X2SAV OC 







INOEX 2 SAVE INFO 




30820690 






O0C9 0000 


TWCNT OC 







LINE' COUNT HOLDER 




30820700 






ODCA 0000 


CYLEX OC 

* 
* 
* 






END 


SECT ERR CNT 

OF HR CE TEST DATA * 

* 




30820710 
30820720 
30820730 
30820740 
30820750 
30820760 






* 






* 








* 




ALTERNATE PATTERN RT -' 




30820770 








• 






• 




30820780 


















30820790 
30820800 






* 














* 










30820810 








* 










30820820 






ODCB C30B 


PATRT LD 


3 


11 


6ET ADDR 


SE 


30820830 






ODCC 1000 


SLA 




13 


B13 TO BO 




30820840 






ODCD 1 4C28 OOOA 


BSC 

* 


L 


TSTlOtZt 


BR IF HEAD 1 




30820850 
30820860 






ODCF C30B 


TSTOO LD 


3 


11 


GET ADOR 




30820870 






ODDO 4804 


BSC 




E 


SKIP IF ADDR EVEN 




30820880 






0D01 7004 


MDX 

* 




PATE5 


BR TO SET E5E5 PAT 




30820890 
30820900 






0002 C300 


PAT13 LO 


3 


-48 


GET. PATTERN 1313 




30820910 






0DD3 438C 


BSI 


3 


-116 


BR TO FILL IOA 


SC 


30820920 






0DD4 1 4C00 OCBD 


BSC 

* 


L 


F01HR 


BR TO WRITE RT 


SX 


30820930 
30820940 






0DD6 C3C6 


PATE5 LO 


3 


-58 


GET PATTERN E5E5 




30820950 






0DD7 438C 


BSI 


3 


-116 


BR TO FILL IOA 


SC 


30820960 






0008 1 4C00 OCBD 


BSC 

* 


L 


F01WR 


BR TO WRITE RT 


SX 


30820970 
30820980 






ODOA C30B 


TST10 LD 


3 


11 


GET AODR 




30820990 






ODDB 4804 


BSC 




E 


SKIP IF AOOR EVEN 




30821000 






ODDC 70F5 


MDX 




PAT13 


BR TO SETUP PAT E5 




30821010 






ODOO 70F8 


MDX 

* 




PATE5 


BR TO SETUP PAT 13 




30821020 
30821030 






OODE 0140 


CYLET BSS 

* 


E 


320 


CYLINDER ERR ACCUM 




30821040 
30821050 








*###########################################* 




30821060 








****»**»********»»**********»»*****<■******»** 




30821070 


















30821080 
30821090 






* 






* 




OATE 


02JAN66 01JUL66 


15N0V66 


15JUN67 15FEB68 




PROG ID 


0308-4 


EC 'NO. 


415490 415490C 


419643 . 


420317 420403 




PAGE 


16 
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21.91216 
16A 



0F1E 
0F20 



0002 
05E9 



END OF INITIALIZATION 






OMEGA BSS 
END 



2 

EXEOD 



BR TO BEGIN XFER RT 



30821100 
30821110 
30821120 
30821130 
30821140 
30821150 
30821160 
30821170 



NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



DATE 
EC NO. 



02JAN66 
415490 



01JUL66 
415490C 



15N0V66 
419643 



15JUN67 
420317 



15FEB68 
420403 



PROG 10 
PAGE 



0308*-4 
16A 
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C R 

NAME 

ASP 

AOATA 

ALPHA 

ARC 

ARIET 

ARM 

ARMNH 

AWE AX 

BOPAK 

BEbIN 

CALLM 

CCRTN 

COTBC 

COTGX 

CDTLK 

COTNR 

COTRC 

COTRT 

COTSE 

COTSN 

CECAB 

CERDE 

CESKE 

CESX3 

CESX7 

CETRT 

CETYP 

CEXA7 

CHNBZ 

CHNRA 

CHNRL 

CHNRO 

CHNSA 

CKCET 

CSAOR 

CTLOG 

CYLEC 

CYLET 

CYLEX 

DAkM 

DAKMX 

OARTH 

DARTN 

OCABP 

OCANH 

OCARM 

OCBPR 

DCOA 

DCDLA 

OCOSU 

OCE 

OCEOO 

OCNHM 

OCRBB 

OCRO 

OCROY 

DCREL 

0CRE1 

DCKE2 

OCRGA 

OCRND 

DCROK 

OCRTN 

OCR 10 

OCR 12 



SS REFERENCE 
VALUE REFERENCES 
08B5 
09E6 

0762, 09A1,09C0,09F8,0A05,0A12, 0075, 008B 
0A7B 

0740,0089 
0898 
06E7 
0906 
0073 
05E9 
09FF 



08F6 

0A84 
0A1C 
0908 
0A90 
08F2 
OAAF 
0A92 
0AB6 
0160 
0A2E 
0A2D 
07E4 
082A 
081A 
0803 
07F1 
07E1 
07FF 
080A 
0A09 
0D70 
0039 
ODOO 
0D02 
0CD7 
OCFA 
0059 
0862 
08E0 
08DE 
08CE 
0801 
OCDE 
OCEA 
0A43 
0C06 
OOOE 
OOCA 
0877 
088C 
0892 
088E 
08AC 
06E7 
0875 
08B5 
0B02 

08E4 
08EE 
0C94 
06EA 
0604 
07DF 
0787 
08C2 
0706 
07C9 
07CA 
07CB 
06EF 
0701 
06CE 
0789 
0780 



0821 

OBOE, 0829 

0830 

0929 

07FB.0857 

0773,0796,0808,0828,0856 

07F3 

0777,079A,082A,082C 

0760 

0058, 0D6E 

0037 

006C 

0056 

0C04.0CF4 

OCFE, 0000, 0002 

0003 

0800 

0901 
0862, 08FD 

0CF9 

OCEF 

09F2,09F5,OA5C,0*50 

0CB5,0CO8,0CDC 

0737, OCE A, 0093, 0D8F 

0731, 0735, OCB3,OCDE,OCE4,0CF2,0D43,OD4F,6o5B,0D67,OO7A,0D8D,0DBD 

0891 

0884 

087E 

0928 

08F7 

0918 

0674, 0880, 0882, 0897, 08F3 

0871,08AE,08B2 

06AA,06B4, 0771, 0794, 079C07E6 ,0810, 0836, 0808, 0973, 09E3, 0040,0051 

0065, 0069, 0DC1 

0903 

0905 

069D,06A1,06A2,06E6,06E9 
0601 

O7A8,07B4,07DE,O91B,0CCA 

08C0,08FB 

0798,0781 

07A5.07B0 

07A6.07C5 

07A0 

06EE,06F1 

07CC 

0756,0912 

0787 

07C3 



0CR16 

0CR19 

0CR20 

0CR21 

0CR22 

0CR23 

OCSK 

OCT 



DCTL1 

0CTL2 

0CTL3 

0CTL4 

0CTL5 

0CTL6 

OCTRL 

OCWBB 

OCHEL 

OCMR 

DCH10 

ODSA 

DEND 

OEXEO 

0EX10 

OF ILL 

DIPNO 

OLA 

DLABB 

DLANO 

DLNRT 

0LNR1 

DMLCK 

DMLE1 

DMLE2 

DMLIC 

DMLXT 

DNGSW 

OPCM 

OPMSG 

ORO 

ORESK 

OSK 

OSKAC 

OSKNG 

OSK 10 

0SK20 

0SK30 

OSPLA 

DSPLP 

0SPX1 

osw 

DSUER 

OVA 

OUR 

EMF 

END 

ERLCK 

ERROR 

ETCNT 

ETEST 

EXEOD 

EXU 

FILEX 

F1LE0 " 

FILE1 

FILE2 



0796 
07AE 
0782 
0786 
07BE 
07C4 
083E 
0972 



0660 

0671 

067D 

0683 

069A 

0696 

066B 

0785 

077C 

0768 

0760 

069E 

0917 

089D 

08AA 

0806 

ODBB 

0902 

08EA 

070C 

06F2 

0705 

06A3 

06C6 

06CA 

0689 

06C5 

0D72 

0A1B 

0AC8 

091 A 

0887 

0920 

OA60 

0CF6 

0851 

0855 

0858 

082E 

0831 

0838 

0904 

OABE 

070E 

0910 

0923 

0164 

0166 

0162 

00C7 

0D7A 

05E9 

08F4 

0607 

061E 

0628 

0632 
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0909 
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FILE4 

FIOAX 

FIOAY 

FIOAZ 

FLX 

FOKMO 

F0RM1 

F0KM2 

F0RM3 

F0RM4 

F0RM5 

FRM5A 

FRM5B 

FRTRD 

F01AA 

F01AB 

F01AC 

F01AE 

F01AF 

F01RD 

F01SK 

F01WR 

F02AA 

F02AB 

F02AC 

F02AD 

F02AE 

F02AF 

F02AG 

F02SK 

C 02XB 

F03AA 

F03AB 

F03AC 

F03A0 

F03XV 

F03XZ 

HCAP1 

HCAP2 

HCAP3 

HCAP4 

HDSW 

HLOSK 

HNG 

ILO 

IL1 

IL2 

IL3 

IL4 

INDSH 

INITL 

LCKAF 

LHOLD 

LIV 

LOG 

LOGBY 

LSTRT 

MCALL 

MEND 

MFST 

MLN 

MLSCF 

MSG 

NDMSG 
NORTN 
NTRDY 



063C 

0646 

ODBC 

ODBF 

0DC5 

08FE 

099A 

09A3 

09AB 

09C6 

09D9 

09E9 

OAOO 

OAOD 

0A8A 

OCBO 

0CB9 

0CC1 

OCCO 

0CD1 

OCBF 

OCBA 

OCBD 

0D04 

ODOA 

ODOF 

0D17 

0022 

0D26 

0D2A 

ODOC 

0D2E 

0D2F 

0030 

0D31 

0D41 

0D49 

0D61 

0A7A 

0A7B 

0A7C 
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0A1A 

0655 

0906 

017A 

018A 

019A 

01AA 
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0A7E 
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0722 

00A8 
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0163 
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09FF 

0908 
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05E7 

05E5 

0A1E 

0A02 
OAAA 
0AC3 



0619 

061C 
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0015 
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06EA 

08C6 



NTKER 


0721 


0717,0721 




NTRPT 


070F 


0623, 0620,0637, 0641, 064B,07 IF 




NTRST 


0719 






NTRXT 


071F 






OMEGA 


0F1E 






PATE5 


0DD6 


0001,0000 




PATRT 


ODCB 


OCBB 




PAT13 


0DD2 


ODOC 




PID 


050C 


05EB 




PRTBL 


009F 






RAO 


050E 


0689 




ROY 


08FA 


0BC4 




REL 


0900 


08E2 




RELOV 


0661 


0662, 0664, 080E 




REMRK 


0A10 


0742, 07F7,0886,08C8, 0990,0980, 


09E0,0087 


REti 


08FC 


0804 




REQDV 


0666 


0667,0669, 08CE 




REST 


0914 






RIO 


050D 


0685 




RLPGM 


05FD 


065C 




RQKB 


010A 






ROTY 


01CA 






RSK 


08F8 


08C0 




RTN 


0911 






RTNSW 


0165 


068B 




RMACK 


0730 


073E, 0769,0788 




RHCKA 


0737 


0730 




RUCKT 


0740 


073A 




RHCKX 


073E 


0733 




RHRT3 


0760 


0751,0070 




SACTL 


0656 


0627, 0631, 063B, 0645, 064F 




SELOU 


OAFD 


05F2 




SETUP 


0CE6 






SKAOJ 


0868 


08B4 




SKOUT 


086F 


086B,086E 




SK2ER 


0D3D 


0D3B 




START 


0161 


05FB, 0693, 070C, 0866, 090F,ODA6 




STAT1 


OAOF 


09F6 




STAT2 


0AE9 


0A03 




STAT3 


0AF3 


0A10 




STRT 


090E 






SVKB 


01EA 






SMO 


050F 


0725 




SW1 


05E0 


0670,0604 




SH2 


05E1 


05EE,0601,060A 




SW3 


05E2 


06B9,06CE, 0816, 0831 




TERM 


C5E8 


05EF,0803,08E1 




TSTOO 


ODCF 






TST10 


OODA 


OOCD 




TWCNT 


00C9 


0092 ,009 A 




TWENO 


0A4C 


0A47 




TMERR 


0A38 


0A36 




TWFRM 


09BE 


09AA,09D8,09E8- 




THLOG 


0A30 


0A0C0A32 




TWMLB 


0A56 


0A02,0A0F,0A5A 




THMLP 


0A52 


09F3 




TUMLR 


0A58 


OAOO ' 




TWUPA 


0A19 


0A2F,0A3A,0A40,0084,00A1 




TWRTN 


0A45 


OA3COA5E 




TWX1H 


0A5F 


0A37,0A30,0A4E 




HAITI 


06C3 






HAIT2 


06F0 






HRCET 


0D7D 






WRCPL 


0092 


0090, 0DB6 




X2SAV 


00C8 


0D9E.0DAA 
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4.1 STATUS MESSAGES 

4.2 COMMAND MESSAGFS 
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DESCRIPTION OF SUB-ROUTINES 



APPENDIX 



.NONE 



PURPOSE 

THE 2310B FUNCTION TEST IS DESIGNED TO TEST EACH FUNCTION OF THE DISK FOR 
COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. 

THIS TEST IS WRITTEN TO ACCOMMPOATE SYSTEMS WITH ONE OR MORE '13SD* OISK 
DRIVES. ANY ONE OF THE ORIVES MAY BE SELECTED TO BE TESTED. 

PREREQUISITES 

THIS PROGRAM MUST RUN UNDER CONTRCL OF THE 1130 DIAGNOSTIC MONITOR. THE 
DIAGNOSTIC MONITOR USPS 1,500 STORAGE WORDS AND THIS PROGRAM USES 2,596 
STORAGE WORDS, SO THAT A 4K MACHINE IS SUPPORTED. 

THIS PROGRAM REQUIRES THAT A DISK WHICH IS INITIALIZED BY THE 2315 OISK 
INITIALIZATION PROGRAM (03081 BE INSTALLED ON THE DISK DRIVE TO BE TESTEO 
PRIOR TO THE EXECUTION OF THE TEST. ANY INITIALIZED PACK WILL BE ACCEP- 
TABLE, INCLUDING AN 1130 DIMAL PACK. 

USE PROCEDURE 

3.1 PROGRAM LOADING 

3.1.1 PROGRAM DECK OR PAPER TAPE 

TO LOAD THE PROGRAM DECK OR PAPER TAPE, USE THE STANDARD 
LOADING PROCEDURE AS DESCRIBED IN THE DIAGNOSTIC MONITOR 
USE PROCEDURE. 

3.1.? USING 1130 DIMAL 

1. USING 1130 DIMAL, PUT ONLY ONE COPY OF THE 2310 DISK 
FUNCTION TEST CN THE DIfAL PACK. SEE DIMAL OPERATING 
PROCEDURES FOR INSTRUCTIONS. 

2. TO EXECUTE ONE OR MORE 2310 FUNCTION TESTS IN OVERLAP, 
IPL THE DIMAL COLD START LOADER, SELECT PROGRAMS TO BE 
EXECUTED (2D FOR DISK TEST). LEAVE BIT 15 ON WHEN THE 
OISK PROGRAM IS BEING LOADEO. THIS IS THE MONITOR 
HALT BIT. SELECT THE DISK TO BE TESTEO USING SWITCH 
FNC ? BEFORE EXECUTING THE OISK TEST. 

3. TO EXECUTE MORE THAN ONE DISK TEST, SELECT PID 2D FOR 
EACH DISK TO BE TESTED. A COPY OF THE OISK TEST WILL 

BE LOAOED INTO CORE FOR EVERY DISK TO BE TESTEO. SELECT 
A DIFFERENT DISK TO BE TESTEO FOR EVERY PROGRAM LOAOED, 
USING SWITCH FNC 2, BEFORE EXECUTING EACH TEST. 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM EXECUTION 

A. LOAD AND GO MODE 

IF BIT SWITCH 15 IS OFF WHILE THE PROGRAM IS LOADED, 

THF PROGRAM WILL BE EXECUTED WHEN LOADING IS COMPLETED. 

ALL TESTS WHICH ARE NORMALLY RUN WITH ZEROES IN THE 
PROGRAM SWITCH OPTIONS WILL BE EXECUTEO. 

NOTE— LOAO AND GO MODE MUST NOT BE USED WHEN RUNNING 
MORE THAN ONE DISK TEST IN OVERLAP, OR WHEN THE 
THE DRIVE TO BE TESTED IS NOT THE CPU DRIVE. 
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PAUSE BEFORE EXECUTION 

luc"!!^. 1 ! " 15 IS 0N WHILE THE PROGRAM IS LOADED, 
P, FTP G ?u?c H i!; L e N0T BE EXE CUTED WHEN LOADING IS COM- 
PLETE. THIS MODE MUST ALWAYS BE USED WHEN EXFCIITTNr 

EV^™!!*,"" TEST IN ove R lap! E or H when E the U Jr?ve 

TO BE TESTED IS NOT THE CPU ORIVE. THE DRIVE TO rf 
TESTED MUST BE SELECTED USING SW FNC i. THE fJllSwING 
PROCEDURE MUST BE USED TO EXECUTE THE PROGRAM! S). 



1. 



2. 



3. 



SET UP THE DESIREO OPTIONS AS SPECIFIFD IN SECTION 
NEXT STEP 0PTI0NS * RE CESIREO, PROCEEO TO THE 

IN A ?«p P n?T»*^f XECUTI0N BV SETTING HEXADECIMAL 0X80 

seque^umber? SH,TCHES ' WHERE x is ™ e "* G «*« 

CUR P ^ S T S Hrr GR E AM N KETE-EX^ F UT^D! """"" ^ 



3.2.2 PROGRAM SWITCH OPTIONS 

I«n»c ER * T0R MAV M00IFY THE E XECUTION OF THE PROGRAM ANY TIME 
BEFORE OR AFTER IT HAS STARTED EXECUTION BY ENTERING PRRPbIm 
CONTRCL OPTIONS OR ROUTINE SELECTION OPTIONS. P «°GRAM 

THE OPTIONS ARE SELECTED AS FOLLOWS. 

A. SET BIT SWITCHES ACCOROING TO TABLE 1. 

B. OEPRESS CONSOLE INTERRUPT ANC WAIT FCR PRINTOUT. 

C. IF MORF CPTIONS ARE REQUIRED, REPEAT STEPS A AND B. 



TABLE 1. 1130 DISK TEST 



OPTIONS 



«X INDICATES NOT USED AND C INDICATES DATA. * CPU^s"™ ^ 


FUNCTION 


. PROGRAM 
. SEQUENCE 
. NUMBER 


MODIFIERS . * 


1 


• 2 3 4 5 6 7 


• * 9 10 11 12 13 n 15 ' 






* l * • RESTART PROGRAM 

* * l • PB 'NT ALL CMP ERRORS 

* X * • LOOP PROGRAM 

* X 1 • LCOP ON ERROR 

\ K l BYPASS STATUS PRINTOUTS 
X 1 • HALT ON ERROR 




P P P p 


000c °°OO.RUN ALL~N^RMa7~R0UTi"nes 
° 000D0D °-RUN ROUTINE 'DODO* IHEXI 

--~--L-l_I_i..°_i_: RUN SEEK TIMING TEST 

0000 °ooo. test~cpu"drive 

° ° ° ° o 1 '. TEST DRIVE 1 
° ° c I .* TEST DRIVE 2 
° ° ° ° 1 '. TEST ORIVE 3 


1 


P P p p 
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TABLE 2. 



DSW BITS 



TSW BITS 



MEANING 



C 1 2 3 4 5 6 7 8 9 10 11 12 13 H 15 

. xxxxxxxxx.. 



.SECTOR COUNT (TWO BITS) 



..CARRIAGE HCME 
•DISK BUSY 1RFA0/WRITE7CCNTR0L) 
OISK NOT REAOY 
OPERATION COMPLETE (W/I NTERRUPT ) 
.DATA ERROR 



3.2.3 PATCH OPTIONS 

THERE ARE FIVE PATCH OPTIONS AVAILABLE WITH THIS PROGRAM. TO USE 
ONE OR ALL OF THESE OPTIONS, MAKE UP PATCH CAROIS) AS SHOWN. 

EXXXX 0000 



DATA TO BE ENTERED IN SPECIFIEO CORE LOON 
'CORE ADDRESS' TAKEN FRCM PROGRAM LISTING 



12-PUNCH IN COLUMN ONE (II 

NOTE - THESE PATCH OPTIONS MAY eE INSERTED, AFTER PROGRAM LOAD, 
THROUGH THE CONSOLE SWITCHES BUT GREAT CARE MUST BE TAKEN 
TO COMPUTE CORRECTED ADDRESSES USING NECESSARY RELOC- 
ATION FACTORS. 

1. SELECTION OF FIRST RANDOM NUMBER TC BE USED BY THE RAN- 
DOM SFEK ROUTINE (3). THIS NUMBER WILL BE USED AS 
THE FIRST RANDOM NUMBER ON EVERY RCUTINE PASS. TO 
SELECT THIS OPTION, DETERMINE THE ADDRESS OF THE VAR- 
IABLE 'RNDSK' FROM THE PROGRAM LISTING. THIS AOORESS 
IS THE 'CORE ADDRESS' TO BE PUNCHEO IN THE PATCH CARD. 
THE RANDOM NUMBER TO BE INSERTED SHOULD BE TAKEN FROM 
A PREVIOUS SUMMARY PRINTOUT, LINE 5. 



?. SELECTION OF FIRST RANOOM NUMBER To'bE USED BY THE RAN- 
DOM PATTERN WRITE-READ ROUTINES, 9 AND 10. THIS NUMBER 
WILL BE US>=D AS THE FIRST RANDOM NUMBER OF THE FIRST 
PATTERN GENERATED, ON EVERY ROUTINE PASS. TO SELECT THIS 
OPTION, DETERMINE THE ADDRESS OF THE VARIABLE 'RNDWR* 
FROM THE PROGRAM LISTING. THIS ADCRESS IS THF 'COPE 
ADDRESS' TO BE PUNCHED IN THE PATCH CARO. THE RANDOM 
NUMBFR TO BE INSERTEO SHOULD BE TAKEN FROM A PREVIOUS 
SUMMARY PRINT, EITHER LINE 6 OR LINE 7, DEPENOING UPON 
THAT WAS FAILING. 

OPTIONS 3, 4, ANO 5 BELOW ALLOW CONTINUATION OF RANDOM GENER- 
ATION FROM A PREVIOUS LOAD OF THE THE PROGRAM. THESE PATCHES 
ALLOW THE CE TO SPECIFY THE STARTING POINT OF THE RANOOM 
PATTERNS. VALUES TO BE ENTERED CAN BE FOUNO IN THE LAST 
SUMMARY TABLE PRINTEO. 

3. SELECTION OF FIRST RANDOM NUMBER OF THE FIRST PROGRAM 
PASS ONLY, TO BE USED BY THE RANDOM SEEK ROUTINE. THIS 
OPTION WILL CAUSE THE RANDOM PATTERN GENERATION TO 
CONTINUE FROM THE LAST NUMBER USED ON PREVIOUS LOADS OF 
LOADS OF THE PROGRAM. THE ADDRESS OF THE VARIABLE 
•PPNSK' IS THE 'CORE ADDRESS' TO BE PUNCHED ON THE PATCH 
CARD. 

4. SELECTION OF *IRST RANOOM NUMBER TO BE USED BY ROUTINE 
NINE (9>. THIS PATCH WILL CAUSE THE RANDOM PATTERN GEN- 
ERATION TO CONTINUE FROM A PREVIOUS LOAD OF THE PROGRAM. 
THE ADCRESS OF THF VARIABLE 'LRN1' IS THE 'CORE ADDRESS' 
TO BE PUNCHED IN THE PATCH CARD. 

5. SELECTION OF FIRST RANDOM NUMBER TC BE USED BY THE RAN- 
DOM WRITE-READ ROUTINE (101. THIS OPTION WILL CAUSE 
THE RANOOM PATTERN GENERATION TO CONTINUE FROM A PRE- 
VIOUS LOAD OF THE PROGRAM. THE AOORESS OF THE VARIABLE 
•LRN2' IS THE CORE ADDRESS TO BE PUNCHED IN THE PATCH 
CARD. 

3.3 PROGRAM HALTS 

THIS PROGRAM HAS ONE ERROR TRAP (70FF), IN THE SEFK TIMING ROUTINE (0). 
THIS TRAP WILL OCCUR IF THERE IS NO INTERRUPT FROM THE DISK AFTER 
A SEEK XIO IS EXECUTEC. THE FUNCTION TEST WILL HAVE TO BE RESTARTEO 
USING THE SWITCH OPTIONS TC CONTINUE. 

NOTE - THE SEEK TIMING TEST IS A SPECIAL ROUTINE ANO MUST 
BE SELECTED IN ORDER TO BE RUN. 

3.4 PROGRAM TERMINATION 

THE PROGRAM WILL NORMALLY TERMINATE AFTER ONE COMPLETE PASS, 
UNLESS THE DIAGNOSTIC MONITOR OPTION OF LOOP ALL PROGRAMS IS 
SELECTFD. SFE DM USE PROCEDURE FOR THIS OPTION. 

THE PROGRAM CAN BE MANUALLY TERMINATED IN ONE CF TWO WAYS. 

1. BY THF MONITOR HALT OPTION (BIT 15 ONLY). 

2. BY USE OF THE HALT OPTION (SEE SW OPTIONS). 

THIS PROGRAM WILL ALSC BE TERMINATED WHEN CERTAIN ERRORS OCCUR. 
ALL SUCH TERMINATIONS WILL BE ACCOMPANIED BY AT LEAST TWO 
PRINTOUTS, ONE STATING THE ERROR, AND THE SECOND STATING THAT 
THF TEST WAS TERMINATED. THE DFT WILL HAVE TO BE RFSTARTEO 
TO CONTINUE. 
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3.5 PROGRAM RESTART 



A2D08 RTN* 



THE PROGRAM CAM 'BE RESTARTED FOLLOWING ANY TERMINATION BY SETTING 
THE BIT SWITCHES TO «0X80', WHERE X IS THE PROGRAM LOAD NUMBER, 
AND THEN PRESSING CONSOLE INTERRUPT. 



RTN ADRS FILE DSW SEEK TIMING IN PROGRESS 
OOOX XXXX 



PRINTOUTS 



FILE DSW MAX MIN AVG INCR 
OOOX XXXX NNNN NNNN NNNN NNNN 



SK TIME (MS) 



*^ "1NT0UTS FROM THIS FUNCTION TEST WILL INCLUDE THE LAST OISK OSW THAT 
uncr I*?,?' * ND ™ E NUMBER 0F ™ E FILE BE,NG TESTEC. ALL MESSAGE MOOIFIFRS 
«?.! £J SILV UN0ER 5T00D AS OECIMAL NUMBERS, SUCH AS ERROR COUNTS, CYLINDER 
NUMBERS, AND FILE NUMBER, WILL BE PRINTED AS OECIMAL NUMBERS. ALL NUMBERS 
WHICH SHOULD BE ANALYZEO FOR BITS BEING ON OR OFF, ARE PRINTED IN HEX. 



4.1 STATUS MESSAGES 



A2000 



FILE 

OOOX. 



DSW 
XXXX 



CPU CYCLE TIME = NN 2310 OFT START 



THF \I« ??«?^ N I^V° UTINE D> * TH,S p «INT0UT OCCURS WHEN 
I?Lt! tLI r» G R0UTINE IS EXECUTED. WHEN THE TIMING ROUTINE 
Zl„ S :. THE CPU IS DE °ICATEO TO THE DISK ANO ALL OTHER TESTS 

CO H N^US^N B OF R ^r T EST. OVERLAP ' *" SUSPENDE ° UNTIL ™ E 
SEEK INCREMENT IS THE NUMBER OF CYLINDERS SEEKEO. 

M?N I m?2!«mm lilt llll ° UT ° F 20 SEEKS F0R THE GI VEN INCR. 
MIN = MINIMUM SEEK TIME OUT OF 20 SEEKS FOR THE GIVEN INCR. 

SEEKS FOR THE GIVEN INCREMENT 



THF PROGRAM OETERMINFD THAT THE CPU CYCLE TIME IS NN, WHERE 
NN IS EITHER '22' OR »36', REPRESENTING 2.2 ANO 3.6 USEC 
MEMORY SPEED. THE DETFRMINATION IS MADE BY EXECUTING 
A 'SHIFT TO RED* IOCC TO THE CONSOLE TYPEWRITER. THIS 
MESSAGE WILL OCCUR EVERY TIME THE FUNCTION TEST BEGINS A LOOP. 



AVG = AVERAGE OF THE 20 
INCR = SEEK INCREMENT 



NOTE - 
A2D09 RTN* 



AVERAGE SEEK TIME = 15MS X (NUMBER OF 20 MIL STEPS ♦ 

NUMBER OF 10 MIL STEPS! 



RTN ADRS 



A2D01 RTN* 



RTN ADRS FILF OSW 
OOOX XXXX 



OSK NOT INIT 



THE HEXIOECIMAL WORD »CEDC« WAS NOT FOUND ON CYLINDER 199, 
SECTOR 6. THE DISK PROBABLY IS NOT INITIALIZED WITH THE 
2315 DIAGNOSTIC OISK INITIALIZER (0308). 



A2D02 RTN* 



RTN ADRS FILE DSW 
OOOX XXXX 



INVLD RTN* 



FILE OSW PASS SKS SFT (-RD 

OOOX XXXX OONN NNNN NNNN NNNN 

FILE DSW PASS RDS SFT FRO 

OOOX XXXX OONN NNNN NNNN NNNN 

FILE DSW PASS WRTS SFT fRO 

OOOX XXXX OONN NNNN NNNN NNNN 

FILE OSW PASS #WDS IN SECTOR 
OOOX XXXX OONN NNNN 



7-LINE SMRY 



AN INVALID ROUTINE NUMBER WAS SELECTED USING SWITCH FUNCTION 
ONE. THE DFT MUST BE RESTARTED TO CONTINUE. 



FILE DSW PASS 
OOOX XXXX OONN 



SK-RNDM WOS 
FRST LAST 



A2003 RTN* 



RTN ADRS FILE DSW 
OOOX XXXX 



RECOVERED RD ERR 



AFTER ONE OR MORE OSW ERRORS ON A REAO, A SUCCESSFUL READ 

WAS EXECUTED WITHOUT DSW ERRORS. THIS PRINTOUT WILL BE PRECEEOE 

BY ONE OR MORE ERROR MESSAGES. 



A2004 RTN* 



RTN ADRS FILE DSW 
OOOX XXXX 



HRO CMP ERR 



AFTER EIGHT (8) RETRIES, DATA READ FROM THE OISK DID NOT 
COMPARE WITH THAT EXPECTED. THIS MESSAGE INDICATES THAT 
THE DATA WAS PROBABLY WRITTEN WRONG BY A WRITE ROUTINE, OR 
THAT THE DISK IS NOT INITIALIZED. LOOK AT THE ROUTINE NUMBER 
TO DETERMINE IF IT IS A WRITE ROUTINE. 



A2006 RTN* 



RTN ADRS FILE DSW 
OOOX XXXX 



RECOVEREO SK ERR 



AFTER ONE OR MORE SEEK ERRORS, THE OESIRED CYLINDER WAS 
REACHED. THIS PRINTOUT WILL BF PRECEEDEO BY ONE OR MORE 
SEEK ERROR PRINTOUTS. 



FILE DSW PASS WRT-RNDM WDS/RTN9 
OOOX XXXX OONN FRST LAST 

FILE DSW PASS WRT-RNDM WDS/RTN10 
OOOX XXXX OONN FRST LAST 

THIS PRINTOUT CCCURS EVERY TIME THE OFT COMPLETES A PASS. 
IT ALSO OCCURS WHENEVER THE OFT IS TERMINATED WITH AN ERROR. 

THE TOTAL NUMBER OF COMPLETE PASSES 
THE TOTAL NUMBER OF SEEKS EXECUTED 
THE NUMBER OF SOFT SEEK ERRORS 
THE NUMBER OF HARO SEEK ERRORS 
THE TOTAL NUMBER OF READS EXECUTEO 
THE NUMBER OF SCFT REAO ERRORS 
THE NUMBER OF HARD READ ERRORS 
THE TOTAL NUMBER OF WRITES EXECUTED 
THE NUMBER OF SOFT WRITE ERRORS 
THE NUMBER OF HARD WRITE ERRORS 

AVG • WOROS WRITTEN WITH WRITE 400 
WOROS USED TO GENERATE RANDOM SEEKS. 
HIGH ORDER EIGHT BITS ONLY ARE USED 



PASS 


= 


OONN 


SKS 


= 


NNNN 


SFT 


= 


NNNN 


HRD 


= 


NNNN 


RCS 


= 


NNNN 


SFT 


= 


NNNN 


HRD 


= 


NNNN 


WRTS 


= 


NNNN 


SFT 


= 


NNNN 


HRD 


= 


NNNN 


* WOS 


IN SECTOR 


SK RNDM WDS 1 



A2007 RTN* 



RTN ADRS FILE OSW 
OOOX XXXX 



OFT TERMINATED 



THE DISK FUNCTION TEST HAS BEEN TERMINATED. THE PREVIOUS 
PRINTOUTS WILL EXPLAIN THE REASON FOR THE TERMINATION. THE 
OFT WILL HAVE TO BE RESTARTED TO CONTINUE THE TEST. 



WRT RNDM WOS RTN9 



WRT RNDM WDS RTN10 



WORDS USED TO GENERATE RANDOM 
PATTERNS FOR RTN 9 



WOROS USED TO GENERATE RANDOM 
PATTERNS FOR RTN 10 
FRST = FIRST RANDOM NUMBER USED ON THIS PASS 
LAST = LAST RANOOM NUMBER USED ON THIS PASS - ALSO 
IS THE FIRST NUMBER USED ON THE NEXT PASS 
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4.2 ERROR MESSAGES 

E2D01 RTN* RTN AORS 



E2009 RTN* 



FILE 

ooox 



OSW 

xxxx 



LAST mcc 

xxxx xxxx 



LOST INT 



AFTER THF EXECUTION OF AN I/O INSTRUCTION, THE OFT LOOPS 
THROUGH THE MONITOR WAITING FOR THE EXPECTED INTERRUPT. IF 
A TIMFOUT OCCURS, THIS MESSAGE IS PRINTED AND THE DFT IS 
TERMINATED. 



E2002 RTN* RTN ADRS 



FILE 

ooox 



DSW 
XXXX 



LAST IOCC 
XXXX XXXX 



EXTRA INT 



AN UNFXPECTED INTERRUPT OCCURREC. IF THIS PRINTOUT IS 
PRECEEOED BY THE 'LOST INTERRUPT' MESSAGE, THE I NTFRRUPT 
OCCURRED BUT WAS LATE. 



E2D03 RTN* 



RTN ADRS 



FILE 

OOOX 



DSW 
XXXX 



DSK NOT ROY 



THE DISK ORIVF 'FILE*' IS NOT READY ANO/OR BUSY WHEN 
IT SHOULD BE BCTH READY AND NOT BUSY. THIS CHECK IS MADE 
PRIOR TO THE EXECUTION OF ANY SFEK, READ, CR WRITE. THE 
FUNCTION TEST WILL LOOP WAITING UNTIL THE CISK COMES REAOY, 
PRINTING THIS MESSAGE APPROXIMATELY EVERY TWELVE SFCONOS. 



E2D04 RTN* 



RTN ADRS FILE 
OOOX 



DSW LAST IOCC 
XXXX XXXX XXXX 



CSW WRONG 



THF DISK IS CHECKFD THAT IT GOES BUSY AND MCT REAOY IMMEDIATELY 
AFTER AN XIO FOR A READ, SEEK, CR WRITE. THIS MESSAGE IS 
PRINTED IF THE OISK DID NOT GO BUSY ANO/OR NOT READY AFTER 
SUCH AN XIO. THE PRCGRAM THEN ENTERS A LOCP THROUGH THE 
MONITOR CHECKING FOR A LOST INTERRUPT. 



E2005 RTN* 



RTN AORS 



FILE 

OOOX 



DSW 
XXXX 



LAST IOCC 
XXXX XXXX 



CSW SK ERR 



A OSW ERROR WAS INDICATED AFTER THE OP COMPLFTE INTERRUPT 
OCCURRFO FOR THE SEEK IOCC SPECIFIED. THF SFEK WILL THEN BE 
VERIFIEC BY READING SECTOR IDS BEFORE RE-SEEKING. 



E2D06 RTN* 



RTN ADRS FILF 
OOOX 



DSW 

XXXX 



LAST IOCC 
XXXX xxxx 



CSW RO ERR 



THF DSW INDICATED AN ERROR OCCURRED WHILF REAOING. THE 
DATA WILL BE CCMPAREO WITH THAT EXPECTEO BEFORE ANY RETRIES 
ARE MADE. 



E2D07 RTN* 



RTN ADRS 



FILE 

oorx 



OSW 

xxxx 



LAST IOCC 

xxxx xxxx 



HRD OSW RD ERR 



AFTER FIGHT (81 RETRIES, A SUCCESSFUL READ USING THE GIVEN 
IOCC CCULD NOT BE EXECUTED. THIS PRINTOUT WILL BE PRECEEDED 
BY EIGHT •E2D06* MESSAGES. 



E2008 RTN* 



RTN ADRS 



FILE 

OOOX 



DSW 

XXXX 



LAST IOCC 
XXXX XXXX 



CSW WRT ERR 



RTN ADRS 



THE OSW INOICATEO AN ERROR OCCURRED AFTFR THE EXECUTION OF A 
WRITE IOCC. THE DATA WRITTEN WILL BE CHECKED FOR VALIOITY 
AND RE-WRITTEN IF ANY CCMPARE ERRORS OCCUR. 



FILF 

OOOX 



DSW 
XXXX 



FROM 
OOCC 



S/B 

OOCC 



WAS 
OCCC 



SFFK ERR 



WHEN A SEFK WAS ATTFMPTED AND VERIFIED, IT WAS FOUND THAT THE 
WRONG CYLINDER WAS OBTAINED. SEEKS ARF ALL VERIFIFD BY READ- 
ING ALL EIGHT SFCTOR ID'S. THE CYLINDER NUMBER OF ALL ID'S 
MUST BE THF SAME, AND THE EIGHT SECTOR COUNTS (BITS 13-15) 
MUST BF SFOUENTIAL (0-7) PEFORF THE SFEK IS ACCEPTFD AS 
VERIFIED. 



E2010 RTN* 



RTN AORS FILE DSW CYL* OOHS *WDS CMP FRR 
OOOX XXXX OCCC OOHS NNNN 

FILE CSW WD* S/B WAS 
OOOX XXXX NNNN DDDO DOCD 

FILE DSW WD* S/B WAS 
OOOX XXXX NNNN DDDO DDOD 

FILE DSW WD* S/B WAS 
OOOX XXXX NNNN DODD ODOO 

FILE CSW *ERS 
OCOX XXXX NNNN 

CCMPARE ERROR. THIS PRINTOUT WILL OCCUR IF THE DATA READ FROM 
THE DISK DOES NCT COMPARE WITH THE DATA THAT WAS EXPECTEO FROM 
THF DISK. THERF ARE THREE THINGS THAT THIS PRINTOUT CAN MEAN. 

1. DATA WAS MISREAD FROM THE OISK 

2. DATA WAS WRITTEN INCORRECTLY ON A PRFCEDING WRITE 
1. THF DISK IS NOT INITIALIZED 

IN OROER TO DETERMINE WHICH WAS THE CAUSE OF THIS MESSAGE, 
FIRST LOOK FOR A PREVICUS PRINTOUT STATING THAT A WRITE ERROR 
OCCURRED. IF THERE IS NOT SUCH A PRINTOUT, THEN THIS PRINTOUT 
WAS NOT CAUSED BY FAULTY WRITE CIRCUITRY. 

IF THIS PRINTOUT OCCURS REPEATEDLY FOR THE SAME CYL. AND SECTOR 
AND NO WRITE ERROR PRINTOUT HAS OCCURRED, THEN THE DISK IS 
PROBABLY NCT INITIALIZED. 

IF THIS PRINTOUT OCCURS INTERMITTENTLY, THEN THE ERRORS ARE 
PROBABLY DUE TO FAULTY READ CIRCUITRY. 

USF CAREFUL JUCGMENT IN DETERMINING WHICH CONDITION EXISTS 
BFFORE LOOKING FOR ANY HAROWARE FAULTS. 

CYL* = CYLINDER WHICH WAS READ (DECIMAL) 
OOHS = TRACK ON THAT CYLINDER 

H - HEAD USED (P OR 1) 

S - SECTOR READ (0, 1, 2, OR 3) 
#WDS = READ WORD COUNT USED IN THE READ XIO 
WD* = POSITION IN THE I/O TABLE OF THE WORD 
S/B = DATA EXPECTED 
WAS = DATA FOUND 
*ERS = NUMBER OF BAD DATA WORDS FOUNO 

NOTF - FOR EVERY BAD WORD THAT IS FOUND, THE WORD PRECEEDING 

IT, ANO THE WORD FOLLOWING IT, AS WELL AS THE BAD WORD, 
ARE PRINTED TO GIVE AN OVERALL PICTURE OF THE I/O AREA. 



DATE 
EC NO. 



25JUN71 
571152 



PROG ID 


032O-* 


DATF 


25JUN71 


PAGE 


5 


EC NO. 


571152 



PROG ID 
PAGE 



032O-* 
5A 



IBM MAINTENANCE 01 AGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310B FUNCTION TEST 



PART NO. 5889427 
PAGE 6 



IBM MAINTFNANCE DIAGNOSTIC PROGRAM FOP THE 1130 SYSTEM 
231CB FUNCTION TEST 



PART NO. 588942 7 
PAGE 6A 



E2011 RTN* 



RTN AORS FILF OSW CYL* OOHS *WDS 
OOOX XXXX OCCC OOHS NNNN 



OVERREAD 



OVERREAO. BEFORE ANY READS ARE EXECUTEO, THE I/O AREA IS SET 
TO HEXADECIMAL 'FFFF'. THE TWO WORDS FOLLOWING THE EXPECTED 
READ AREA ARE ALSO SET TO «FFFF'. WHEN DATA IS READ ANO COM- 
PARED, THESE TWC WOROS ARE CHECKED TO SEE THAT THEY ARE STILL 
SET TO "FFFF". IF NOT, THEN THIS MESSAGE IS PRINTED. 

CYL* = CYLINOER NUMBER ON WHICH THE ERRCR OCCURRED IDECIMALI 
OOHS = TRACK ON WHICH ERRCR OCCURREO 

H - HEAD USEO TO REAO 

S - SECTOR REAO 
dwns = WORO COUNT USED IN READ IOCC 



E2D12 RTN* 



RTN ADRS PILE OSW 
OOOX XXXX 



WRITE ERROR 



THE DATA JUST WRITTEN HAS BEEN REAO AND COMPARED WITH THE OATA 
EXPECTEO, SUPPRESSING ALL PRINTOUTS WHICH MIGHT HAVE OCCURRED. 
A HARO COMPARE ERROR WAS INOICATED (EIGHT RETRIES). AFTER THIS 
MESSAGE IS PRINTED, THE OATA WILL BE COMPARED AGAIN, THIS TIME 
NOT SUPPRESSING PRINTOUTS. ALL COMPARE ERRORS MAY THEN BE IN- 
TERPRETED AS WRITE ERRORS. 



E2D13 RTN* 



RTN AORS FILE DSW CYL* 
OOOX XXXX OCCC 



HOME BIT WRONG 



HOME BIT IN DSW (BIT 4> IS WRONG. IF THE CYLINDER NUMBER GIVEN 
IS ZERO, THEN THE HOME BIT WAS FOUND OFF WHEN THE ARM WAS AT 
HOME. IF NON-ZERO, THEN THE HQME BIT WAS ON WHEN THE ARM WAS 
AT THE GIVEN POSITION (DECIMAL!. 

THE HOME BIT IS CHECKED AFTER EVERY SEEK TC SEE THAT IT IS COR- 
RECT. 



E2D14 RTN* 



RTN ADRS FILE OSW LAST IOCC 

ooox xxxx xxxx xxxx 



NO OSW ERR/WRT 400 



A WRITE WITH A WORD COUNT OF 400 WAS EXECUTEO. THIS WRITE 
OPERATION SHOULO HAVE BEEN TERMINATED BY THE NEXT SECTOR GAP 
AND AN ERROR INOICATED IN THE DSW. NO SUCH ERROR WAS INOICATED. 



E2D15 ' RTN* RTN ADRS 



FILE 

OOOX 



DSW 

XXXX 



LAST IOCC 
XXXX XXXX 



KC DSW ERR/RC 370 



A REAO WITH A WORO COUNT OF 370 WAS EXECUTED. THIS READ OPER- 
ATION SHOULD HAVE BEEN TERMINATED BY THE NEXT SECTOR GAP AND AN 
ERROR INDICATED IN THE DSW. NO SUCH INDICATION WAS GIVEN. 



E2D16 RTN* 



RTN ADRS FILE DSW WOCNT 
OCOX XXXX NNNN 



SECT WD CNT WRONG 



A RFAO WITH A WORD COUNT OF 370 WAS EXECUTEO. THE I/O AREA WAS 
PRESET TO HEXADECIMAL «FFFF' SO THAT THE NUMBER OF WOROS TRANS- 
FERRED COULO BE DETERMINED. IF THE NUMBER OF WOROS TRANSFERRED 
IS LESS THAN 331 OR GREATER THAN 358, THIS ERROR MESSAGE WILL 
BE PRINTED. 



E2D17 RTN* 



RTN ADRS 



FILE DSW 
OOOX xxxx 



WRT 400 WROTE NEXT SECT 



A WRITF WITH A WORD COUNT OF 400 WAS EXECUTED. THE NEXT SECTOR 
WAS THEN READ TO DETERMINE IF THE WRITE OPERATION TERMINATED 
WHEN THE SECTOR GAP CAME UP. IF NOT, THIS ERROR MESSAGE IS 
PRINTEO. 



F2D18 RTN# RTN ADRS FILE OSW LAST IOCC *TMS ROCK XFRO OATA 

OOOX XXXX XXXX XXXX NNNN 

A REAO USING THE REAO-CHECK MODIFIER BIT WAS EXECUTED THF I /n 

THE EA ,/S S WA P S E NnT 12^1? T Ff * BEF ° RF ™ E «C S Ck!! EC AFTERWaJdL ,/0 
THE I/O WAS NOT -FFFF', INDICATING OATA WAS TRANSFERRED. 

*TMS = NUMBER OF READ-CHECK XIO'S WHICH XFRD DATA 

E2019 FILE OSW SECT CNTR BAD 

OOOX XXXX ABCD 

THFY^hIn^prhJV? 2T.J*' 15 ° F ™ E ° SM "OICATE THE NFXT 
«c F r.^ ? GE " 0M O" 1 " 2 " 3 « THE DISK ROTATES. IF NOT, THIS 
MESSAGE IS PRINTED AND THE DSW IS TERMINATED, SINCF ALL RFAn 
AND WRITE OPERATIONS HINGE ON GOOD SECTOR COUNt! 



ABCD = SECTOR COUNTS (S/B = 0123J 



E2D20 RTN* 



RTN AORS FILE CSW 8 CYLINDER IDS 

OOOX XXXX AAAA BBBB CCCC ODDD 

FILE DSW 

OOOX XXXX EEEE FFFF GGGG HHHH 

Jcr E oI A I FLV AFTER * SEEK INTERRUPT OCCURS, THE NEXT AVAILABLE 
SECTOR ON THE OISK IS READ TO GET THE SECTOR ID (WORD I . 
THE OTHER SEVEN (71 SECTOR IDS ARE THEN READ IN SEQUENCE! 

Jyf«n« CT ?2n l 25-* RE THEN CHECKED F0R INDICATING THE SAME 
CYLINDER, ANO FOR HAVING SEQUENTIAL SECTOR COUNTS. IF NOT, 

lell x5i SA » E IS PRINTED « W TO SEVEN RETRIES ARE MAOE TO 
MEET THE ABOVE CONDITIONS. 

IF THIS MESSAGE IS PRINTED EIGHT TIMES FOR THE SAME CYLINDER 
THEN THE DISK IS PROBABLY NOT INITIALIZED. CYLINDER, 

11 LL™ CURS INTERMITTENTLY, WITH THE FIRST SECTOR ID ALWAYS 
IN ERROR, THEN HEAD SETTLING TIME SHOULD BE EXAMINED. 

OTHERWISE, A REAO ERROR IS PROBABLY INDICATED. 

N0TE " Tn E H?ruJcr '» J?' LL N0T NECESSARILY BE IN ORDER LOWEST 
I. u^ H «p T «™ E n ™ E FIRST * V »1«-ABLE SECTOR WILL NOT 
ALWAYS BE SECTOR 0. SECTOR IDS IN THE ORDER 5-6-7- 
0-1-2-3-4, FOR EXAMPLE, WILL NOT BE UNCOMMON. 



E2D24 RTN* 



RTN AORS FILE DSW 
OOOX XXXX 



SK/HCME BIT ERR 



THE SEEK TIMING ROUTINE SEEKS FORWARD TEN f 10 1 TIMES. THEN BACK- 

^ D I V!! T ' 101 TIMES F0R EVERY SEE * INCREMENT THE ROUTINE 
I R " "™ THE * RH A T HOME ANO THE ARM SHCULD BE AT HOME WHEN 

" E TH TS n £ S 1 ^?' ™ E ° NLY CHECK F0R THE **" BEING AT HOME 
IS THE HOME BIT (BIT 41 IN THE OSW. IF THIS BIT IS NOT SET. 

5rE E PR0B E A R B R LY 1nvA P l?0 ABLE ,N0,C * TED - THE "«»« "ST RESULTS 
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COMMENTS 

5.1 TFST ROUTINES 

HEXAOECIMAL 

ROUTINE 

NUMBER 



PCUTINF 
DESCRIPTION 

PRECN 

THIS ROUTINE MAY NEVER BE EXPLICITLY EXECUTED 
AS A ROUTINE. IT IS RUN ONCE EACH TIME THE DISK 
FUNCTION TEST IS LCOPEO REGARDLFSS OF ANY OPTIONS. 
THE ROUTINE WILL - 

A. ISSUE AN XIO SEEK TOWARD HOME OF 203 CYLINDERS 
Tn TEST THE HOME BIT IN THE DSW (BIT 4). 

B. CHECK THE SECTCR COUNT IN THE DSW FOR PROPER 
STEPPING - 0123 . IF THE SECTORS COUNTS FOUND 
ARE NCT SEQUENTIAL THE OFT IS TERMINATED AND 
MUST BE RESTARTED USING THE SWITCH OPTIONS 
(SEE PROGRAM TFRMINATION ABOVE). 



SEFK CYLINDER 199. REAO THE HISTORY TABLF ON 
SECTOP THREE (3) TO SET UP THE BAD CYLINDER 
TABLE IN THE PROGRAM. IF THE HEXADECIMAL WORD 
■CEDC IS NOT THE SECOND WORD ON THE SAME TRACK 
THE OFT IS .TERMINATED AND MUST BE RESTARTED 
USING THE SWITCH OPTIONS (SEE PROGRAM TERM- 
INATION ABOVE). 



RNT1 

THIS ROUTINE FIRST SE 
FIGHT SECTORS ON THE 
IN ORDER THROUGH 7. 
TO 1 AT THE START, AN 
EIGHT SECTORS ARE REA 
REACHES 256. THE REA 
THE DATA THAT IS READ 
CORRECT UNLESS THE DS 
EXCEPT THAT THE DATA 
THIS ROUTINE IS LOOPE 

RTN2 



EKS AND VERIFIES HOME. ALL 
HOME CYLINDER ARE THEN READ, 
THE REAO WORD COUNT IS SET 
IS DOUBLED EVERY TIME ALL 
C, UNTIL THE REAO WORO COUNT 
COUNT IS THEN SET TO 320. 

IS NOT VERIFIEO AS BEING 
W INDICATES AN ERROR OCCURRED, 
IN SECTOR 7 IS ALWAYS VERIFIED 
D 20 TIMES 



INCREMENTAL SEEK ROUTINE. THIS ROUTINE SEEKS 2 
CYLINOERS IN AND 1 OUT FROM CYLINDER TO 202. 
THEN THEN ROUTINE SEEKS 2 CUT ANO 1 IN FRCM CYL- 
INDER 202 TO (HOME). EACH SEEK IS VERIFIEO BY 
READING ALL FIGHT SECTOR ICS ON EACH CYLINDER. 
CYLINDERS 90-110 WILL NEVER BE ATTEMPTED. 

RTN3 

RANDOM SEEK ROUTINE. THIS ROUTINE WILL EXECUTE 
100 RANDOM SEEKS. EACH SEEK IS VERIFIED eY READING 
ALL EIGHT SECTOR ICS. CYLINDERS 90-110 ARE NEVER 
ATTEMPTED. 

- NOTE - THE SAME RANOOM SFEK PATTERN WILL ALWAYS 
BF EXECUTFD IF THF VARIABLE 'RNCSK* IS 
PATCHED (SEE PATCH CPTIONS). 



RTN4 

READ AND VFRIFY 320 WORDS CF HFXA0EC1MAL «1313' 
FROM CYLINOER 1 SECTOR 0. THIS ROUTINE IS LOOPED 
50 TIMES. 

RTN5 

REAO AND VERIFY 320 WORDS CF HEXADECIMAL 'E5F5' 
FROM CYLINDER 201 SECTOR 6. THIS ROUTINE IS 
LOOPED 50 TIMES. 

RTN6 

WRITE 320 WOROS OF HEXAOECIMAL «1313' ON CYLINOER 2 
SECTOR 0. READ BACK THE RECORD ANO VERIFY THAT IT 
WAS WRITTEN CORRECTLY. LOOP THIS ROUTINE 50 TIMES. 

RTN7 

WRITE 320 WORDS OF HEXADECIMAL "E5E5- ON CYLINOER 2 
SECTOR 6. REAO BACK THE RECORD AND VERIFY THAT IT 
WAS WRITTEN CORRECTLY. LOOP THIS ROUTINE 50 TIMES. 

RTN8 

READ-CHECK CYLINDER 1, SECTOR ANO VERIFY THAT NO 
DATA WAS TRANSFERRED TO CORE. IF DATA IS TRANS- 
FERRED, PRINT AN ERROR MFSSAGE IMMEDIATFLY INDIC- 
AATING THE NUMBER OF TIMES THAT DATA WAS TRANSFERRE 
TO CORE. LOOP THIS ROUTINE 50 TIMES. 

RTN9 

GENERATE 320 WORDS OF RANDOM CATA ANO WRITE 
THESE WORDS ON CYLINDER 2, SECTOR 0. READ ANO 
VERIFY THE DATA WAS WRITTEN CORRECTLY. LOOP 
THE ROUTINE 50 TIMFS WITH CIFFERENT PATTERNS. 

- NOTE - THE SAME RANOOM PATTERN WILL ALWAYS BE 

WRITTEN IF THE VARIABLE «LRN1« IS PATCHED 
(SEF PATCH OPTIONS). 

RTN10 

GENERATE 320 WORDS OF RANDOM CATA ANO WRITE 
THESE WORDS ON CYLINOER 202 SECTOR 6. REAO AND 
VERIFY THAT THE DATA WAS WRITTFN CORRECTLY. LOOP 
THIS ROUTINE 50 TIMES WITH OIFFERENT PATTERNS. 

- NOTF - THE SAME RANOOM PATTERN WILL ALWAYS BE 

WRITTEN IF THE VARIABLE •LRN2* IS PATCHED 
(SEE PATCH OPTIONS). 

RTN1I 

WRITE 320 WOROS OF HEXADECIMAL «1313» ON 
CYLINOER 2, SECTOR 0. REWRITE THE SAME SECTOR 
WITH A WORD COUNT OF ONE (1). READ 321 WOROS 
FROM THE SECTOR ANO CHECK THAT ALL 320 WOROS 
FOLLOWING THE ONE WORO THAT WAS WRITTEN ARE ZERO. 
RESTORE THE ORIGINAL OATA (HEX «1313») ON SECTOR. 
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C RTN12 

■ ISSUE A WRITE COMMAND KITH A WORD COUNT OF 400 
ON CYLINOER 2, SECTOR 0. THE HARDWARE SHOULD 
TERMINATE THE WRITE AT NEXT SECTOR GAP. READ THE 
DATA JUST WRITTEN TO DETERMINE THE NUMBER OF WORDS 
THAT WERE WRITTEN. CALCULATE THE AVERAGE WORO 
CCUNT FOR FIFTY (50) PASSFS AND SAVE FOR SUMMARY 
TABLE PRINTOUT. IF WORD CCUNT IS LESS THAN 331 
OR GREATFR THAN 358, AN ERROR MESSAGE IS PRINTED 
IMMEDIATELY. 

RTN13 ***SPECIAL ROUTINE*** 

***SEEK TIMING ROUTINE*** 

THIS ROUTINE WILL BE RUN ONLY IF IT IS SPECIFICALLY 
SELECTED. IF WILL TAKE CONTRCL OF THE CPU FOR THE 
DURATION OF THE TIMING TEST. SFEK INCREMENTS OF 
1, 2, 4, 8, 16, 32, 64, 128, AND 200 CYLINDERS 
ARE TIMEO. THE MAXIMUM TIME FOUND, THE MINIMUM 
TIME FOUND AND THE AVERAGE TIME ARE ALL PRINTEO 
AT THE END OF THE ROUTINE FOR EVERY SEEK INCREMENT. 

SEEK TIME = 15MS X (NUMBER OF 20 MIL STEPS * 

NUMBER OF 10 MIL STEPS) 

5.2 DESCRIPTION OF SUB-ROUTINES 

INDEX REGISTER 2 IS SET TO THE AOORESS -TB' AT THE START OF THE PRO- 
GRAM AND EVERY ROUTINE EXPECTS THIS REGISTER TO CCNTAIN THAT ADDRESS. 
•TB« IS THE POINTER TO A COMMON TABLE OF CONSTANTS AND ROUTINE CALLS. 
ALL RETURNS FROM CALLS ON THF MONITOR GO THROUGH A ROUTINE WHICH SET UP 
THIS POINTER ALSO. REGISTER 2 IS NEVER SET TO ANY OTHER VALUE. 

ALL THE SUBROUTINES DESCRIBED PROVIDE ANY NECESSARY ERROR ANO 
STATUS PRINTOUTS. (REFERENCE SECTION 4.) 

ALL SUBROUTINES WHICH REQUIRE THE OPTION ARE PROVIDEO WITH THE 
•LOCK ON ERROR* OPTION. THIS OPTION WILL LOOP THE SUBROUTINE IN 
THE SMALLEST POSSIBLE LOOP WHICH CAUSEC THE ORIGINAL ERROR. 
ONCE AN ERROR OCCURS, AND THE OPTION IS SFLFCTEO, THE ROUTINE WILL 
REMAIN IN THE LOOP AS LONG AS THE 'LOCK ON ERROR" SWITCH IS ON, 
WHETHER THE ERROR RECURRS OR NOT. IF NO ERROR OCCURS THEN THE 
OPTION HAS NO EFFECT. 

***CALL*** 

...BSI 2 STMLS-TB 

THIS SUBROUTINE IS USED TC SET AN ENTRY IN THE MAIN LINE SEQUENCE CONTROL 
FIELD (MLSCF) WHEN EXITING TO THE MONITOR. THE ROUTINE SAVES ALL INDEX 
REGISTERS, SETS A RETURN ADDRESS IN 'MLSCF+1', ANO GOES TC MONITOR 'START'. 
UPON RETURN FROM MONITOR, THE SUBROUTINE RESTORES THE INDEX REGISTERS, AND 
RETURNS TO THE CALLING ROUTINE. 



.BSI 
.DC 



2 CKLK-TB 
RETURN1 



.BSI 
DC 



2 XEQ-TB 
RETURN1 



THIS SUBROUTINE BUILDS THE IOCC WITH THE DEVICE AREA CODE, SETS 
THE INTERRUPT SWITCH NON-ZERO, ANO SETS UP A LOOP COUNT TO TEST 
THE SELECTED DEVICE FOR REAOY. IF THE OEVICE IS READY, THIS ROUTINE 
TESTS THE VALUE OF 'COMA'. IF ZERO, EXIT IS TAKEN IMMEDIATELY. IF 
NON-ZERO, THE XIO SET UP IN LOCATION ■ZXIO* IS EXECUTEO. A LOOP IS 
THEN SET UP THROUGH THE MONITOR WAITING FOR A LOST INTERRUPT. WHEN 
THE INTERRUPT OCCURS, FXIT IS MADE TO CALL+1. 



Selected If THF%u? T E ru T ?c CHECK F0R THE L0CK 0N ERR °« option 

THE ADDRESS RFTURN1 11 r 4 UT *1l R ° UT,NE RETURNS '"DIRECTLY VIA 
RETURNS DIR S EC T [ytJ CALl"' ' " ™ E SM!TCH " ° FF ™ E *° UT,NE 

...BSI 2 SETV-TB 

A-REG CONTAINS DATA TO SET 

THIS SUBROUTINE SETS THE I/O AREA TO THE CONTENTS OF THF A 

...BSI 2 RNDOM-TB 

A-REG CONTAINS LAST RANOOM NUMBER 

THIS ROUTINE USES THE NUMBER IN THE A REGISTER TO CFNFRATP a 
RANDOM NUMBER, ANO RETURNS TO CALL*. KITH THE nK NUMBFR in thp * 
REGISTER. THE NUMBER IN THE A REGISTER AT THE TIM?3f ?HF fin f< 
NORMALLY THE LAST RANOOM NUMBER USED. tL IS 

...BSI 2 STMSG-TB 

DC FMMM 

F = FORM NUMBER 
HMM= MESSAGE ID. 

ALTERNATE CALL 
...BSI L STMSG+/8000 
DC FMMM 

as^rsjsf.sj'-t.K isr;i c, P « , f»,io: oi " ,, °' , * t i,ne " es " m - 
safe s^«»2-^"5«ss^™S-- 

...BSI 2 VERFY-TB 

DC CYL. NC. DESIRED 

DC ERROR ADDRESS RETURN 

IF NOT, AN ERROR MESSAGE IS PRINTEO IMMEDIATELY AN FRRnp pctov n-n 
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...RSI 2 READ-TB 

OC w6rd CCUNT 

DC NUMBER (USED IN CALL TC CMP ROUTINE) 

DC ERROR RETURN 

(A RFC. CONTAINS SECTnR OESIREC.) 

THIS ROUTINE WILL BUILD THE READ IOCC, PRESET THF I/O AREA TO HEX 'FFFF', 
SET THE READ WORO COUNT IK THF I/C AREA, AND EXECUTE THE READ THROUGH THE 
XFQ SUBROUTINF. 

UPON RETURN FRCM XEO, THF DSW IS CHECKED TT SEE IF ANY ERROR IS INDICATED. 
IF A DSW ERROR IS INDICATED AFTFR ANY READ, AN ERROR MESSAGE IS PRINTFD. 

WITH OP WITHOUT DSW ERRORS, A CALL IS MADE ON THE •CMP* SUBROUTINE TO CHECK 

THE DATA TO SFE THAT IT WAS AS EXPECTEO. IF NOT, UP TO EIGHT RETRIEES ARE 

MADE FCR A GOOD READ. IF ALL RFTRIES FAIL, THE ROUTINE EXITS TO THE ERROR 
RETURN ADORESS. 

...BSI CMP 

MDX ERROR RETURN 

THIS ROUTINE WILL MAKE A WORO BY WORD CCMPARISON OF THE DATA 
REAO AGAINST THE DATA FXPECTFD. THE ROUTINE WILL ALSC MAKE A CHECK 
OF THE WORD COUNTER BY COMPARING TO SEE IF MORE WORDS WERE TRANS- 
FERRED THAN EXPECTED. 
IF NO ERRORS ARE FOUND THE ROUTINE FXITS DIRECTLY TO 

CALL»2. OTHERWISE THE EXIT IS TO CALL+1. 

...BSI 2 WRITE-TB 

DC NUMBER OF WORDS (IF BIT = 1 , DO NOT PRFSET I/O ARFA) 

DC DATA TO BE PRESET IN I/O AREA 

DC ERROR RETURN 

(A REG. CONTAINS THE SECTOR NUMBER) 

THIS ROUTINE WILL PRESET THF I/O ARFA >CCMA« WITH THE DATA TC BE WRITTEN. 
THF ROUTINE WILL PLACE THE CURRENT VERIFIED SFCTOR ID AT THE I/O AREA PLUS 
1 AND THE WRITE WORD COUNT AT I/O AREA. THF ROUTINE WILL BUILD THE WRITE 
IOCC, AND ISSUE THF XIO THROUGH THE 'XEQ* ROUTINE. UPON RETURN FROM «XEO' 
THE OSW IS CHFCKED FCR ERRORS. 

IF NO DSW FRROP IS INCICATED, EXIT IS MADE TO CALL+4 WITHOUT ANY CHECKING. 

IF A CSW ERROR IS INDICATED, AN FRROR MESSAGE IS PRINTFO IMMEDIATELY AND 
EXIT IS MADE TO THE FRROR RETURN ADORFSS. NO RFTRIES ARE MADE TO WRITE 
A GOOD RF.CORD WITHIN THIS SUBRCUTINF. 
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:<«««««<«««««<««««<«««<« ««32000020 

32D00030 
THIS PROGRAM USES A NEW CODING 
CALLED EXTENDEO MNEMONIC 
CODING. 



DATE 

EC NO. 



25JUN71 
571152 



15DEC71 
571154 



THIS CODING IS SUMMARIZED HERE 
FOR CONVENIENCE. 



SKP 






32D00040 
32D00050 
32D00060 
320 00070 
32D00080 
32D00090 
32D00100 
;<«««««««««« «««<«<«««««<«<320001 10 

32D00120 
JOED STANDARD MEANING 32D00130 

)NIC MNEMONIC OF CODE 32000140 

4G EQUIVALENT 32D00150 

+ + 32D00160 

6 BSC £ SKIP IF A IS 32D00170 

PLUS. 32D00180 

-< 32D00190 

SKIP IS A IS 32D00200 
PLUS OR MINUS. 32D00210 

-♦ 32D00220 

SKIP IF A IS 32D00230 
ZERO. 32D00240 

-* 32D00250 

SKIP IF OVERFLOW 32D00260 
IS OFF. 32D00270 

-< 32D00280 

SKIP IF CARRY IS 32D00290 
OFF 32D00300 

-+ 3 2D00 3 1 

SKIP IF A IS 32D00320 

PLUS OR MINUS OR 32D00330 

IF CARRY IS OFF. 32D00340 

-+ 32D00350 



BSC 



BSC 






BSC 



BSC 



t-C 



BSC 



£-C 



EXIT 



MDX 



EXIT 



BRANCH TO EXIT 
WHERE EXIT IS 
WITHIN NORMAL 
DISPLACEMENT. 



ALPH 



BETA 



BETA 



BSC L 
BSC L 



ALPH 



BETA.S- 



BSC L BETA.Z 



BETA 



32D00360 
32D00370 
32D00380 
32D00390 

--I 32D00400 

BRANCH TO ALPH. 32D00410 

- ♦ 32 DO 0420 

BRANCH TO BETA 32D00430 
IF A IS ZERO. 32D00440 

-«• 32D00450 

BRANCH TO BETA 32D00460 
IF A IS NON-ZERO 32D00470 

-+ 32D00480 

32D00490 
32D00500 
32D00510 
32D00520 



RTNA 



RTNB 



SUBO 



BSC I BETA.Z BRANCH 

INDIRECTLY TO 
BETA IF A IS 
N ON- ZERO. 
._< + 32D00530 

BSC L RTNA.Z& BRANCH TO RTNA 32D00540 

IF A IS MINUS. 32D00550 

._< ♦ 32D00560 

BSC L RTNB,- BRANCH TO RTNB 32D00570 
IF A IS 32D00580 

NOT MINUS. 32D00590 

._+ + 3 2D 00600 

BSC L SUBO.Z- BRANCH TO SUBO 32D00610 
IF A IS PLUS. 32D00620 

— t 4 32D00630 



SUB 



BSC L SUB.S 






ENTR 



BSC L ENTR.C 



BRANCH TO SUB 32D00640 

IF A IS NOT 32D00650 

PLUS. 32D00660 

-* 32D00670 

BRANCH TO ENTR 32D00680 
IF CARRY IS ON. 32000690 



PROG ID 


0320-0 


DATE 


25JUN71 


150EC71 


PAGE 


1 


EC NO. 


571152 


571154 



♦- 
* 


BO 2 5 BSC L2 5,0 BRANCH TO ADRS. 


-32D00700 
32D00710 




* 


SPECIFIED BY 


32D 00720 




* 


CONTENTS OF IX. 


32D00730 




* 


2 PLUS 5 IF 


32D00740 




* 


OVERFLOW IS ON. 


32D00750 




^ 


. , 


-32000760 
32D00770 




♦ 


BOO SAFE BSC L SAFE.E BRANCH TO SAFE 




* 


IF A IS ODD. 


32D00780 




♦- 
* 


. . 


-32000790 
32D00800 




MOM AVA,5 MDX L AVA,5 INCREMENT ADRS. 




* 

*- 

* 


AVA BY 5. 


32D00810 

-32000820 

32D00830 




XCH RTE 16 EXCHANGE THE 




* 


CONTENTS OF A 


32D00840 




* 


AND g. 


32D00850 




♦- 


4 + 


-32D00860 




♦- 
♦- 
* 


— — — ' ~— — — — — — ——.— ——— i-— ■■— --—— —_———- 


-32000870 






32000890 




*«««<««««««««««««<««<«««««<« 


32D00900 




* 




32D00910 




*«««««<««««<«««<««««««««««<« 


32000920 




* 


SUBROUTINE CALLS 


32D00930 




* 




32D00940 




* 


BNDEC 


32D 00950 




* 


A REG.=HEX NUMBER (0-9999 BASE 10 » 


32D00960 




* 


BSI BNDEC CONVERT HEX TO DECIMAL 


32D00970 




* 


A REG.=CONVERTED DEC. NUMBER 


32D00980 




* 




32D00990 




* 


CKLK 


32001000 




* 


BSI 2 CKLK-TB CHECK BIT 12 SWO 


32001010 




* 


DC RETURN ADRS IF BIT 12 SET 


32D01020 




* 




32D01030 




* 


CMP 


32001040 




* 


BSI CMP COMPARE DATA WITH NUMBER 


32D01050 




« 


MDX CMP ERR BRANCH 


32D01060 




♦ 




32D01070 




* 


COUNT 


32D01080 




* 


1X3 = SUMMARY TABLE POINTER 


32001090 




* 


BSI 2 COUNT-TB INCR COUNT MODULO 10,000. 


32001100 




* 




32D01110 




* 


PRSUM 


32001120 




* 


BSI 2 PRSUM-TB PRINT SUMMARY TABLE 


32D01130 




* 




32D01140 




* 


READ 


32D01150 




* 


A REG.= SECTOR COUNT 


32D01160 




* 


BSI 2 READ-TB READ SECTOR AT PRESENT 


32D01170 




** 


♦ CYL. COMPARE DATA IF 


32001180 




** 


♦ NOCK ZERO. 


32D01190 




* 


DC NO. OF WORDS-BIT EQUAL 1 MEANS USE 


32D01200 




** 


RANDOM NUMBERS FOR CMP 


32D01210 




* 


DC NUMBER USED IN COMPARE 


32D01220 




* 


DC ADRS OF CMP ERROR RETURN 


32D01230 




* 




32D01240 




♦♦♦♦ALTERNATE CALL USED 


32D01250 




♦ 


BSI L READ+/8000 


32D01260 




♦ 


DC NO. OF WORDS 


32D01270 




* 




32001280 




* 


RNDOM 


32D01290 




* 


A REG.= NO. USED TO BUILD NEXT RANDOM NO. 


32D01300 




♦ 


BSI 2 RNDOM-TB GENERATE NO. 


32D01310 




♦ 


A REG.= NEW RANDOM NO. 


32D01320 




♦ 




32D01330 




* 


SECT 


32D01340 




* 


A REG.=SECTOR 10 IN HEX 


32D01350 




♦ 


BSI SECT CONVERT SIO FOR PRINT 


32D01360 




♦ 


OOCC • OOHS CC=CYL # IN DECIMAL 


32D01370 
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SETV 

A REG.=NO.TO BE SET 
COMA = WORD COUNT 
BSI 2 SETV-TB 



** 

** 

* 

* 

* 

# 

* 

** 

* 

* STMLS 

* BSI 
** 
** 
* 

* STMSG 

* BSI 

* DC 
* 

****ALTERNATE CALL USED 



H = HEAD (0-1) 
S = SECTOR 10-31 



IN COMA AREA 



PRESET COMA+1 TO COMA+N+2 
TO VALUE IN A REG. 



STMLS-TB 



SAVE IX 1, 

* MONITOR. 

* CALL+1. 



IX 2 AND EXIT 
RETURN IS TO 



STMSG-TB 
MESSAGE ID 



PRINT MESSAGE 



* 
* 

* 

* 

* 

** 

** 

* 

* 

** 

* 

* 

* 

* 

* 

** 

** 

* 

* 

* 



BSI 

DC 

VERFY 
BSI 



DC 
DC 



STMSG+/8000 
MESSAGE ID 



2 VERFY-TB SEEK A CYLINDER AND VER- 

* IFY CYL. BY REAOING AT 

* LEAST TWO SECTOR ID'S. 
CYL # DESIRED 

RETURN ADRS IF CYL # INVALID OR 
BAD FROM 2315 DISK INITIALIZER. 



WRITE 

A REG.=SECTOR COUNT 

BSI 2 WRITE-TB WRITE IN PRESENT CYLINDER 

NO. OF WORDS TO BE WRITTEN 

IF BIT 0=1, OONT PRESET 
THE I/O AREA 
DATA TO BE WRITTEN 
AORS OF DSW ERROR RETURN 



DC 



DC 
DC 



****ALTERNATE CALL USED 



BSI 

DC 

DC 



BSI 



WRITE+/8000 
NO OF WORDS 
DATA TO BE WRITTEN 



2 XEQ-TB 



EXECUTE I/O AND WAIT 
* FOR INTERRUPT 



* 
* 
* 
* 

* XEQ 
* 

** 
* 

* 

* 

* MONITOR INTERFACE 

* 

* 

************************************************ *** 

* EQUATE TABLE 

*************************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABLES 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 

* 

* 

* 
* — 



MONITOR ENTRY ADDRESSES 



0160 

0161 



BEGIN EQU 
START EQU 



/0160 
BEGIN+1 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 



32D01380 

32D01390 

32D01400 

32001410 

32D01420 

32D01430 

32D01440 

32D01450 

32D01460 

32D01470 

32D01480 

32D01490 

32D01500 

32D01510 

32D01520 

32D01530 

32D01540 

32D01550 

32D01560 

32D01570 

32D01580 

32D01590 

32D01600 

32D01610 

32D01620 

32D01630 

32D01640 

32D01650 

32D01660 

32D01670 

32D01680 

32D01690 

32D01700 

32D01710 

32D01720 

32D01730 

32001740 

32001750 

32D01760 

32D01770 

32D01780 

32D01790 

32D01800 

32D01810 

32D01820 

32D01830 

32D01840 

32D01850 

32D01860 

32D01870 

32D01880 

32D01890 

32D01900 

32001910 

32001920 

32D01930 

32D01940 

32D01950 

32001960 

32D01970 

32001980 

32D01990 

32D02000 

32D02010 

32D02020 

32D02030 

32002040 

32002050 



0162 

0163 

0164 



0165 

0166 

0167 

0168 



017A 





018A 





019A 





01AA 





01BA 





01BB 





01BC 





01BD 






05DC 



5DC 





032D 


05DD 





0000 


05DE 





0000 


05DF 





0000 


05EO 





0000 


05E1 





0000 


05E2 





0000 


05E3 


1 


82 8 


05E4 


1 


0812 


05E5 


c 


OCOO 


05E6 





0000 


05E7 





FFFF 


5E8 


1 


OFCB 


05E9 





2000 


05EA 





8 800 


05EB 





9000 


05EC 





9800 


05ED 





A 000 


05EE 





0000 


05EF 





0000 


05F0 





FFFF 


05F1 





FFFF 


05F2 





FFFF 



05F3 4480 0160 
05F5 1 05DC 



ERROR EQU START*! 

LOG ECU ERROR+l 

END EQU L0G*1 

* 

* MONITOR CONTROL WORD ADDRESSES 



ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



RTNSW EQU END*1 

ERLCK EQU END+2 

LOGBY EQU ENO+3 

ADORS EQU ENO+4 

* 

* INTERRUPT TRANSFER VECTOR ADDRESSES 

* 



ROUTINE START SWITCH 
LOCK ON ERROR CONTROL 
I/O BUSY SWITCH ADORESS 
ACTIVE PGRM MLSCF ADRS 



EQU 
EQU 
EQU 
ECU 
EQU 
EQU 
EQU 
EQU 



ILO 
IL1 
IL2 
IL3 

IL4 

RQTY 

RQKB 

SVKB 

* 

************ 

ORG 
************ 

* 

************ 

* 

* 

* 

* 

PID 

RID 

RAD 

SWO 

SW1 

SW2 

SW3 

LPA 

IPA 

* 

MLSCF DC 

DC 
TERM DC 

DC 
* 

DVAS DC 
OC 

DC 

DC 

DC 
RNDSK DC 
RNDWR DC 
BADCY DC 

DC 



/017A 

IL0+16 

ILU16 

IL2+16 

IL3+16 

IL4+1 

RQTY+1 

RQKB+l 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 



*************************************** 

♦♦1500 

*************************************** 

PROGRAM CONTROL TABLE 
*************************************** 



MONITOR INTERFACE TABLES 

/032D PGM ID 

ROUTINE ID 

ROUTINE ADRS 

SWITCH FUNCTION 00 

SWITCH FUNCTION 01 

SWITCH FUNCTION 10 

SWITCH FUNCTION 11 

ZLPA LOOP PROGRAM ADDRESS 

ZIPA RESTART ADDRESS 

MAIN LINE SEQUENCE 

* CONTROL FIELD 

/FFFF TERMINATOR 

PEND LAST PROGRAM ADDRESS 



/2000 
/8800 
/9000 
/9800 
/AOOO 




* 
* 
* 
BEG 



DC 



BSI 
OC 





-1 
-1 
-1 



AREA CODE-CPU DRIVE 

AREA CODE-UNIT 1 

AREA CODE-UNIT 2 

AREA CODE-UNIT 3 

AREA CODE-UNIT 4 

PATCH OPTION-RANDOM SEEK 

PATCH OPTION RANDOM WRT 



BEGIN ROUTINE 



BEGIN 
PID 



EXIT TO MONITOR 
AORS OF PID 



*«««<««««««««««««««<<«««««<« 

* 

* INTERRUPT ROUTINE 

* 



32D02060 
32D02070 
32002080 
32D02090 
32002100 
32D02110 
32D02120 
32D02130 
32D02140 
32D02150 
32002160 
32D02170 
32D02180 
32D02190 
32D02200 
32D02210 
32D02220 
32D02230 
32D02240 
32D02250 
32D02260 
32D02270 
32D02280 
32D02290 
32D02300 
32D02310 
32D02320 
32D02330 
32D02340 
32D02350 
32D02360 
32D02370 
32D02380 
32D02390 
32002400 
32D02410 
32D02420 
32D02430 
32D02440 
32D02450 
32D02460 
32D02470 
32002480 
32D02490 
32002500 
32D02510 
32D02 520 
32002530 
3 2D02540 
32002550 
32D02560 
32002570 
32D02580 
32D02590 
32D02600 
32002610 
32D02620 
32002630 
32D02640 
32D02650 
32D02660 
32D02670 
32002680 
32002690 
32002700 
32002710 
32002720 
32002730 



V_ 



DATE 
EC NO. 



25JUN71 
571152 



150EC71 
571154 



PROG ID 
PAGE 



032D-0 
2 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



PROG ID 
PAGE 



0320-0 
2A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310 FUNCTION TEST 



PART NO. 5889425 
PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310 FUNCTION TEST 



PART NO. 5889425 
PAGE 3A 



^ 



V.. 





05F6 





0000 


INTSW 


DC 





INTERRUPT SWITCH 




32D02740 


062E 





0000 


PCYL# 


DC 


*-* 


PRESENT CYLINDER 


EVEN 


32D03420 






05F7 





0000 


OVA 


DC 





AREA COOE STORAGE 




32D02750 


062F 





0000 


NCYL# 


DC 


*-* 


NEXT DESIRED CYLINDER 


ODD 


32003430 






05F8 





0000 


INTR 


DC 





INTRPT ENTRY 




32D02760 


0630 





0000 


ERSK1 


DC 


*-* 


SEEK RTN ERROR SW 


EVEN 


32D03440 






05F9 





COFC 




LD 


INTSW 


GET INTRPT SWITCH 




32D02770 


0631 





0000 


CNTB 


DC 


*-* 


SEEK RTN-RETRY CTR B 


ODD 


32D03450 






05FA 


I 


6 700 0604 




LOX 


L3 INTRB 


GET RETURN ADDRESS 




32D02780 


0632 





0000 


RTRVA 


OC 


*-* 


RETRY CTRS 


EVEN 


32D03460 






05FC 





4818 




SKP 


♦— 


SKIP IF INT EXPECTED 




32D02790 


0633 





0000 


RTRYB 


DC 


*-* 


* 


ODD 


32D03470 






05FD 





6BE7 




STX 


3 MLSCF 


SET IN TABLE FOR MONITOR 


32D02800 


0634 





0000 


RDDSW 


DC 


*-* 


ERROR CTRS 


EVEN 


32003480 






05FE 





1010 


INTRC 


SLA 


16 


CLEAR INTRPT SW 




32D02810 


0635 





0000 


RDCMP 


OC 


*-* 


* 


ODD 


32D03490 






05FF 





OOF 6 




STO 


INTSW 


* 




3 2D 02 820 


0636 





0001 


Kl 


DC 


1 


CONSTANT I 




32D03500 












* 










32D02830 


0637 





0002 


K2 


DC 


2 


CONSTANT 2 




32003510 






0600 





0815 




XIO 


ZSNS 


SENSE DSW 




32D02840 


0638 





0003 


K3 


DC 


3 


CONSTANT 3 




32D03520 






0601 





0014 




STO 


ZSNS 


STORE DSW IN TEMP LOC 


•N 


32D02850 


0639 





0004 


K4 


DC 


4 


CONSTANT 4 




32D03530 






0602 


1 


4C80 05F8 




BSC 


I INTR 


EXIT ROUTINE 




32D02860 


063A 





0007 


K7 


DC 


7 


CONSTANT 7 




32D03540 












* 










32D02870 


063B 





0008 


K8 


DC 


8 


CONSTANT 8 


ODD 


32D03550 












* 




PRINT 


ERROR - MAINLINE 




32D02880 


063C 





OOOA 


TEN 


DC 


10 


TEN 




32D03560 












* 










32D02890 


0630 





FFF2 


KM14 


DC 


-14 


USED TO CALCULATE CPU 


TIME 


32D03570 






0604 





COU 


INTRB 


LD 


ZSNS 


GET INTRPT DSW 




32D02900 


063E 





0017 


K23 


DC 


23 


USED TO CALCULATE CPU 


TIME 


32D03580 






0605 





D021 




STO 


TBDSW 


STORE FOR PRINT 




32D02910 


063F 





0024 


K36 


DC 


36 


USED TO CALCULATE CPU 


TIME 


32D03590 






0606 


1 


6600 065C 




LDX 


L2 TB 


SET UP POINTER 




32D02920 


0640 





0064 


HUNDR 


DC 


100 


ONE HUNDRED 




32D03600 






060 8 





4230 




BSI 


2 STMSG-TB 


PRINT EXTRA INT MSG 




32D02930 


0641 





OOCA 


K202 


DC 


202 


CONSTANT 202 




32D03610 






0609 





5E02 




DC 


/5E02 


MESSAGE ID 




32D02940 


0642 





OOCB 


K203 


DC 


203 


CONSTANT 203 




32D03620 






060A 





4480 0161 


$ — — - 


BSI 


I START 


EXIT TO MONITOR 




32D02950 
32D02960 
32D02970 


0643 





OOFD 


K253 


DC 


253 


DECIMAL CONSTANT 




32D03630 












# 










0644 





014B 


K331 


OC 


331 


CONSTANT 




32003640 






















0645 





3E8 


THOUS 


DC 


1000 


ONE THOUSAND 




32D03650 












*««««««<«««««««<««««««««<«<« 


32D029 80 


0646 





2710 


K10TH 


DC 


10000 


CONSTANT 100C0 DEC 




32D03660 












* 










32D02990 


0647 







SUMRY 


EQU 


* 


SUMMARY TABLE ORIGIN 




32D03670 












* 




TABLE 


OF COMMON PROGRAM 




32D03000 


0647 





0000 


PSSCT 


DC 


*-* 


PASS COUNT 




32D03680 












* 




CONSTANTS AND EQUATES 




32D03010 


0648 





0000 


SKCNT 


DC 


*-* 


NUMBER OF SEEKS 




32D03690 












* 










32D03020 


0649 





0000 


SFTSK 


OC 


*-* 


NUMBER SOFT SK ERRORS 




32D03700 












*«««««<<««««<«««««««««<<«««<« 


32D03030 


064A 





0000 


HROSK 


DC 


»-* 


NUMBER HARD SK ERRORS 




32D03710 






065C 







TB 


EQU 


PlD+128 


CONSTANT TABLE POINTER 


32D0 3040 


064B 





0000 


ROC NT 


DC 


*-* 


NUMBER OF READS 




32D03720 






0014 







LP13 


EQU 


20 


NUMBER OF LOOPS RTN 1 


3 


32D03O5O 

32D03060 


064C 
064D 






0000 
0000 


SFTRD 

HRDRD 


DC 
DC 


*-* 

*-* 


NUMBER SOFT RO ERRORS 
NUMBER HARD RD ERRORS 




32D03730 
32D03740 


















060C 





0404 


XSKBK 


DC 


/0404 


FNC/MOD-SEEK OUT 




32D03070 


064E 





0000 


WRCNT 


DC 


*-* 


NUMBER OF WRITES 




32003750 






0600 





3000 


H3000 


DC 


/3000 


FORM NUMBER FOR PRSUM 




32D0 3080 


064F 





0000 


SFTWR 


DC 


*-♦ 


NUMBER SOFT WR ERRORS 




32003760 






060E 





1313 


H1313 


DC 


/1313 


CONSTANT HEX 1313 




32D03090 


0650 





0000 


HRDWR 


DC 


*-* 


NUMBER HARD WR ERRORS 




32D03770 






060F 





0123 


MASK 


DC 


/0123 


ORDER OF SECTOR COUNTS 


32D03100 


065 1 





0000 


WRLNG 


DC 


*-* 


AVG SECT LNGTH/WRT 400 


32D03780 






0610 





0500 


WRMOD 


DC 


/0500 


WRITE FUNCTION 




32D03110 


0652 





0000 


PRSW 


DC 


*-* 


IF NON ZER0-8YPASS PR! 




32003790 






0611 





0600 


DSKMD 


OC 


/0600 


READ FNC/MOD 




32D03120 


OOOC 







SMLNG 


EQU 


*-SUMRY 


LENGTH OF SUMMARY TABLE 


32D03800 






0612 





0680 


RDCHK 


DC 


/0680 


READ-CHECK IOCC 




32D03130 


0653 





0000 


FRNSK 


DC 


*-« 


FIRST RANDOM SK ISSUEC 


I 


32D03810 






0613 





0700 


SNRES 


DC 


/0700 


SENSE/RESET CONSTANT 




32D03140 


0654 





0000 


PRNSK 


DC 


*-* 


LAST RANDOM SEEK ISSUED 


32D03820 






0614 





900 


TYRED 


DC 


/0900 






32D03150 


0655 





0000 


FRN1 


DC 


*-* 


FIRST RANDOM # RTN 9 




32D03830 






0615 





8000 


H8000 


OC 


/SOOO 


CONSTANT HEX 8000 




32D03160 


0656 





0000 


LRN1 


DC 


*-* 


LAST RANDOM # RTN 9 




32003840 






0616 




0000 




BSS 


E 






32D03170 


065 7 





0000 


FRN2 


OC 


*-♦ 


FIRST RANDOM # RTN 10 




32D03850 






0616 





0000 


ZSNS 


DC 


*-* 


USED AS TEMP LOC'N 


EVEN 


32D03180 


0658 





0000 


LRN2 


OC 


*-* 


LAST RANDOM # RTN 10 




32D03860 






0617 





0000 




DC 


*-* 


SENSE-RESET IOCC 


ODD 


32003190 


0659 





0000 


CNTA 


DC 


*-* 


SEEK RTN-RETRY CTR 




32D03870 






0618 





0000 


ZXIO 


DC 


*-* 


COMMON IOCC STORAGE 


EVEN 


32D03200 


065A 





0000 


RNDCK 


DC 


*-* 


TEMP STORAGE 




32D03880 






0619 





0000 




DC 


*-* 


* 


ODD 


32D03210 


065B 





0000 


NOCK 


DC 


*-* 


BYPASS RD CKS IF NON 


32D03890 






061A 





0000 


SNXIO 


DC 


»-* 


IOCC-STORAGE-SENSE 


EVEN 


32D03220 


065C 





0000 


LNGTH 


OC 


♦ -* 


RECORD LENGTH STORAGE 




32D03900 






061B 





0000 




DC 


*-# 




ODD 


32D03230 


065D 





0000 


INDEX 


DC 


*-* 


INDEX POINTER 




32D03910 






061C 


1 


0614 


TYPE 


DC 


TYRED 


SHIFT TO RED IOCC 




32D03240 


065E 





0000 


ERCT 


DC 


*-* 


CMP RTN ERROR CTR 




32D0 3920 






061D 





0900 




DC 


/0900 






32D03250 


065F 





0000 




DC 


*-* 


TEMP STORAGE CMP RTN 


EVEN 


32D03930 






06 IE 





0000 


SNSTY 


DC 


*-* 


SENSE DSW W/RESET 




32D0 3260 


066 





0000 


S#B 


DC 


*-* 


* 




32D03940 






061F 





OFOO 




DC 


/OFOO 


SENSE DSW FOR TYPEWRITER 


32003270 


0661 





0000 




DC 


♦-* 


* 




32D03950 






0620 





E5E5 


HE5E5 


DC 


/E5E5 


CONSTANT HEX E5E5 




32D03280 


0662 





0000 


IOS#B 


DC 


*-* 


PRESENT SECT/CYL ID 


ODD 


32D03960 






0621 





0000 


MSGO 


DC 


*-* 


MESSAGE STORAGE 


ODD 


32D03290 


0663 





0000 


LPRNT 


DC 


*-* 


LAST WORD PRINTED 




32D03970 






0622 





0000 


HXDC 


DC 


*-* 


HEX/DEC FLAG 


EVEN 


32D03300 


0664 





0000 


RTCNT 


DC 


*-* 


RETRY COUNTER 




32D03980 






0623 





0000 


MSGIO 


DC 


*-* 


MESSAGE ID 


ODD 


32D03310 


066 5 





0000 


WRRTY 


DC 


*-* 


RETRY COUNTER 




32D03990 






0624 


1 


ODFO 


ADDR1 


DC 


ALP HO 






32003320 


0666 





0000 


ZCNT 


DC 


*-* 


DELAY COUNT 




32D04000 






0625 





0000 


A DDR 2 


DC 





ALPHA ADDRESS 2 




32D03330 


0667 





0000 


RTNER 


DC 


*-# 


RTN ERROR COUNTER 




32D04010 






0626 





0000 


FILE# 


DC 


*-* 


FILE NUMBER 


ODD 


32003340 


0668 





0000 


CMPTM 


DC 


*-* 


TEMP STORAGE 




32D04020 






062 7 


c 


0000 


TBDSW 


DC 


*-* 


DSW 


EVEN 


32D03350 


0669 





007B 


K123 


DC 


123 


DECIMAL CONSTANT 




32D04030 






0628 





0000 


M0D3 


DC 


*-* 


MODIFIERS 


EVEN 


32D03360 


066A 





1510 


TLP13 


DC 


5392 


RTN 13 LOOP TIME (NSEC) 


32004040 






062 9 





0000 


M0D4 


DC 


*-* 


* 


ODD 


32D03370 


066 B 





0014 


KLP13 


DC 


LP13 


AVERAGING CONSTANT RTN 13 


32D04050 






062A 





0000 


M0D5 


OC 


*-* 


* 


EVEN 


32D03380 


066C 





0000 0001 


TIMCN 


DEC 


I 


LJOP ADOENO RTN 13 


EVEN 


32D04060 






062B 





0000 


M0D6 


DC 


*-* 


* 


ODD 


32D03390 


066E 





0000 


TIMSL 


DC 


*-* 


RTN 13 LOOP (NSECI 




32D04070 






062C 





0000 


M007 


DC 


*-# 


* 


EVEN 


32003400 








* 










32D04080 






062D 





0000 


BNTMP 


DC 


*-* 


TEMP STORAGE 


ODD 


32D03410 


066F 





019A 


ADIL2 


DC 


IL2 


INTERRUPT ADDRESS 




32004090 




DATE 


25JUN71 15DEC71 
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0670 


1 


05F8 




AOINT 


DC 




INTR 


ADDRESS OF INTERRUPT RTN 


32D04100 


0671 


1 


0AB6 




ADIN2 


DC 




INT2 


INTRPT ADRS TIME RTN 


32D04U0 


0672 


1 


069C 




AOCMA 


DC 




COMA 


ADRS OF COMA 


32D04120 


0673 


1 


083C 




ADPCN 


DC 




PRECN 


ADRS PRE CNTL RTN 


32D04130 


0674 





0000 




CKLK 


DC 




*-* 


ENTRY TO CK LOCK OPTION 


32D04140 


0675 


1 


4C00 


OCOD 


* 


BSC 


L 


CKLKE 


* RTN 


32D04150 
32D04160 


0677 





0000 




CKPRT 


DC 




*-* 


CHECK PRINT-ALL-ERRORS OPT 


32004170 


0678 


1 


4 COO 


OCEB 


* 


BSC 


L 


CKPRE 


ENTRY POINT 


32D04180 
32D04190 


067A 





0000 




CNTLE 


DC 




*-* 


BRANCH TO CONTROL 


32D04200 


067B 


1 


4C00 


088A 


* 


BSC 


L 


CNTL 


* ROUTINE 


32D04210 
32D04220 


067D 





0000 




COUNT 


DC 




*-* 


ENTRY TO INCR SUMMARY 


32D04230 


067E 


1 


4C00 


0D34 


* 


BSC 


L 


COUNE 


* COUNT RTN 


32D04240 
32004250 


0680 





0000 




READ 


DC 




*-* 


ENTRY TO DISK READ 


32004260 


0681 


1 


4C00 


0BC1 


* 


BSC 


L 


RDEN 


* RTN 


32004270 
32D04280 


0683 





0000 




RNDOM 


DC 




*-* 


ENTRY TO GENERATE 


32D04290 


0684 


1 


4C00 


0CD7 


* 


BSC 


L 


RNDME 


* RANDOM NUM8ER RTN 


32004300 
32004310 


0686 





0000 




SETV 


DC 




*-* 


ENTRY TO SET I/O AREA 


32D04320 


0687 


I 


4C00 


0CF5 


* 


BSC 


L 


SETVE 


* RTN 


32D04330 
32D04340 


0689 





0000 




STMLS 


DC 




*-* 


ENTRY TO SAVE INOEXING 


32004350 


068A 


1 


4C00 


0B06 


* 


BSC 


L 


STMLE 


* AND EXIT TO MONITOR 


32D04360 
32D04370 


068C 





0000 




STMSG 


DC 




*-* 


ENTRY TO SET UP AND 


32D04380 


068D 


1 


4C00 


003D 


* 


BSC 


L 


STMSE 


* PRINT A MESSAGE 


32D04390 
32D04400 


068F 





0000 




TEX IT 


DC 




*-* 


ENTRY OF CALL 


32D04410 


0690 


1 


4C00 


OCFE 


* 


BSC 


L 


DFTXT 


TO TERMINATE OFT 


32D04420 
32004430 


0692 





0000 




VERFY 


DC 




*-* 


ENTRY TO SEEK A CYL AND 


32D04440 


0693 


1 


4C00 


0B15 


* 


BSC 


L 


VRFYE 


* VERIFY THE SEEK 


32D04450 
3 2D04460 


0695 





0000 




WRITE 


DC 




*-* 


ENTRY TO WRITE DATA 


32D04470 


0696 


1 


4C00 


OCAB 


* 


BSC 


L 


WRTEN 


* ON THE DISK 


32004480 
32004490 


0698 





0000 




XEQ 


OC 




*-* 


ENTRY TO EXECUTE AN 


32D04500 


0699 


1 


4C00 


OACF 


* 


BSC 


L 


XEQE 


* XIO INSTRUCTION 


32004510 
320 04520 










*««««««««««<««««««<«««««««« 


32D04530 










* 










32D04540 










*«««<«<<««««««««<««««««<«««<« 

* 


320 04550 
32D04560 
32D04570 










* 










069C 




0176 




COMA 


BSS 


E 


374 


THIS SETS '3DCYL' EVEN 


32004580 


080A 









BOCYL 

* 


EQU 




COMA+366 


USED IN VERFY ONLY 


32D04590 
32004600 










* 


— 


— — 





— — 


32D04610 










*«««<««««««««««««««<««<«««<« 


32D04620 










* 










32D04630 










* 






INITIALIZATION ROUTINE 


32D04640 










* 










32D04650 










*<««<<«««««««««<«««««««««<«<« 


32D04660 










* 










32D04670 










* 




CLEAR SUMMARY 


TABLE 


32D04680 










* 










32004690 


0812 





630C 




ZIPA 


LDX 


3 


SMLNG 


LENGTH OF SUMMARY TABLE 


32D04700 


0813 





1010 






SLA 




16 


CLEAR A REGISTER 


32D04710 


0814 


1 


D700 


0646 


ZIPL 


STO 


L3 


SUMRY-1 


CLEAR SUMMARY TABLE 


32DO4720 


0816 





7 3FF 






MDX 


3 


-1 


DECR POINTER 


32D04730 


0817 





70FC 




* 


8 




ZIPL 


LOOP 


32D04740 
32D04750 


0818 


1 


6600 


065C 




LDX 


L2 


TB 


SET UP TABLE POINTER 


32D04760 


081A 





C285 






LD 


2 


SW2-TB 


GET SW FNC TWO 


32D04770 



081B 





100C 




081C 





180C 




0810 





6310 




081E 





1340 




081F 


1 


C700 


05E9 


0821 





D29B 




0822 


1 


6F00 


0626 


0824 





C213 




0825 





92CA 




0826 


1 


0400 


0A01 



SLA 

SRA 

LDX 

SLCA 

LD 

STO 

STX 

LD 

S 

STO 



12 
12 

3 16 

3 
L3 DVAS 

2 DVA-TB 
L3 FILE# 

2 ADIL2-TB 

2 FILE#-TB 
L XEQA+l 



CLEAR BITS 0-11 
** 

SET INITIAL COUNT 
CREATE DRIVE NUMBER 
GET CORRECT AREA CODE 
SET IN DEV. AREA CODE 
FOR PRINTOUTS 
GET AODRESS OF IL2 
CREATE INTERRUPT ENTRY 
SET FOR XIO RTN 



*«««««<«««««««<«««««<«««««<« 



LOOP PROGRAM ENTRY 



0828 1 6600 065C 
082A C283 
082B 1 4C04 0839 
082D C217 
082E D28A 
082F D282 

0830 D240 

0831 1010 

0832 D281 

0833 02F6 



0834 C29B 

0835 EAB7 

0836 D2BF 

0837 EADA 

0838 D2BB 

0839 4480 0161 



*««««««««««««««««««<«««««<« 



ZLPA 



LDX 

LD 

BOD 

LC 

STO 

STO 

STO 

SLA 

STO 

STO 



LO 

OR 

STO 

OR 

STO 

BSI 



L2 TB POINTER TO TABLE 

2 SWO-TB GET FNC SW 00 

ZLPB BRANCH # BIT 15 SET 

2 ADPCN-TB GET ADDRESS OF PRE-CONTROL 



MLSCF*l-TB SET IN MLSCF 

RAD-TB SET FOR MESSAGES AND ERROR 

COMA-TB MAKE COMA NON-ZERO FOR XEQ 

16 CLEAR REGISTER 

RIO-TB CLEAR RID 

PRSW-TB CLEAR NO-PRINT SWITCH 



CREATE IOCC'S FOR SENSE DEVICE 



2 DVA-TB 
2 SNRES-TB 



GET AREA CODE OF SEL. 
CQBINE WITH SNS IOCC 



DEV. 



2 SNXIO+1-TB SET FOR SENSING 



2 Kl-TB SET RESET MODIFIER BIT 

2 ZSNS+1-TB SET FOR INTRPT SNS 
ZLPB BSI I START GO TO MONITOR 

* 

PRE-CONTROL ROUTINE 



THIS 'ROUTINE' TESTS FOR SEQUENTIAL 
SECTOR COUNTS IN THE DSW, ISSUES A SEEK 
TOWARD HOME OF 202 CYLINDERS TO ASSURE 
THAT THE ARM IS HOME AFTER WHICH THE 
HOME BIT (BIT 4) IS TESTED FOR ON. 

CALLS ON THE 'VERFY' ROUTINE TO MAKE 
SURE THE ARM IS AT HOME. 

READS THE CE HISTORY TRACK ON CYLINDER 
199 SECTOR 6 AND SETS UP THE BAD CYL- 
INDER TABLE. 



*«««««<«««««««««««««<«<«««<« 



083B CEOC 

083C 1 6600 065C 
083E 4230 
083F 5A00 

0840 C2B0 

0841 1890 

0842 D202 

0843 C2E6 

0844 DABC 

0845 423C 



HCEDC OC 

PRECN LDX 
BSI 
DC 
LD 
SRT 
STO 
LO 
STD 
BSI 



/CEDC CE DISK PACK 

L2 TB 1X2 = TABLE POINTER 

2 STMSG-TB PRINT '2310 OFT START' 

/5A00 FORM/MESSAGE ID 

2 XSKBK-TB GET SEEK-TOWARD-HOME IOCC 

16 PUT IN Q REGISTER 

2 PCYL#-TB SET CYL POINTER 

2 K203-TB SEEK OUT 203 CYLINDERS 

2 ZXIO-TB SET FOR XEQ RTN 

2 XEQ-TB EXECUTE IOCC IN ZXIO 
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0846 





6132 






LDX 


1 


50 


LOOP COUNTER 


32D05460 


0881 





E2DC 






AND 


2 


K3-TB 


* COUNTS AS IN 1X3 




32D06140 






0847 





1010 




PRECA 


SLA 




16 


CLEAR A REG. 


32D05470 


0882 


1 


4C98 


087A 


PRECM 


BZ 


I 


PRECJ 






32006150 






0848 





D240 






STO 


2 


COMA-TB 


SET FLAG FOR NOT EXECUTE 


32D05480 


0384 


1 


74FF 


0666 




MDX 


L 


ZCNT.-l 


ELSE COUNT TIME 




32006160 






0849 





423C 






BSI 


2 


XEQ-TB 


GO TO CHECK FOR READY 


32D05490 


0886 





70F7 






MOX 




PRECL 


LOOP IF NOT TIMEOUT 




32006170 






084A 





63FC 






LDX 


3 


-4 


SET COUNTER AND SECTORS 


32D05500 


0887 





1010 






SLA 




16 


CLEAR A REGISTER 




32006130 






0848 





402E 




PRECB 


BSI 




PRECJ 


GO WAIT FOR SECTOR 


32D05510 


88 8 





DOFO 






STO 




PRECT 


SET SECTOR TO ZERO 




32006190 






084C 





C02C 






LD 




PRECT 


GET SECTOR JUST TESTED 


32D05520 


0889 





70F8 






B 




PRECM 


RETURN 




32006200 






084D 





E2DC 






AND 


2 


K3-TB 


* 


32D05530 










*««<<««««««<««««««<«««««««<<« 


32006210 






084E 





100C 






SLA 




12 


SAVE HEX DIGIT IN Q REG. 


32D05540 










* 












32D06220 






084F 





18DC 






RTE 




28 


* 


32D05550 










* 






CONTROL ROUTINE 




32D06230 






0850 





7301 






MOX 


3 


1 


COUNT NUMBER SECTORS 


32005560 










* 












32006240 






0851 





70F9 






B 




PRECB 


LOOP 


32D05570 










* 


THIS 


ROUTINE SELECTS A TEST ROUTINE AND 




32006250 














* 




1 






32D05580 










* 


BRANCHES CONTROL 


TO IT. 




32006260 






0852 





1090 






SLT 




16 


GET FOUR SECTORS 


32D05590 










* 












32D06270 






0853 





D2CC 






STO 


2 


M0D3-TB 


SAVE IN CASE PRINT 


32D05600 










* 


WHEN 


ALL ROUTINES 


ARE COMPLETE THIS ROUTINE 




32006280 






0854 





F2B3 






EOR 


2 


MASK-TB 


TEST FOR /0123 


32D05610 










* 


BRANCHES TO MONITOR END ROUTINE. 




32D06290 






0855 


1 


4C18 


085A 




BZ 




PRECD 




32D05620 










* 












32D06300 






0857 





4230 






BSI 


2 


STMSG-TB 


ELSE PRINT ERROR MESSAGE 


32D05630 










*«««««<««««««««««<««<«««<<«<« 


32006310 






0858 





9E13 






DC 




/9E13 


SECTOR COUNTER BAD 


32D05640 


0032 









LPCNT 


EQU 




50 


ROUTINE LOOP COUNT 




32D06320 






0859 





4233 






BSI 


2 


TEXIT-TB 


TERMINATE OFT 


32005650 


088A 


1 


6600 


065C 


CNTL 


LDX 


L2 


TB 


1X2 = TABLE ADDRESS 




32006330 






085A 





71FF 




PRECD 


MDX 


1 


-1 


LOOP COUNT DECREMENTED 


32005660 


088C 





C283 






LD 


2 


SWO-TB 


GET SW FNC 




32D06340 






085B 





7 0EB 




* 


B 




PRECA 


LOOP 


32005670 
32D05680 


088D 
088F 


1 




4C04 
C284 


OCFE 




BOD 
LD 


2 


OFTXT 
SWl-TB 


BRANCH * TERM OFT SW ON 
GET SW FNC 1 




32D06350 
32D06360 














* 


LGOP 


IS 


FINISHED 




32D0 5690 


0890 


1 


4C20 


08A7 




BNZ 




CNTLD 


BRANCH IF NO RTN SELECTED 


32D06370 














* 










32D05700 










* 












32D06380 






085C 





4236 




PRECE 


BSI 


2 


VERFY-TB 


GO VERIFY ARM AT HOME 


32D05710 


0892 





C281 






LD 


2 


RIO-TB 


GET RTN ID 




32006390 






085D 





0000 






DC 







CYLINDER ZERO 


32D05720 


0893 





82DA 






A 


2 


Kl-TB 


ADD 1 




32006400 






085E 


1 


OCFE 






DC 




DFTXT 


ERROR RETURN ADDRESS 


32D05730 


0894 





D281 






STO 


2 


RID-TB 


SAVE 




32006410 






085F 





4236 






BSI 


2 


VERFY-TB 


GO TU CYLINDER 199 


32D05740 


0895 





9018 






S 




RTTBL 


CK FOR VALID 




32006420 






0860 





00C7 






DC 




199 


* CE HISTORY TRACK 


32D05750 


0896 


1 


4C10 


0D03 




BNN 




PRSUM 


BRANCH IF COMPLETE 




32D06430 






0861 


1 


OCFE 






DC 




DFTXT 


ERROR RETURN ADDRESS 


32D05760 










* 












32006440 














* 










32005770 


0898 


1 


6580 


05DD 


CNTLB 


LDX 


11 


RID 


IX EJUAL RTN 10 




32D06450 






0862 





C2DC 






LD 


2 


K3-TB 


GET 3 


32005780 


089A 


1 


C500 


08AE 




LD 


LI 


RTTBL 


GET RTN ADRS 




32006460 






0863 


1 


4400 


8680 




BSI 


L 


READ+/8000 READ SECTOR 3 


32D05790 










* 












32D06470 






0865 





001B 




* 


DC 




27 


READ 27 WORDS 


32005800 
32D05810 


089C 
089D 






0282 
6132 






STO 
LDX 


2 

1 


RAD-TB 
LPCNT 


SAVE RTN ADRS 
SET LOOP COUNT 




32D06480 
32D06490 






0866 





C242 






LD 


2 


C0MA+2-TB 


i GET WORD 2 


32D05820 


089E 





1010 






SLA 




16 


CLEAR ROUTINE ERROR Sw 




32006500 






0867 





F0D3 






EOR 




HCEDC 


CMP WITH S/B 


32D05830 


089F 





020B 






STO 


2 


RTNER-TB 


* 




32D06510 






0868 


1 


4C18 


086D 




BZ 




PRECG 


BRANCH IF OK 


32D05840 


08A0 


I 


4C80 


050E 




B 


I 


RAD 


BRANCH TO TEST RTN 




32D06520 






086A 





4230 






BSI 


2 


STMSG-TB 


ELSE PRINT MESSAGE 


32D05850 










# 












32D06530 






086B 





5A01 






DC 




/5A01 


NOT INITIALIZED DISK 


32D05860 










* 


LCOP 


ON 


ERROR RETURN 




32006540 






086C 





4233 






BSI 


2 


TEXIT-TB 


TERMINATE OFT 


32005870 










* 












32D06550 






086D 


1 


6780 


069F 


PRECG 


LDX 


13 


C0MA63 


NO BAD SECTORS-NOT CYLS 


32D05880 


08A2 


1 


6600 


065C 


PRLP 


LDX 


L2 


TB 


LOAD XR 2 WITH TABLE ADRS 


32D06560 






86F 


1 


6 500 


05F0 




LDX 


LI 


BADCY 


ADRS OF BAD CYL TABLE 


32D05890 


08A4 





C281 






LD 


2 


RID-TB 


GET PRESENT RTN NUMBER 




32D06570 














* 










32005900 


08A5 


1 


4C18 


083C 




BZ 




PRECN 


IF ZERO, GO TO PRE-CONTROL 


32D06580 






0871 


1 


C700 


069E 


PRECF 


LD 


L3 


C0MAS2 


GET BAD SECTOR NO. 


32D05910 


08A7 





D281 




CNTLD 


STO 


2 


RID-TB 


SET IN RTN ID 




32006590 






0873 





1883 






SRT 




3 


RIGHT JUSTIFY 


32D05920 


08A8 





9013 






S 




SPRTN 






32D06600 






0874 





D100 






STO 


1 





STORE IN BAD CYL TABLE 


32D05930 


08A9 


1 


4C28 


0898 




BN 




CNTLB 


BRANCH IF SPECIAL RTN 




32006610 






0875 





7101 






MDX 


1 


1 


INCR POINTER 


32D05940 


08AB 





4230 






BSI 


2 


STMSG-TB 


ELSE P*INT MESSAGE 




32006620 






0876 





73F8 






MOX 


3 


-8 


DECR SECTOR COUNTER 


32D05950 


08AC 





5A02 






DC 




/5A02 


INVALID RTN SELECTED 




32D06630 






0877 





70F9 






B 




PRECF 


LOOP 


32D05960 


08AD 





4233 






BSI 


2 


TEXIT-TB 


TERMINATE OFT 




32006640 






0878 





7011 






MDX 




CNTL 


GO TO CONTROL ROUTINE 


32D0 59 70 










* 












32006650 














* 










32D05930 










* 






ROUTINE ADDRESS TABLE 




32D06660 














* 










32D05990 










* 












32D06670 














« 










32006000 


08AE 





OOOD 




RTTBL 


DC 




LRTN-RTTBL LENGTH OF RTN ADRS TABLE 


32D06680 














* 


WAITS FOR SECTOR 


COUNT IN OSW 


32D06010 


08AF 


1 


08BD 






DC 




RTN1 


ADDRESS OF TEST ROUTINE 


1 


32D06690 














* 


SECTOR COUNT IS LOW ORDER TWO BITS OF 


32D06020 


08B0 


1 


08F1 






DC 




RTN2 


. 


2 


32006700 














* 


INDEX 


REGISTER 


THREE 


32006030 


08B1 


1 


0914 






DC 




RTN3 




3 


32006710 














* 










32006040 


08B2 


1 


0925 






DC 




RTN4 




4 


32D06720 






0879 





0000 




PRECT 
* 


DC 







TEMPORARY STORAGE 


32D06050 
32006060 


08B3 
0884 


1 
1 


092C 
0932 






OC 
DC 




RTN5 
RTN6 




5 

6 


320 06730 
32D06740 






087 A 





0000 




PRECJ 


DC 




*-* 


SUBROUTINE ENTRY POINT 


32D06070 


08B5 


1 


0934 






DC 




RTN7 




7 


32D06750 






0878 





6BFD 






STX 


3 


PRECT 


SAVE SECTOR COUNT WORD 


32006080 


08B6 


1 


0963 






DC 




RTN8 




8 


32D06760 






087C 





C2EA 






LD 


2 


K10TH-TB 


SET TIMEOUT COUNTER 


32D06090 


08B7 


1 


098B 






DC 




RTN9 




9 


32D06770 






087D 





D20A 






STO 


2 


ZCNT-TB 


SAVE TIMEOUT COUNT 


32006100 


08B8 


1 


0991 






DC 




RTN10 




10 


32D06780 






087E 





OABE 




PRECL 


X 10 


2 


SNXIO-TB 


SENSE DSW 


32D06110 


08B9 


1 


09D4 






DC 




RTN11 




11 


32D06790 






087F 





D2CB 






STO 


2 


TBDSW-TB 


SET IN CASE PRINT 


32006120 


08BA 


1 


09EA 






OC 




RTN12 




12 


32006800 






0880 





F0F8 






ECR 




PRECT 


LOOK FOR SAME SECTOR 


32006130 


08BB 









LRTN 


EQU 




* 


END OF RTN TABLE 




32006810 




DATE 


25JUN71 15DEC71 
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* 


SPECIAL 


RTN TABLE 




32D06820 


08BB 


1 


0A44 






DC 




RTN13 


13 


32006830 


8BC 





OOOE 




SPRTN 


DC 




SPRTN-RTTBL 


32D06840 
32D06850 
32D06860 
32D06870 






















*«««<««<«<<««<«««<«««««««<««<« 










* 










32D06880 










* 






TEST 


ROUTINE ONE 


32D06890 










* 










32D06900 










*««««<««««««««<«««««««««<«<« 


32D06910 










* 










32D06920 


08B0 





6114 




RTN1 


LDX 


1 


20 


LOOP COUNTER 


32D06930 


08BE 





4236 






BSI 


2 


VERFY-TB 


SEEK CYLINDER ZERO 


32006940 


08BF 





0000 






OC 







CYL INDER NUMBER 


32D06950 


08C0 


1 


08C1 




* 


DC 




RTN1A 


ERROR RETURN ADDRESS 


32006960 
32006970 


08C1 





6922 




RTN1A 


STX 


1 


RTN1E+1 


SAVE ROUTINE LOOP COUNTER 


32D06980 


08C2 





C20A 






LD 


2 


Kl-TB 


INITIAL WORD COUNT 


32D06990 


08C3 





D006 




* 


STO 




WOCNT 


SET FOR CALL ON READ RTN 


32D07000 
32D07010 


08C4 





61F8 




RTNIB 

* 


LDX 


1 


-8 


READ EIGHT SECTORS 


32D07020 
32D07030 


08C5 





6922 




RTN1C 


STX 


I 


SCTOR 


SET FOR MASK 


32D 07040 


08C6 





C021 






LD 




SCTOR 


GET PRESENT SECTOR 


32D07050 


08C7 





E20E 






AND 


2 


K7-TB 


SAVE BITS 13-15 


32D07060 


08C8 


1 


4400 


8680 




BSI 


L 


READ+/800C 


I READ WITHOUT CHECKING DATA 


32D07070 


08CA 





0001 




WOCNT 


OC 




1 


WORD COUNT 


32D07080 


08CB 





C2BA 






LD 


2 


ZSNS-TB 


GET INTERRUPT DSW 


32D07090 


08CC 


1 


4C2 8 


08D0 




BN 




RTN1D 


BRANCH IF ERROR INDICATED 


32D07100 


08CE 





7101 






MDX 


1 


1 


ELSE READ NEXT SECTOR 


32007110 


08CF 





70F5 




* 


B 




RTN1C 


LOOP 


32D07120 
32D07130 


08D0 


1 


C500 


08F0 


RTN1D 


LD 


LI 


STORG+7 


GET DATA LAST READ 


32D07140 


0802 





020C 






STO 


2 


CMPTM-TB 


SET FOR COMPARE 


32D07150 


08D3 


1 


4400 


0C21 




BSI 


L 


CMP 


GO COMPARE 


32D07160 


0805 





1000 






NOP 







ERROR RETURN 


32D07170 


08D6 





C0F3 






LD 




WOCNT 


GET LAST WORD COUNT 


32D07180 


08D7 





1001 






SLA 




1 


DOUBLE WORD COUNT 


32D07190 


08D8 





D0F1 






STO 




WOCNT 


SET FOR NEXT READ 


32D07200 


08D9 





1006 






SLA 




6 


TEST FOR GREATER THAN 256 


32D07210 


08DA 


1 


4C30 


08C4 




BP 




RTNIB 


BRANCH IF NOT 


32D07220 


80C 





1001 






SLA 




1 


SHIFT LEFT 


32D07230 


08DD 


I 


4C30 


8E3 




BP 




RTN1E 


BRANCH IF WORD CNT = 321 


32D07240 


08DF 





6700 


0141 




LDX 


L3 


321 


ELSE SET MAX WORD COUNT 


32007250 


08E1 





6BE8 






STX 


3 


WOCNT 


SET FOR CALL 


32D07260 


08E2 





70E1 




* 


3 




RTNIB 


GO DO IT 


32D07270 
32D07280 


08E3 





6500 


0000 


RTN1E 


LDX 


LI 


*-* 


GET RTN LOOP COUNTER 


3 2D 07 290 


08E5 





71FF 






MOX 


1 


-I 


DECREMENT COUNT 


3 20 07 300 


08E6 





70DA 






B 




RTN1A 


LOOP 


32D07310 


08E7 





421E 




* 


BSI 


2 


CNTLE-TB 


TERMINATE RTN 


32D07320 
32D07330 


08E8 





FFF8 




SCTOR 


OC 




-8 


SECTOR POINTER 


32D07340 
32D07350 


08E9 





1313 




STORG 


DC 




/1313 


SEQUENTIAL SECTOR DATA 


32D07360 


08EA 





E5E5 






DC 




/E5E5 


* 


32D07370 


08EB 





1313 






DC 




/1313 


* 


32D07380 


08EC 





E5E5 






OC 




/E5E5 


* 


32D07390 


08E0 





E5E5 






DC 




/E5E5 


* 


32D07400 


08EE 





1313 






OC 




/1313 


* 


32D07410 


08EF 





E5E5 






DC 




/E5E5 


* 


32007420 


08F0 





1313 




* 


DC 




/1313 


* 


32D 07430 
32D07440 










*«««««<««««««««««««««««««<« 


32D07450 










* 










32D07460 










* 






TEST 


ROUTINE TWO 


32D07470 










* 










32D07480 










♦ 


THIS 


ROUTINE HILL 


SEEK 2 IN ANO 1 OUT FROM 


32007490 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



PROG ID 

PAGE 



032D-0 
6 



DATE 
EC NO. 









* 


CYLINDER ZERO TO CYLINOER 202 EXCEPT 


32D07500 










* 


CYLINDERS 90-110. 


THE ROUTINE WILL THEN 


32D07510 










* 


SEEK 


2 OUT ANO I ; 


IN FROM CYLINDER 232 TO 


32007520 










* 


CYLINDER ZERO. EACH SEEK IS VERFIED FOR 


32D07530 










* 


PROPER CYLINDER REACHED. 


32007540 










* 










32D07550 










*«««««<««««««««<«««««««<««<« 


32D07560 




08F1 





63FF 


RTN2 


LOX 


3 


-I 


DECR SEEKS BY ONE 


32D07570 




08F2 





6BIF 




STX 


3 


INCR1 


* 


32007580 




08F3 





6302 




LDX 


3 


2 


INCR SEEKS BY TWO 


32D07590 




08F4 





6B1E 




STX 


3 


INCR2 


* 


32D07600 




08F5 





C2DA 




LD 


2 


Kl-TB 


FIRST CYL. WILL BE HOME 


32D07610 




08F6 





4007 


* 


BSI 




RTN2P 


EXECUTE SUCCESSIVE SEEKS 


32D07620 
32D07630 




08F7 





63FE 




LDX 


3 


-2 


OECR SEEKS BY TWO 


32D07640 




08F8 





6B19 




STX 


3 


INCRl 


* 


32D07650 




08F9 





6301 




LDX 


3 


1 


INCR SEEKS BY ONE 


32D07660 




08FA 





6B18 




STX 


3 


INCR2 


* 


32D07670 




08FB 





C2E6 




LD 


2 


K203-TB 


INI. CYL. + I 


32D07680 




08FC 





4001 




BSI 




RTN2P 


EXECUTE SUCCESSIVE SEEKS 


32D07690 




08FD 





421E 


* 


BSI 


2 


CNTLE-TB 


EXIT ROUTINE 


32D07700 
32D07710 




08FE 





0000 


RTN2P 


DC 




*-* 


ENTRY POINT 


32D07720 




08FF 





OOOC 




STO 




RTN2T 


STOR FOR CALL 


32007730 




0900 





6500 OOCA 


* 


LDX 


LI 


202 


NO. IF SEEKS 


32D07740 
32D07750 




0902 





C009 


RTN2Q 


LC 




RTN2T 


GET CYL. NO. 


32D07760 




0903 





800E 




A 




INCRl 


INCR OR OECR 


32D07770 




0904 





DOOl 




STO 




RTN2R 


STORE FOR SEEK 


32D07780 




0905 





4236 




BSI 


2 


VERFY-TB 


SEEK CYL. AND VERIFY 


32007790 




0906 





0000 


RTN2R 


OC 




*-* 


CYLINDER NO. 


32D07800 




0907 


1 


0908 




DC 




RTN2S 


ADRS ERROR RETURN 


32D07810 




0908 





COFD 


RTN2S 


LD 




RTN2R 


GET LAST CYL. NO. 


32007820 




0909 





8009 




A 




INCR2 


INCR OR DECR 


32D07830 




090A 





DOOl 




STO 




RTN2T 


STORE FOR SEEK 


32D07840 




090B 





4236 




BSI 


2 


VERFY-TB 


CALL VERFY ROUTINE 


32D07850 




090C 





0000 


RTN2T 


OC 




*-* 


CYLINDER OESIRED 


32007860 




090D 


1 


090E 




DC 




RTN2U 


INVALID ADRS RETURN 


32D07870 




090E 





71FF 


RTN2U 


MDX 


1 


-1 


DECR COUNTER 


32D07880 




090F 





70F2 




B 




RTN2Q 


NOT FINISHED 


32007890 




0910 


1 


4C80 08FE 


* 


B 


I 


RTN2P 


RETURN 


32D07900 
32D07910 




0912 





0000 


INCR1 


DC 









32D07920 




0913 





0000 


INCR2 


DC 









32D07930 
32D07940 
32007950 










* 




















*«««««««<««««««««<<«<<<««<«««< 


32D 07960 










* 










32D07970 










* 






TEST 


ROUTINE THREE 


32D07980 










* 










32D07990 










* 


THIS 


ROUTINE WILL 


ISSUE ANO VERFY 100 RANDOM 


32008000 










* 


SEEKS. 


CYLINDERS 


90-110 WILL NEVER BE 


32D08010 










* 


ATTEMPTED. 




32D08020 










* 










32D08030 










*«««««<««««««««««<«««««<««<« 


32008040 




0914 





7132 


RTN3 


MDX 


1 


100-LPCNT 


100 LOOPS 


32D08050 




0915 





C292 




LD 


2 


RNDSK-TB 


GET RNDM SEEK SWITCH 


32D08060 




0916 





4818 




SKP 




*- 


USE AS FIRST IF NOT ZERO 


32D08070 




0917 





C2FB 




LD 


2 


PRNSK-TB 


ELSE USE LAST GENERATED 


32D08080 




0918 





D2F7 




STO 


2 


FRNSK-TB 


FIRST RAMOOM NUMBER 


32008090 




0919 





7002 


* 


B 




RTN3B 


* 


32D08100 
32D08110 




091A 





C2F8 


RTN3A 


LD 


2 


PRNSK-TB 


GET LAST RNDM NUMBER 


32008120 




091B 





4227 


* 


BSI 


2 


RNOOM-TB 


GENERATE NEXT 


32008130 
32D08140 




091C 





D2F8 


RTN3B 


STO 


2 


PRNSK-TB 


SAVE 


32D08150 




091D 





1808 




SRA 




8 


* FROM 0-202 


32D08160 




091E 





DOOl 




STO 




RTN3C 


STORE FOR SEEK 


32D08170 




25JUN71 150EC71 












PROG ID 


0320-0 


571152 571154 












PAGE 


6A. 
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091F 4236 

0920 0000 

0921 1 091A 

0922 71FF 

0923 70F6 

0924 421E 



0925 





6301 


0926 





6100 


0927 





C2B2 


0928 





6200 


0929 





69F6 


092A 





6132 


092B 





700B 



092C 6 700 00C9 

092E 6100 

092F C2C4 

0930 6206 

0931 70F7 



0932 6302 

0933 70F3 



0934 6700 OOCA 
0936 70F8 



0937 6B07 

0938 6A75 

0939 OOOF 
093A D015 



RTN3C 



* 
* — 



SI 
C 

c 

DX 
SI 



2 VERFY-TB 
*-* 
RTN3A 

1 -1 
RTN3A 

2 CNTLE-TB 



SEEK AND VERIFY CYL. 

CYL. DESIRED 

IF INVALID, DON'T COUNT 

ELSE COUNT 

LOOP 

END OF RTN 



CMN2 



CMN1 



* 

* 
* 
* 

RTN4 L 
L 

L 
L 
S 

L 
B 

* 
* 
* 
* 

* 

RTN5 L 
L 

CMN3 L 

L 
M 

* 
* 
* 
* 

RTN6 L 
B 

* 
* 
* 

* 

* 

RTN7 L 

3 
* 



TEST ROUTINE FOUR 
READ AND CHECK 320 WORDS OF 
HEX 1313 FROM CYL 1-SECTOR 

DX 3 1 IX EQUAL CYL 

DX 1 IX EQUAL WRITE SW 

2 H1313-TB GET DATA EXPECTED 

DX 2 IX EQUAL SECTOR 

TX I RTN3C SET RTN VALUES 

DX 1 LPCNT IX EQUAL LOOP CTR 

CMRT2 BRANCH TO COMMON RTN 

TEST ROUTINE FIVE 
READ AND CHECK 320 WORDS OF 
HEX E5E5 FROM CYL 201-SECTOR 6 

DX L3 201 IX EQUAL CYL 

DX I IX EQUAL WRT SW 

D 2 HE5E5-TB GET DATA EXPECTED 

DX 2 6 IX EQUAL SECTOR 

DX CMN1 BRANCH TO COMPLETE SETUP 

TEST ROUTINE SIX 
WRITE AND REAO 320 WORDS 
OF HEX 1313 ON CYL 2-SECT 
O-CHECK DATA REAO 

DX 3 2 IX EQUAL CYL 

CMN2 BRANCH TO COMPLETE SETUP 

TEST ROUTINE SEVEN 
WRITE AND READ 320 WOROS 
OF HEX E5E5 ON CYL 202- 
SECTOR 6-CHECK DATA REAO 

DX L3 202 IX EQUAL CYL 

CMN3 BRANCH TO COMPLETE SETUP 



THIS ROUTINE IS COMMON TO 
TEST ROUTINES 3, 4, 5, 6, AND 7 



* 

* 
* 

CMRT2 SI 

SI 
SI 
S' 



5TX 3 CYL 

>TX 2 SECTD 
iTO OATAl 
1T0 DATA2 



SET CYLINDER TU USE 

* 

SET DATA EXPECTED 

SET OATA EXPECTED 



V_ 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32D08180 
32D08190 
32D08200 
32D08210 
32D08220 
32D08230 
32D08240 
32D08250 
32008260 
32D08270 
32D08280 
32D08290 
32D08300 
32D08310 
32D08320 
32D083 30 
32D08340 
32D08350 
32D08360 
32008370 
32D08380 
32008390 
32008400 
32D08410 
32D08420 
32D08430 
32008440 
32D08450 
32D08460 
32D08470 
32008480 
32D08490 
32D08500 
32D08510 
32D08520 
32D08530 
32008540 
32D08550 
32D08560 
32D08570 
32D08580 
32D08590 
32D08600 
32D086 10 
32008620 
32D08630 
32D08640 
32D08650 
32D08660 
320086 70 
32008680 
32D08690 
32D08700 
32D08710 
32D08720 
32D08730 
- 32D08740 
32008750 
32D08760 
32D08770 
32D08780 
32D08790 
32D 08800 
32D08810 
32D08820 
32008830 
32D08840 
32D08850 
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DATE 
EC NO. 



093B D01B 




STO 


DATA3 


SET DATA EXPECTED 


32008860 




093C 1 6600 065C 




LDX 


L2 TB 


INDEX EQUAL TBL ADRS 


32008870 




093E 4236 




BSI 


2 VERFY-TB 


SEEK DESIRED CYL AND 


32D08880 




093F 0000 


CYL 


OC 


*-* 


* VERIFY THE SEEK 


32D08890 




0940 1 088A 




OC 


CNTL 


EXIT ON ERROR 


32008900 




0941 C28B 


CMRTL 


LD 


2 TERM-TB 


SET DATA EXPECTED 


32D08910 




0942 D241 




STO 


2 COMA+l-TB 


SET FOR COMPARE RTN 


32D08920 




0943 CODC 




LD 


RTN3C 


IS ROUTINE TO WRITE 


32D08930 




0944 1 4C18 0952 




BZ 


CMRTB 


BRANCH TO READ ONLY 


32D08940 




0946 C06 7 




LO 


SECTD 


GET SECTOR DESIRED 


3200 8950 




0947 4239 




BSI 


2 WRITE-TB 


GO WRITE DATA 


32D08960 




0948 0141 




OC 


321 


WORD COUNT 


32D08970 




0949 0000 


DATA1 


DC 


*-* 


DATA EXPECTED 


32008980 




094A 1 094B 




DC 


CMRTA 


ERROR EXIT ADDRESS 


32D08990 




094B C2DA 


CMRTA 


LD 


2 Kl-TB 


SET SW FOR NO PRINT 


32D09000 




094C D2F6 




STO 


2 PRSW-TB 


* 


32D09010 




94D C060 




LD 


SECTD 


GET OESIREO SECTOR 


32009020 




094E 4224 




BSI 


2 READ-TB 


GO READ WITHOUT ERR PRINTS 


32D09030 




094F 0141 




DC 


321 


WORD COUNT 


32D09040 




0950 0000 


DATA2 


OC 


*-* 


EXPECTEJ OATA 


32D09050 




0951 1 095C 


* 


DC 


CMRTG 


ERROR ADDRESS 


32D09060 
32009070 




0952 1010 


CMRTB 


SLA 


16 


CLEAR NO-PRINT SWITCH 


32D09080 




0953 D2F6 




STO 


2 PRSW-TB 


* 


32D09090 




0954 C059 




LD 


SECTD 


GET DESIRED SECTOR 


32D09100 




0955 4224 




BSI 


2 READ-TB 


GO REAO OATA 


32D09110 




0956 0141 




DC 


321 


WORD COUNT 


32009120 




0957 0000 


DATA3 


DC 


*-♦ 


EXPECTEO DATA 


32009130 




0958 1 0959 


* 


OC 


CMRTD 


CMP ERROR ADDRESS 


32D09140 
32D09150 




0959 7 IFF 


CMRTD 


MOX 


I -1 


OECREMENT LOOP COUNT 


32D09160 




095A 70E6 




MDX 


CMRTL 


LOOP ROUTINE 


32009170 




95B 42 IE 


* 


BSI 


2 CNTLE-TB 


EXIT ROUTINE 


32D09180 
32D09190 




095C 1010 


CMRTG 


SLA 


16 


CLEAR NO-PRINT SWITCH 


32D09200 




095D D2F6 




STO 


2 PRSW-TB 


* 


32009210 




095E 6309 




LDX 


3 HRDWR-SUMRY COUNT WRITE ERROR 


32009220 




095F 4221 




BSI 


2 COUNT-TB 


COUNT ERROR 


32D09230 




0960 4230 




BSI 


2 STMSG-TB 


PRINT PROBABLE WRITE ERROR 


32D09240 




0961 5E0C 




DC 


/5E0C 


PROBABLE WRITE ERRRO 


32D09250 




0962 70EF 




MDX 


CMRTB 


GIVE PRINTOUTS OF ERRORS 


32D09260 






*««««<«<««<<<<«<«<<<«<<«<<<««<<<< 


32D09270 






* 








32009280 






* 




TEST 


ROUTINE EIGHT- 


32D09290 






* 




REAO 


CYL 1-SECT USING 


32D09300 






* 




READ 


CK-CK FOR ANY OSW 


32009310 






* 




ERRORS AND CK THAT NO 


32D09320 






* 




DATA 


IS TRANSFERRED TO 


32D09330 






* 




MEMORY. 


32D09340 






* 








32009350 






*«««<««<««««««««««««««««< 


32009360 




0963 4236 


RTN8 


8SI 


2 VERFY-TB 


SEEK CYL 1 - VERIFY 


32D09370 




0964 C 0001 




DC 


1 


* THE SEEK 


320 09380 




0965 1 088A 




DC 


CNTL 


EXIT IF ERROR 


32D09390 




0966 10A0 




SLT 


32 


CLEAR AQ 


32009400 




0967 DAD4 




STD 


2 ERSKl-TB 


CLEAR ERROR COUNTERS 


32D09410 






* 




* ERSK1 1 


i CNTB 


32D09420 






* 








32009430 




0968 C203 


RTN8L 


. LD 


2 NCYL#-TB 


GET CYL. SOUGHT 


32009440 




0969 1003 




SLA 


3 


CREATE PROPER SECTOR ID 


32D09450 




096A D241 




STO 


2 COMA+1-TB 


SET IN I/O AREA 


32D09460 




096B C2B6 




LD 


2 ROCHK-TB 


SET REAO CK MODIFIER 


32D09470 




096C 4224 




BSI 


2 READ-TB 


READ ROUTINE 


32D09480 




0960 0141 




DC 


321 


321 WORDS 


32D 09490 




096E FFFF 




DC 


/FFFF 


DATA EXPECTED 


32D09500 




096F 1 0988 




DC 


RTN8J 


CMP ERROR RETURN 


32D09510 




0970 C2BA 




LD 


2 ZSNS-TB 


GET INTRPT DSW 


32D09520 




0971 1 4C10 097A 




BNN 


RTN8A 


BRANCH ON ERROR 


32D09530 




25JUN71 15DEC71 
571152 571154 










PROG 10 
PAGE 


0320-0 
7A 
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0973 


1 


7401 


0630 




MDX 


L 


ERSKl.l 


INCR ERROR CNT 


0975 





421B 




KTN8M 


BSI 


2 


CKPRT-TB 


CK PRINT-ALL OPTION 


0976 





7001 






8 




RTN8N 


OPTION NOT SET 


097 7 





7002 






B 




RTN8A 


OPTION SET 


0978 





C2DA 




RTN8N 


LD 


2 


Kl-TB 


SET PRINT SW NON-ZERO 


0979 





D2F6 




♦ 


STO 


2 


PRSW-TB 




097A 





71FF 




RTN8A 


MOX 


1 


-1 


DECR RTN LOOP COUNT 


097B 





70EC 






MDX 




RTN8L 


LOOP 


097C 





1010 






SLA 




16 


CLEAR A REG. 


097D 





D2F6 






STO 


2 


PRSW-TB 


CLEAR PRINT SWITCH 


097E 





CABC 






LDD 


2 


ZXIO-TB 


GET IOCC LAST ISSUED 


097F 





DACC 






STD 


2 


M003-TB 


STORE IN CASE PRINT 


0980 





C2D5 






LD 


2 


CNTB-TB 


GET ERROR COUNT 


0981 





02CE 






STO 


2 


M0D5-TB 


SET FOR PRINT 


0982 





8 204 






A 


2 


ERSK1-TB 


ADD OTHER ERROR COUNT 


098 3 


1 


4C18 


088A 




BZ 




CNTL 


EXIT ROUTINE IF ZERO 


0985 





4230 






BSI 


2 


STMSG-TB 


PRINT MESSAGE 


0986 





6E12 






DC 




/6E12 


DATA XFERD IN READ CHECK 


0987 





421E 




* 


BSI 


2 


CNTLE-TB 


EXIT ROUTINE 


0988 


1 


7401 


0631 


* 
RTN8J 


MDX 


L 


CNTB.l 


INCR ERROR COUNT 


098A 





7 0EA 






MDX 




RTN8M 


LOOP 



098B 





4236 


098C 





0002 


0980 


1 


088A 


098E 





6300 


098F 





C2FA 


0990 





7005 



BSI 


2 VERFY-TB 


DC 


2 


DC 


CNTL 


LDX 


3 


LD 


2 LRN1-TB 


MDX 


RT910 





0996 





6B17 




RT910 


STX 


3 


SECTD 




0997 





4820 






SKP 




Z 




0998 





D039 






STO 




LSTNO 




0999 





C293 






LD 


2 


RNOWR-TB 




099A 





4818 






SKP 




£- 




099B 





C036 






LD 




LSTNO 




099C 





D03 6 






STO 




FSTNO 




099D 





C293 




RTN9L 


LD 


2 


RNDHR-TB 




099 E 





4820 






SKP 




Z 




099F 





D03 2 




# 


STO 




LSTNO 




09A0 





6700 


FECO 




LDX 


L3 


-320 




09A2 





C02F 






LD 




LSTNO 


DATE 


25JUN71 15DEC71 










EC NO. 


571152 571154 











* 

* ROUTINE NINE-WRITE 320 

* RANOOM WORDS-READ AND CK- 

* ON CYL 2-SECT 0. 
* 

RTN9 BSI 2 VERFY-TB SEEK CYL 2-VERIFY 

* THE SEEK 
TERMINATE ON ERROR 
IX EQUAL SECTOR 
GET BEGIN PATCH OPTION 
BRANCH TO COMMON 

* 

* ROUTINE TEN-WRITE 320 

* RANDOM WORDS-READ AND CK- 

* CYL 202-SECT 6. 

* 

SEEK CYL 202-VERIFY 

* THE SEEK 
TERMINATE ON ERROR 
GET BEGIN PATCH OPTION 
IX EQUAL SECTOR 6 

* THIS PORTION COMMON TO 

* ROUTINES NINE AND TEN. 

* 

SAVE SECTOR NUMBER 

SKIP IF ZERO 

SAVE BEGIN PATCH OPTION 

GET START OPTION 

SKIP IF NON ZERO 

CONTINUE PATTERN 

SET RTN FIRST NUMBER 

GET START OPTION 

SKIP IF ZERO 

SET AS LAST NUMBER 

NUMBER UF WORDS 
GET LAST NUMBER 



0991 4236 


RTN10 


BSI 


2 VERFY-TB 


0992 OOCA 




DC 


202 


0993 1 088A 




OC 


CNTL 


0994 C2FC 




LD 


2 LRN2-TB 


0995 6 306 




LDX 


3 6 



32D09540 

32D09550 

32D09560 

32D09570 

32D09580 

32D09590 

32D09600 

32D09610 

32D09620 

32D09630 

32D09640 

32D09650 

32009660 

32D09670 

32D09680 

32D09690 

32D09700 

32009710 

32009720 

32D09730 

32D09740 

32D09750 

32D09760 

32D09770 

32D09780 

32009790 

32D09800 

32D09810 

32D 09820 

32D09830 

32D09 840 

32D09850 

32D09860 

32D 09870 

32D09880 

32D09890 

32D 09900 

32009910 

32D09920 

3 2D 09930 

32D09940 

32D09950 

32D09960 

32D09970 

32D09980 

32D09990 

32D10000 

32D10010 

32D10020 

32D10030 

32D10040 

32D10050 

32D10060 

32D10070 

32D10080 

32D10090 

32D10100 

32D10110 

32D10120 

32D10130 

32D10140 

32D10150 

32D10160 

32D10170 

32D10180 

32D10190 

32D10200 

32D10210 



PROG ID 
PAGE 
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DATE 
EC NO. 



09A3 





D011 




STO 




RTN9C 




SET IN READ CALL 


32D10220 




09A4 





D017 


* 


STO 




RTN9E 




SET IN READ CALL 


32D10230 
32D10240 




09A5 


I 


D700 07DE 


RTN9A 


STO 


L3 


C0MA6322 


SET PATTERN 


32D10250 




09A7 





4227 




BSI 


2 


RNDOM- 


-TB 


GENERATE NEW NUMBER 


32D10260 




09A8 





7301 




MDX 


3 


1 




DECR WORD COUNT 


32D10270 




09A9 





70FB 




MDX 




RTN9A 




LOOP 


32010280 




09AA 





D027 


* 


STO 




LSTNO 




SET NEW LAST NUMBER 


32D10290 
32D10300 




09AB 





C002 




LD 




SECTD 




GET SECTOR NUMBER 


32D10310 




09AC 





4239 




BSI 


2 


WRITE- 


-TB 


WRITE DATA 


32D10320 




09AD 





8141 




DC 




321+/8000 NO. OF WORDS/DON'T PRESET 


32010330 










* 










* THE I/O AREA 


3 2D 10340 




09AE 





0000 


SECTD 


DC 




*-« 




SECTOR TO USE-0 OR 6 


32D10350 




09AF 


1 


0980 


* 


DC 




RTN9B 




ERROR RETURN 


32010360 
32D10370 




09B0 





C2DA 


RTN9B 


LD 


2 


Kl-TB 




SET NO-PRINT SWITCH 


32D10380 




09BI 





D2F6 




STO 


2 


PRSW-TB 


* 


32010390 




09B2 





C0F8 




LD 




SECTD 




GET DESIRED SECTOR 


32D10400 




09B3 





4224 




BSI 


2 


READ-TB 


READ W/0 ERROR PRINTOUTS 


32D10410 




09B4 





8141 




DC 




321+/8000 RANDOM DATA 


32D10420 




09B5 





0000 


RTN9C 


DC 




*-* 




FIRST DATA WORD EXPECTED 


32010430 




09B6 


1 


09C8 


* 


DC 




RTN9G 




ERROR ADDRESS RETURN 


32D10440 
32D10450 




0987 





1010 


RTN9D 


SLA 




16 




CLEAR NOPRINT SWITCH 


32D10460 




09B8 





D2F6 




STO 


2 


PRSW-TB 


* 


32D10470 




9B9 





C0F4 




LD 




SECTD 




GET OESIRED SECTOR 


32D10480 




09BA 





4224 




BSI 


2 


READ-TB 


READ DATA-COMPARE 


32D10490 




09BB 





8141 




DC 




321+/8000 WORD COUNT/RANDOM NUMBERS 


32D10500 




09BC 





0000 


RTN9E 


DC 




*-# 




FIRST OATA WORD EXPECTED 


32D10510 




09BD 


1 


09BE 


* 


DC 




RTN9F 




ERROR RETURN ADDRESS 


32D10520 
32D10530 




09BE 





71FF 


RTN9F 


MDX 


1 


-1 




DECREMENT LOOP COUNT 


32D10540 




09BF 





7 ODD 




MDX 




RTN9L 




LOOP-NEW PATTERN 


32D10550 




09C0 





C012 




LD 




FSTNO 




SET SUMMARY TA8LE 


32D10560 




09C1 


1 


6780 05DD 




LDX 


13 


RID 




IX EQUAL RTN NUMBER 


32D10570 




09C3 





73F7 




MDX 


3 


-9 




SKP IF RTN 9 


32D10580 




09C4 





7301 




MDX 


3 


1 




INDEX = 2 


32D10590 




09C5 


1 


D700 0655 




STO 


L3 


FRN1 




SAVE FIRST NUMBER USED 


32D10600 




09C7 





COOA 




LD 




LSTNO 




GET LAST NUMBER USED 


32D10610 




09C8 


1 


D700 0656 




STO 


L3 


LRN1 




SAVE 


32010620 




09CA 





421E 


* 


BSI 


2 


CNTLE- 


-TB 


EXIT ROUTINE 


32010630 
32D10640 










* 






READ OR COMPARE ERROR 


320 106 50 










* 












32D10660 




09CB 





1010 


RTN9G 


SLA 




16 




CLEAR NO-PRINT SWITCH 


32D10670 




09CC 





D2F6 




STO 


2 


PRSW-TB 


* 


32D10680 




09CD 





6309 




LDX 


3 


HRDWR- 


•SUMRY COUNT WRITE ERROR 


32010690 




09CE 





4221 




BSI 


2 


COUNT- 


•TB 


COUNT ERROR 


32010700 




09CF 





4230 




BSI 


2 


STMSG- 


■TB 


PRINT ERROR MSG 


32D10710 




09D0 





5E0C 




DC 




/5E0C 




MESSAGE ID 


32D10720 




0901 





70E5 




MOX 




RTN9D 




GO PRINT ERRORS 


32D10730 




09D2 





007B 


LSTNO 


DC 




123 




LAST RANDOM NUMBER 


32D10740 




0903 





0000 


FSTNO 


DC 




*-* 




FIRST NUMBER USED 


32010750 










*««««««««««<««««««««<«<<«< 


32D 10760 










* 












32010770 










* 






TEST ROUTING ELEVEN- 


32D10780 










* 








1. 


WRITE SECTOR ID PLUS 


32D10790 










* 










320 WORDS OF /1313 ON 


32D10800 










* 










CYL 2-SECT 0. 


32010810 










* 








2. 


REWRITE CYL 2-SECT 


32D10820 










* 










WITH 1 WORO OF SECTOR 


32010830 










* 










ID ONLY. 


32D10840 










* 








3. 


READ 321 WORDS FROM 


32D10850 










* 










CYL 2-SECT 0. 


32D10860 










* 








4. 


CK DATA READ FOR 


32D10870 










* 










CORRECT SECT ID AND 


32D10880 










* 










DATA OF ALL ZEROS. 


32010890 




25JUN71 15DEC71 














PROG ID 


0320-0 


571152 


571154 














PAGE 


8A 
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09D4 4236 

0905 0002 

0906 I 088A 
09D7 700A 

0908 1010 
09D9 4239 
09DA 8001 
09DB 0000 
090C 1 09DD 

09DD 1010 
090E 4224 
09DF 0141 
09E0 0000 
09E1 1 09E2 

09E2 1010 

09E3 4239 

09E4 0141 

09E5 1313 

09E6 I 09E7 

09E7 71FF 
09E8 70EF 
09E9 421E 



* 








5. 


RESTORE ORIGINAL DATA 


* 










ON CYL 2-SECT 0. 


* 


RTN11 


3SI 


2 


VERFY- 


TB 


SEEK CYL 2-VERIFY 




DC 




2 




* THE SEEK 




DC 




CNTL 




EXIT ON ERROR 




B 




RTllB 




WRITE 321 WORDS FIRST 


* 

RT11L 


SLA 




16 




WRITE CYL 2-SECT 




BSI 


2 


WRITE- 


■TB 


* WITH SECTOR ID 




DC 




1+/8000 


* ONLY 


AVG 


DC 









AVERAGE OF 50 PASSES 


* 
RTllA 


DC 




RTllA 




EXIT IF ERROR 


SLA 




16 




READ CYL 2-SECT 




BSI 


2 


READ-T8 


* 




DC 




321 




* 




DC 









DATA EXPECTED 


* 
RTllB 


DC 




RTllB 




EXIT IF ERROR 


SLA 




16 




WRITE CYL 2-SECT 




BSI 


2 


WRITE- 


-TB 


* WITH /1313 




DC 




321 




321 WORDS 




DC 




/1313 




DATA 


* 
RTllC 


OC 




RTllC 




EXIT IF ERROR 


MDX 


1 


-1 




DECREMENT LOOP COUNT 




MOX 




RT11L 




LOOP ROUTINE 




BSI 


2 


CNTLE- 


-TB 


EXIT ROUTINE 



* 

* TEST ROUTINE 12-WRITE 400 

* WORDS ON CYL 2-SECT 0. 

* READ AND CK NUMBER OF 

* WOROS WRITTEN- SAVE IN 

* SUMMARY. 

* RESTORE SECTOR 1 IF 

* DESTROYED. 

* NOTE-SUMMARY VALUE IS THE 

* AVERAGE OF 50 PASSES. 
* 



09EA 





4236 


09EB 





0002 


09EC 


1 


088A 


09ED 





1010 


09EE 





DOEC 


09EF 





COOE 


09F0 





0240 


09F1 





C2B2 


09F2 





422A 


09F3 





1010 


09F4 


1 


4400 8695 


09F6 





8190 


09F7 





001B 


09F8 





403C 


09F9 





4230 


09FA 





OEOE 


09FB 





1010 


09FC 


1 


4400 8680 


09FE 





0172 


09FF 





4035 


OAOO 





4230 


DATE 25JUN71 15DEC71 


EC NO. 571152 571154 



RTN12 



RT12Z 

* 
RT12L 



K27 



K370 



BSI 

DC 

DC 

SLA 

STO 

LD 
STO 
LD 
BSI 

SLA 

BSI 
OC 
OC 
BSI 

BSI 

DC 

SLA 

BSI 
DC 
BSI 
BSI 



VERFY-TB SEEK CYL 2 AND VERIFY 

2 * THE SEEK 

CNTL EXIT IF ERROR 

16 CLEAR AVERAGE 

AVG * 

K370 SET WORO COUNT 

COMA-TB IN I/O AREA 

H1313-TB GET DATA 

SETV-TB PRESET I/O AREA 

16 WRITE CYL 2-SECT 
WRITES/8000 * WITH NO OSW CK 

400S/8000 NO PRESET OF I/O AREA 

27 CONSTANT 27 

R12CK CK DSW 

STMSG-TB PRINT IF ERROR 

/OEOE OSW ERROR BIT NOT SET 

16 READ SECTOR 

READ&/8000 WITH NO CKING 

370 WORD COUNT 

R12CK CHECK DSW 

STMSG-TB PRINT IF ERROR 



32D10900 


0A01 





OEOF 




32D10910 










32010920 


0A02 





6 700 


0L72 


32010930 


0AO4 


1 


C700 


06 9C 


32010940 


0A06 





F2B2 




32D10950 


0A07 


1 


4C18 


OAOB 


32D10960 


0A09 





73FF 




32010970 


OAOA 





7 OF 9 




32010980 










32D10990 


OAOB 





6BC7 




32D11000 


OAOC 


1 


7780 


09DB 


32011010 


OAOE 





6BCC 




32D11020 










32011030 


OAOF 





C2DA 




32D11040 


0A10 


1 


4400 


8680 


32D11050 


0A12 





0001 




320 11060 


0A13 





C241 




32D11070 


0A14 





F206 




32D11080 


0A15 


1 


4C18 


0A21 


32011090 


0A17 





C20B 




32D11100 


0A18 





02BA 




32D11110 


0A19 





401B 




32D11120 










32011130 


0A1A 





4230 




32D11140 


0A1B 





5E11 




32D11150 


0A1C 





C20A 




32D11160 


0A1O 





4239 




32D11170 


0A1E 





0141 




32D11180 


0A1F 





E5E5 




32011190 


0A20 


1 


0A21 




32D11200 


0A21 





C0B1 




32D11210 


0A22 





D2CC 




32D11220 


0A23 





92E8 




32DU230 


0A24 


I 


4C28 


0A29 


32011240 


3A26 





9000 




32011250 


0A27 


1 


4C08 


0A2D 


32011260 


0A29 





C20B 




32D11270 


0A2A 





400A 




32011280 


0A2B 





4230 




32D11290 


0A2C 





4E10 




32D11300 










32D11310 


0A2D 





71FF 




32011320 


0A2E 





7 0C0 




32011330 


0A2F 





COAB 




32011340 


0A30 





1800 




32D11350 


0A31 





1010 




32D11360 


0A32 





A8L0 




32D11370 


0A33 





D2F5 




32011380 


0A34 





421E 




32011390 










32011400 


0A35 





0000 




32D11410 


0A36 





C2BA 




32D11420 


0A37 


1 


4C28 


0A4 


32D11430 


0A39 





C20B 




32011440 


0A3A 





421B 




32011450 


0A3B 





7 004 




32D11460 


0A3C 





COBA 




32011470 


0A30 





D20B 




32D11480 


0A3E 


L 


4C80 


0A35 


32D11490 


0A4O 


1 


7402 


0A35 


32D11500 


0A42 





7 0F8 




32011510 


0A43 





0032 




32D11520 










32011530 










32011540 










32011550 










32011560 










32011570 










PROG ID 032D-0 


DATE 25JUN71 


L5DEC71 


PAGE 9 


EC NO. 571152 ! 


571154 



* 
RT12A 



* 
RT12B 



RT12D 



RT12G 



RT12F 



* 
R12CK 



RCKX1 

RCKX 



DC 

LDX 

LD 

EOR 

BZ 

MOX 

MDX 

STX 
MOX 
STX 

LD 

BSI 

DC 

LO 

EOR 

BZ 

LD 

STO 

BSI 

BSI 

DC 

LO 

BSI 

DC 

DC 

DC 

LD 

STO 

S 

BN 

S 

BNP 

LO 

BSI 

BSI 

DC 

MDX 

MOX 

LO 

RTE 

SLA 

D 

STO 

BSI 

DC 

LD 

BN 

LD 

BSI 

MDX 

LD 

STO 

BSC 

MDX 

MDX 

OC 



/OEOF 

L3 370 
L3 COMA 

2 H1313-TB 
RT12B 

3 -1 
RT12A 

3 FSTNO 
13 AVG 
3 AVG 

2 Kl-TB 



DSW ERROR BIT NOT SET 

CK NUMBER OF WOROS 

* 

BRANCH IF FOUNO 

DECR WO COUNT 

LOOP 

SAVE NUMBER OF WORDS 
ADD TO TOTAL 
SAVE TOTAL 



READ SECTOR 1 
READ6/8000 WITH NO CKING 



C0MA£1-TB 

IDS#B-TB 

RT12D 

RTNER-TB 

ZSNS-TB 

R12CK 

STMSG-TB 

/5E11 

Kl-TB 

WRITE-TB 

321 

/E5E5 

RT12D 

FSTNO 

M003-TB 

K331-TB 

RT12G 

K27 

RT12F 

RTNER-TB 

R12CK 

STMSG-TB 

/4E10 

-1 

RT12L 

AVG 

16 

16 

NLOOP 

WRLNG-TB 

CNTLE-TB 

*-» 

ZSNS-TB 

RCKX 

RTNER-TB 

CKPRT-TB 

RCKX 

K27 

RTNER-TB 

R12CK 

R12CK.2 

RCKXi 

LPCNT 



ID 



WORO COUNT 

GET ID REAO 

CHECK FOR CORRECT 

BRANCH IF CORRECT 

GET ERRJR SW 

DUMMY ENTRY 

CK PRINT SW ONLY 



PRINT ERROR 

WRITE 400 DESTROYED NXT SC 

RESTORE SECTOR 1 

* 

* 

* 

ERROR RETURN 

GET CURRENT WO CT 

SET IN CASE PRINT 

SUB 331 

BRANCH IF LESS 

SUB 27 

BRANCH IF LESS THAN 358 

GET ERROR SW 

CHECK PRT SW ONLY 

PRINT ERROR 

SECTOR WORD COUNT NOT WITH 

* IN LIMITS 331-358 

OECREMENT LOOP COUNT 

LOOP 

GET TOTAL WOROS 

EXCHANGE REGISTERS 

CLEAR A REGISTER 

DIVIDE BY 50 

SET IN SUMMARY 

EXIT R3UTINE 



ENTRY 

GET INTERRUPT OSW 
BRANCH IF ON 
GET ERROR Sw 
CHECK PRINT ALL 
RETURN IF OFF 
SET ERROR SW 



SW 



EXIT ROUTINE 
INCR RETURN TO 
GO EXIT 
LOOP COUNT 



NO PRINT 



NLOOP 
* 

* 

* SPECIAL ROUTINE THIRTEEN 
* 

* SPECIAL ROUTINE — SEEK TIMING * 



32D11580 
32D11590 
32011600 
32D11610 
32D11620 
32011630 
32D11640 
32DU650 
32D11660 
32011670 
32D11680 
32D11690 
32D11700 
32D11710 
32D11720 
32D11730 
32011740 
32D11750 
32011760 
32D11770 
32D11780 
32D11790 
32D11800 
32D11810 
32D11820 
32D11830 
32D11840 
32D11850 
32D11860 
32011870 
32D11880 
32D11890 
32D11900 
32D11910 
32D11920 
32011930 
32D11940 
32D11950 
32DU960 
32D11970 
32D11980 
32D11990 
32D12000 
32012010 
32012020 
32D120 30 
32D12040 
32D12050 
32012060 
32D12070 
32012080 
32D12090 
32D12100 
32012110 
32D12120 
32D12130 
32D12140 
32D12150 
32D12160 
32D12170 
32D12180 
32012190 
32012200 
32D12210 
32D12220 
32D12230 
32012240 
32D12250 



PROG ID 
PAGE 



032 D-0 
9A 
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'w 



^ 



V_. 









* 

* 


T IME 


SEEKS OF 1,2, 








* 


CALCULATE AVERAGE, 








*«««<««<«<«««« 




0A44 C2B0 




RTN13 


i LD 


2 XSKBK-TB 




0A45 1890 






SRT 


16 




0A46 C2E6 






LD 


2 K203-TB 




0A47 DABC 






STD 


2 ZXIO-TB 




0A48 423C 






BSI 


2 XEQ-TB 




0A49 C2CB 






LO 


2 TBDSW-TB 




0A4A 1004 






SLA 


4 




0A4B 1 4C10 


0AA4 




BNN 


RT13J 




0A40 4230 






BSI 


2 STMSG-TB 




0A4E 5A08 






DC 


/5A08 




0A4F C20E 






LD 


2 TLP13-TB 




0A50 A2C2 






M 


2 SNSTY-TB 




0A51 AAEO 






D 


2 TEN-TB 




0A52 D212 






STO 


2 TIMSL-TB 




0A53 C2DA 






LD 


2 Kl-TB 




0A54 D2BC 






STO 


2 ZXIO-TB 




0A5 5 1 6 500 


06 9C 


* 
RT13A 


LDX 


LI COMA 




0A57 C20F 




LD 


2 KLP13-TB 




0A58 D205 




♦ 


STO 


2 CNTB-TB 




0A59 C2BD 




RT13B 


LD 


2 ZX10+1-TB 




0A5A F20D 






EOR 


2 K4-TB 




0A5B D2B0 






STO 


2 ZXIO+1-TB 




0A5C 4 04C 






BSI 


TIMIT 




0A5D 7101 






MDX 


1 1 




0A5E 1 74FF 


0631 




MDX 


L CNTB.-l 




0A60 70F8 




* 


MDX 


RT13B 




0A61 C2BC 




LD 


2 ZXIO-TB 




0A62 D100 






STO 


XI 




0A63 7101 






MDX 


1 1 




0A64 1001 






SLA 


1 




0A65 02BC 






STO 


2 ZXIO-TB 




0A66 1007 






SLA 


7 




0A67 1 4C10 


0A57 




BNN 


RT13A 




0A69 F2B9 






EOR 


2 H8000-TB 




0A6A 1 4C30 


0A70 




BP 


RT13K 




0A6C C2E5 






LD 


2 K202-TB 




0A6D 92DB 






S 


2 K2-TB 




0A6E D2BC 






STO 


2 ZXIO-TB 




0A6F 70E7 




* 
RT13K 


MDX 


RT13A 




0A70 C2CB 




LO 


2 TBDSW-TB 




0A71 1004 






SLA 


4 




0A72 1 4C28 


0A76 




BN 


RT13C 




0A74 4230 






BSI 


2 STMSG-TB 




0A75 5E18 




* 
RT13C 


OC 


/5E18 




0A76 1 6500 


069C 


LDX 


LI COMA 




0A78 6309 




* 
RT130 


LDX 


3 9 




0A79 C20F 




LD 


2 KLP13-TB 




0A7A D2D5 






STO 


2 CNTB-TB 




0A7B C28B 






LD 


2 TERM-TB 




0A7C 1801 






SRA 


1 




0A7D 1890 






SRT 


16 




0A7E DACC 






STD 


2 M003-T8 




0A7F 1890 






SRT 


16 




0A80 OACE 




£ 


STD 


2 M0D5-TB 




0A81 1090 




RT13E 


SLT 


16 




0A82 C100 






LD 


XI 


DATE 


25JUN71 15DEC71 








EC NO. 


571152 571154 









4,8,16,32,64, 128,200 
MAXIMUM, MINIMUM 

GET SEEK TOWARD HOME IOCC 

PUT IN Q 

GET SEEK INCREMENT OF 203 

SET FOR XEQ ROUTINE 

EXECUTE SEEK 

GET INTERRUPT DSW 

TEST HOME BIT IN DSW 

BRANCH IF NOT SET 

PRINT MESSAGE 

FORM/MESSAGE ID 

GET LOOP TIME (NSEC) 

MULT BY CPU TIME X 10 

NORMALIZE TO NSEC 

SAVE FOR LATER CALCULATION 

SET FIRST SEEK INCREMENT 

* TO ONE 

SET SINK POINTER 

GET RTN13 LP CNT 
SET FOR LOOPING CNT 

GET SEEK IOCC 
CHANGE DIRECTION MOOIFIER 
PUT IT BACK FOR SEEKING 
GO ISSUE SEEK ANO TIME IT 
INCREMENT STORE POINTER 
DECREMENT LOUP COUNT 
LOOP IF NOT THROUGH 

GET SEEK INCREMENT 

SAVE FOR LATER USE 

BUMP SAVE POINTER 

DOUBLE SEEK INCREMENT 

SET IN IOCC 

TEST FOR 128 

BRANCH IF LESS THAN 128 

ELSE CLEAR BIT 

BRANCH IF I NCR 200 

SET SEEK INCREMENT 

** TO 200 

SET FOR EXECUTION 

GO SEEK 

GET INTERRUPT DSW 

CHECK HOME BIT 

BRANCH IF OK 

ELSE PRINT ERROR MESSAGE 

FORM/MESSAGE 10 

SET FROM POINTER 
SET LOOP COUNTER 

GET LOOP COUNT 
SET FOR LOOPING 
SET A-REG TO GREATEST 
* POSITIVE NUMBER 
MOVE TO Q/ZERO A-REG 
SET INITIAL COUNTS 
CLEAR Q-REG NOW 
SET INITIAL TOTAL 

CLEAR Q-REG 
GET TIME COUNT 



32D12260 
32D12270 
32D12280 


0A83 1800 
0A84 8ACE 
0A85 DACE 






RTE 

AD 

STD 


16 

2 M005-TB 
2 M0D5-TB 


PUT IN POSITION T3 ADD 
ADD IN EXISTING TOTAL 
SAVE IN M005 


32012290 


0A86 C2CC 






LD 


2 M003-TB 


GET MAXIMUM COUNT SINK 


32D 12300 


0A87 9100 






S 


XI 


TEST FOR GREATER 


32D12310 
32D12320 
32D12330 


0A88 1 4C30 
0A8A C100 
0A8B D2CC 


0A8C 




BP 
LD 
STO 


RT13F 
XI 
2 M0D3-TB 


BRANCH IF NOT 

ELSE SET IN NEW MAXIMUM 

** 


32D12340 






* 








32012350 
32D12360 
32D12370 
32D12380 
32D12390 


0A8C C2C0 
0A80 9100 
0A8E 1 4C28 
0A90 C100 
0A91 D2CD 


0A92 


RT13F LO 
S 

BN 
LD 
STO 


2 M0D4-TB 
XI 

RT13G 
XI 

2 M004-TB 


GET MINIMUM TIME SINK 

TEST FOR LESS THAN MINIMUM 

BRANCH IF GREATER 

ELSE SET IN NEW MINIMUM 

** 


32D12400 






* 








32D12410 
32D12420 
32D12430 
32D12440 


0A92 7101 




RT13G MDX 


1 1 


INCREMENT SOURCE POINTER 


0A93 1 74FF 
0A95 70EB 


0631 


* 


MDX 
MDX 


L CNTB.-l 
RT13E 


DECREMENT LOOP COUNTER 
LOOP IF NOT THROUGH 


32D12450 


0A96 CACE 






LDD 


2 M0D5-TB 


GET TOTAL COUNT 


32D12460 
32D12470 
32D12480 
32D12490 

"ti ^r"\i i c r\ f\ 


0A97 AAOF 
0A98 D2CE 
0A99 C100 
0A9A 7101 








STO 

LD 

MDX 


2 KLP13-TB 
2 M0D5-TB 
XI 
1 1 


CALCULATE AVERAGE SEEK TIM 
SET FOR PRINT 
GET SEEK INCREMENT 
INCREMENT POINTER 


32D12500 


0A9B D2CF 






STO 


2 M006-TB 


SET FR PRINT 


32D12510 
32D12520 
32D12530 
32012540 
32D12550 


0A9C 1 4400 
0A9E 1E19 
0A9F 73FF 
OAAO 7008 


868C 


* 


BSI 
DC 
MDX 
MDX 


L STMSG+/8000 PRINT W/0 PID-MIO.. 
/1E19 FORM/MSG ID 
3 -1 DECREMENT LOOP COUNT 
RT13D LOOP IF NOT THROUGH 


32D12560 
32D12570 
32D12580 


0AA1 4480 
0AA3 1 05DC 


0164 


RT13H 
* 


BSI 

OC 


I END 
PID 


GO TO MONITOR ENO 
ADDRESS OF PRG ID 


32D12590 
32D12600 


0AA4 1010 
0AA5 D2CC 




RT13J 


SLA 

STO 


16 
2 M003-TB 


SET CYL ZERO IN MSG WORD 
** 


32D12610 
32D12620 
32D12630 
32D12640 


0AA6 4230 
0AA7 4E17 
0AA8 70F8 




* 


BSI 

DC 

MDX 


2 STMSG-TB 
/4E17 
RT13H 


CALL MSG ROUTINE 

FORM/MSG ID 

CONTINUE PROCESSING ANYWAY 


32D126 50 
32D12660 






* 

* 


TIMING ROUTINE 




32D12670 


0AA9 0000 




TIMIT 


DC 


*-* 


ENTRY POINT 


32D12680 
32D12690 


OAAA C215 
OAAB I D480 


0AD1 




LO 

STO 


2 ADIN2-TB 
I XEQA+1 


SET INT AORS IN MONITOR 
* 


32012700 
32D12710 
32D12720 


OAAD OABC 
OAAE 10A0 




* 


XIO 
SLT 


2 ZXIO-TB 
32 


EXECUTE SEEK 
CLEAR AQ 


32D12730 


OAAF 8 2DA 




TIM2 


A 


2 Kl-TB 


BUMP TIMER 


32012740 
32D12750 
32D12760 
32D12770 


OABO 1 4C20 
0AB2 8A10 


OAAF 




BNZ 
AD 


TIM2 

2 TIMCN-TB 


3RANCH IF NOT OV AND CARRY 
AOD 00U3LE WORD COUINT 


0AB3 1 4C18 


OAAF 


# 


BZ 


TIM2 


IF Q OVERFLOWS/A NONZERO 


32D12780 
32D12790 






* 

* 


10 MINUTE TIMEOUT 




32D12800 
32012810 


0AB5 70FF 




TIMOT 

* 


MDX 


TIMOT 


TRAP STOP/NO INTRPT 


32D12820 
32D12830 






* 
* 


INTERRUPT ROUTINE 


FOR TIMER 


32012840 
32D12850 
32D12860 
32D12870 
32D12880 


0AB6 0000 
0AB7 OABA 
0AB8 I C480 ( 
OABA 1008 
OABB 1808 


)AB6 


INT2 


DC 

XIO 

LD 

SLA 

SRA 


*-* 
2 ZSNS-TB 
I INT2 

8 

g 


ENTRY POINT 

SENSE WITH RESET 

GET INSTRUCTION AT CALL+1 

GET DISPLACEMENT 

* 


32012890 
32D12900 
32D12910 


OABC 82DA 
OABO 80F8 
OABE DOOl 






A 

A 
STO 


2 Kl-TB 

INT2 
INT2A+1 


1X2 NOT DISTURBED 
ADD CALL ADDRESS 
SET ABS ADDRESS 


32012920 
32D12930 


OABF CCOO 0000 
0AC1 18D0 


INT2A 


LDD 
RTE 


L *-* 
16 


GET SAVED AJ REGISTERS 
A TO Q/g TO A 


PROG ID 032D-0 


DATE 25JUN71 15DEC71 










PAGE 10 


EC NO. 571152 571154 











32D12940 

32012950 

32012960 

32012970 

32D12980 

32D12990 

32013000 

32D13010 

32D13020 

32D13030 

3 2D 13040 

32D13050 

32D13060 

32D13070 

32013080 

32D130 90 

32013100 

32013110 

32013120 

32D13130 

32D13140 

32D13150 

32D13160 

32D13170 

32D13180 

32D13190 

32D13200 

32D13210 

32D13220 

32D13230 

32D13240 

32013250 

32D13260 

32D13270 

32D13280 

32D13290 

32D13300 

32D13310 

32D13320 

32D13330 

32D13340 

32D13350 

32013360 

32D13370 

32D13380 

32013390 

32D13400 

32D13410 

32D13420 

32013430 

32D13440 

32D13450 

320 13460 

32D13470 

32D13480 

32D 13490 

32013500 

32D13510 

32D13520 

32D13530 

32D13540 

32D13550 

32D13560 

32D13570 

32D13580 

32D13590 

32D13600 

32D13610 



PROG ID 
PAGE 



0320-0 
10A 
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0AC2 
0AC3 
0AC4 
0AC5 
0AC6 
0AC7 
0AC8 
0AC9 
OACA 
OACB 
OACC 
OACO 



AAE9 
OACC 
A212 
DACE 
C2C0 
A212 
AAE9 
1890 
8ACE 
AAE9 
0100 
4CC0 0AA9 



D 
STO 

M 

STO 

LD 

M 



SRT 

AD 

D 

STO 

BOSC 



2 
2 
2 
2 
2 
2 
2 

2 

2 

XI 

I 



THOUS-TB DIVIDE BY 1000 

M0D3-TB SAVE AQ 

TIMSL-TB MULT BY LOOP TIME 

M0D5-TB SAVE AQ 

M0D4-TB GET PREVIOUS 



TIMSL-TB MULT BY SINGLE 



REMAINDER 
LP TIME 



THOUS-TB 

16 

M0D5-TB 

THOUS-TB 



TIMIT 



DIVIDE BY 1000 
A TO Q 

ADO DOUBLE SAVED 
DIVIDE BY 1000 
SAVE FOR LATER 
EXIT TO MY RTN 



AQ 



* 

* SUB-ROUTINE XEQ 

* 

* 
* 

* 
* 
* 
* 

* 

* 
* 
* 
* 

* 

**** ROUTINE CALL 

* BSI 2 XEQ-TB 

* IOCC MUST BE PRESET 

* 

* 



THIS ROUTINE WILL BUILO AND ISSUE 
AN XIO INSTRUCTION. 

IT WILL THEN WAIT FOR AN INTERRUPT, 

LOOPING THROUGH THE MONITOR. THE 

LOCATION (XCNTI WILL KEEP 

THE CURRENT DELAY COUNT FOR A LOST 

INTERRUPT. 

IF AN INTERRUPT IS LOST AN ERROR 
MESSAGE IS PRINTED AND THE ROUTINE 
TERMINATES THE OFT 



AT LOCATION (ZXIO). 



OACF 
OADO 
0A02 
0AD3 
0AD4 
0AD5 
0AD6 
0AD7 
0A08 



C214 

D400 0000 

C2BD 

EA9B 

D2BD 

029A 

E2B5 

F2B5 

4C18 0AE8 



XEQE 
XEQA 



OADA OABE 

OADB D2CB 

OADC E2BI 

OAOD 1 4C18 0AE8 



OADF 4230 
OAEO 5E03 



* 
CKRD1 



LD 

STO 

LD 

OR 

STO 

STO 

AND 

EOR 

BZ 

XIO 
STO 
AND 
BZ 



-TB 



ADINT- 

*-* 

ZXIO+1-TB 

DVA-TB 

ZXIOei-TB 

INTSW-TB 

OSKMO-TB 

DSKMD-TB 

XEQB 

SNXIO-TB 

TBDSW-TB 
H3000-TB 
XEQB 



GET INTRPT RTN ADDRESS 

DEVICE REQUEST ADDRESS 

GET IOCC 

COMBINE WITH AREA CODE 

SAVE 

SET INTRPT SWITCH 

TEST FOR READ IOCC 

** 

NO RDY CK IF READ OPERATIO 

SENSE DSW 

SAVE 

TEST FOR BITS 2-3=00 

BRANCH IF OK 



DISK IS BUSY AND/OR NOT READY 



BSI 

DC 



STMSG-TB 
/5E03 



CALL MSG SETUP 
MESSAGE ID 



RTN 



LOOP THRU MONITOR 



0AE1 C2EA 
0AE2 D20A 
0AE3 422D 



0AE4 1 74FF 0666 
0AE6 70FC 



CKRD3 

* 

* 



LD 
STO 

asi 



2 K10TH-TB 
2 ZCNT-TB 
2 STMLS-TB 



SET 

* 

SET 



LOOP COUNT TO 10,000 
RETURN AND EXIT 



MONITOR RETURNS HERE 



MOX 
MDX 



ZCNT,- 
CKRD3 



OECR COUNT 
LJOP 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32013620 

32D13630 

32D13640 

32D 13650 

32D13660 

32D13670 

32D13680 

32D13690 

32D13700 

32013710 

32D13720 

32D13730 

32013740 

32D13750 

32D13760 

32D13770 

32013780 

32D13790 

32D13800 

32013810 

32013820 

32D13830 

32013840 

32013850 

32D13860 

32013870 

32D13880 

32D13890 

32013900 

32D13910 

32D13920 

32D13930 

32013940 

32013950 

32013960 

32D13970 

32D13980 

32D13990 

32D14000 

32D14010 

32D14020 

32D14030 

32D14040 

32D14050 

32014060 

32D14070 

320140 80 

32D14090 

32D14100 

32014110 

32014120 

32014130 

32D14140 

32014150 

32D14160 

32D14170 

32D14180 

32D14190 

32D14200 

32D14210 

32D14220 

32D14230, 

32D14240 

32D14250 

32D14260 

32D14270 

3 2D 14280 

32D14290 



PROG ID 
PAGE 



0320-0 
11 



DATE 
EC NO. 



0AE7 





70F2 




* 
* 
* 


MOX 




CKRD1 


TEST AGAIN 


32D14300 
32014310 
32D14320 
32014330 




0AE8 





C240 




XEQB 


LD 


2 


COMA-TB 


GET CK-ONLY-RDY SWITCH 


32014340 




0AE9 


1 


4C98 


0698 




BZ 


I 


XEQ 


EXIT IF ZERO 


32014350 












* 


EXECUTE 


I/O COMMAND 


32D14360 




OAEB 





OABC 




* 


XIO 


2 


ZXIO-TB 


ISSUE COMMAND 


32014370 
32D14380 




OAEC 





OABE 






X 10 


2 


SNXIO-TB 


SENSE OSW 


32D14390 




OAEO 





D2CB 






STO 


2 


TBDSW-TB 


SAVE 


32014400 




OAEE 





E2B1 






AND 


2 


H3000-TB 


TEST FOR BITS 2-3=11 


32D14410 




OAFF 





F2BI 






EOR 


2 


H3000-TB 


*** 


32D14420 




OAFO 


1 


4C18 


0AF4 


* 


BZ 




XEQC 


BRANCH IF 3K 


32014430 
32014440 




0AF2 





4230 






BSI 


2 


STMSG-TB 


NOT READY ERROR MSG 


32D14450 




0AF3 





0E04 






DC 




/0E04 


MESSAGE ID 


32D14460 




0AF4 





C2EA 




XEQC 


LD 


2 


K10TH-TB 


SET TIMEOUT COUNT 


32D 14470 




0AF5 





D20A 




* 

* 
* 


STO 


2 


ZCNT-TB 

EXIT 


* TO 10,000 
TO MONITOR 


32D14480 
32D14490 
32D14500 
32D14510 




0AF6 





4220 




XEQLP 

* 


BSI 


2 


STMLS-TB 


SET MLSCF ENTRY AND EXIT 


32D14520 
32D14530 












* 






MONITOR RETURNS HERE 


32D14540 












* 










32D14550 




OAF 7 





C29A 






LD 


2 


INTSW-TB 


GET INTRPT SWITCH 


32014560 




0AF8 


I 


4C18 


OBOO 




BZ 




XEQX 


BRANCH IF OFF 


32D14570 




OAFA 


I 


74FF 


0666 




MDX 


L 


ZCNT.-l 


DECR LOOP COUNT 


32014580 




OAFC 





70F9 




* 


B 




XEQLP 


BRANCH IF NOT ZERO 


32D14590 
32D14600 




OAFD 





4230 






BSI 


2 


STMSG-TB 


PRINT LOST INTRPT 


32D14610 




OAFE 





0E01 






OC 




/0E01 


MESSAGE ID 


32014620 




OAFF 





4233 




* 


BSI 


2 


TEXIT-TB 


TERMINATE DFT 


32D14630 
32D14640 




OBOO 





C2BA 




XEQX 


LD 


2 


ZSNS-TB 


GET INTERRUPT OSW 


32014650 




OBOl 





02CB 






STO 


2 


TBDSW-TB 


STORE FOR PRINT 


32D14660 




0802 





CABC 






LOO 


2 


ZXIO-TB 


SET LAST IOCC IN MSG 


32014670 




0B03 





DACC 






STD 


2 


M0D3-TB 


* 


32D14680 




0B04 


1 


4C83 


069 8 




B 


I 


XEQ 


EXIT 


32D14690 












*««««««<«<««<«««<««««<«««««<« 


32D14700 












* 










32D14710 












*««««««««««««««<«<«««<«««««< 


32D14720 












* 










32D14730 












* 






ROUTINE TO SAVE INDEX REGS 


32D14740 












* 






AND 


EXIT TO MONITOR 


32014750 












* 










32D14760 












**** 


ROUTINE CALL 




32014770 












# 


BSI 


2 


STMLS-TB 




32014780 












* 










32D14790 
32014800 
32D14810 












* 












0B06 





6908 




STMLE 


STX 


1 


STMLR+3 


SAVE IX 1 


32014820 




0B07 





6B09 






STX 


3 


STMLR+5 


SAVE IX 3 


32014830 




0B08 





COOB 






LD 




STML 


GET RETURN AORS 


32014840 




0B09 





028A 






STO 


2 


MLSCF+1-TB SET IN MLSCF TABLE 


32014850 




OBOA 





4480 


0161 


* 


BSI 


I 


START 


EXIT TO MONITOR 


32D14860 
32014870 












* 






MONITOR RETURNS HERE 


32D14880 












* 










32014890 




OBOC 


1 


6600 


065C 


STMLR 


LDX 


L2 


TB 


RESTORE INDEX REGS 


32D14900 




OBOE 





6500 


0000 




LDX 


LI 


*-* 


* 


32D14910 




0810 





6 700 


0000 




LDX 


L3 


#-* 


* 


32014920 




0812 


1 


4C80 


0689 




B 


I 


STMLS 


EXIT VIA ENTRANCE 


32014930 




0B14 


1 


OBOC 




STML 

* 

* 


DC 




STMLR 


ADRS OF RETURN 


32014940 
32D14950 
32D14960 




25JUN71 15DEC71 












32014970 
PROG ID 


0320-0 


571152 571154 












PAGE 
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* 

* SUB-ROUTINE VERFY 
* 

* THIS ROUTINE CALLS THE SEEK SUB-ROUTINE 

* TO LOCATE OESIRED CYLINDER. THE CORRECT 

* CYLINDER IS VERIFIED BY READING ALL EIGHT 

* SECTOR ID'S. 



ROUTINE CALL 

BSI 2 VERFY-TB 

DC CYL # DESIRED 

DC ADDRS OF ADDRESS ERROR RETURN 



0B15 CADF 
0B16 DA08 

1 

1 




I 







0B17 
0B19 
0B1B 
0B1C 
0B1D 
0B1F 
0B20 
0B21 



6D00 0BB4 
6 780 0692 
C301 
D014 

7402 0692 
C300 
D2D3 
6303 



2 K8-TB 

2 RTCNT-TB 
LI VERFX&1 
13 VERFY 

3 1 
TSTCF+1 

L VERFY, 2 
3 

2 NCYL#-TB 

3 3 



0B22 C2D3 

0B23 1 F700 05EF 

0B25 1 4C18 0B30 

0B27 73FF 

0B28 70F9 

0B29 1 6 780 062F 
0B2B 73A7 
0B2C 7001 
0820 7006 

0B2E 73EB 
0B2F 7002 
0B30 4C00 0000 

0B32 73A4 
0B33 70FC 



0B34 
0B35 
0B36 
0B37 
0B38 
0B39 
0B3B 
0830 
0B3E 
0B3F 



C2B0 

1890 

D240 

C203 

92 D2 

4C18 0B5C 

4C28 0B40 

1883 

1083 

7002 



0B40 F28B 
0841 82DA 

0B42 DABC 
0B43 423C 



2 NCYL#-T8 
L3 BADCY-1 

TSTCF 

3 -1 
VERFA 

13 NCYL# 
3 -89 
TSTCC 

SEEK 

3 -21 

TSTCD 
L *-* 

3 -92 
TSTCF 

THRU TO SEEK 



SET BOTH COUNTERS TO EIGHT 

* 

SAVE INDEX 1 

GET CALLING ADRS+1 

GET CONTENTS OF CALL +2 

SET FOR EXIT 

SET FOR NORMAL RETURN 

GET CYL. DESIRED 

SAVE 

COUNTER 

GET DESIRED CYL. 
CMP WITH BAD CYLS 
BRANCH IF CMP 
DECR COUNT 
LOOP 

CYL DESIRED TO IXl 
TEST FOR CYLINDERS 0-89 
90-... 
0-89 

TEST FOR 90-110 

111-... 

90-110 TAKE AORS ERR EXIT 

TEST FOR CYLS 111-202 
GREATER THAN 20 2 
DESIREO CYHNOER 



XSKBK-TB 

16 

COMA-TB 

NCYL#-TB 

PCYL#-TB 

VERFB 

SEEKB 

3 

3 

SEEKD 

TERM-TB 
Kl-TB 

ZXIO-TB 
XEQ-TB 



10 



GET SEEK TOWARD HOME IOCC 

PUT IN Q REGISTER 

CLEAR COMA. .OON'T XEQ 

GET OESIREO CYLINDER 

CREATE DISPLACEMENT 

DON'T SEEK IF ZERO 

IF NEGATIVE-BRANCH 

ELSE CLEAR SEEK OUT BIT 

* IN IOCC 

GO EXECUTE SEEK 



FORM TWO'S COMPLEMENT 
* SEEK DISPLACEMENT 



OF 



STORE FOR XEQ ROUTINE 

GO TO TEST FOR READY ONLY 



DATE 

EC NO. 



25JUN71 
571152 



150EC71 
571154 



3 2D 149 80 


0B44 




32D14990 


0B44 C2DF 




32D15000 


0B45 D208 




32015010 


0B46 6301 




32D15020 


0B47 4221 




32D15030 


0B48 OABC 




32D15040 


0B49 C2EA 




32015050 


0B4A D20A 




32D15060 


0B4B 422D 




32015070 


0B4C OABE 




32015080 


0B40 1003 




32D15090 


0B4E 1 4C10 


0B56 


32D15100 


0B50 I 74FF 


0666 


32D15110 


0B52 70F8 




32D15120 


0B53 I 7412 


0698 


32D15130 


0B55 709E 




32015140 






32D15150 


0B56 OABE 




32D15160 


0B57 02CB 




32D15170 


0B58 I 4C10 


0B5C 


32D15180 


0B5A 4230 




32D15190 


0B5B 0E05 




32D15200 






32D15210 


0B5C OABE 




32D15220 


0B5D 61F8 




32015230 






32D15240 


0B5E E2DE 




32D15250 


0B5F D0D1 




32D15260 


0B60 1 4400 


8680 


32D15270 


0B62 0001 




32D15280 


0B63 C241 




32D15290 


0B64 I 0500 


0812 


32D15300 


0B66 COCA 




32D15310 


0B6 7 8 2DA 




32D15320 


0B68 7101 




32D15330 


0869 70F4 




32D15340 


0B6A D0C6 




32D15350 


0B6B 61F8 




32D15360 






32D15370 


0B6C C0C4 




32D15380 


0B6D 1 F500 


0812 


J2D15390 


0B6F E2DE 




32D15400 


0B70 1 4C20 


0B93 


32D15410 


0872 1 7401 


0B31 


32D15420 


0B74 7101 




32D15430 


0875 70F6 




32D15440 






32D15450 


0B76 61F9 




32015460 


0B77 1 C400 


080A 


32D15470 


0879 1 F500 


0812 


32D15480 


0B7B 1803 




32D15490 


0B7C 1 4C20 


0B93 


32D15500 


0B7E 7101 




32D15510 


0B7F 70F7 




32015520 






32015530 






32D15540 






32D15550 


0B80 CA02 




32D15560 


0B81 DACC 




32015570 


0882 C241 




32D15580 


0B83 1883 




32015590 


0B84 02CE 




32D15600 


0B85 0202 




32D15610 


0B86 F2D3 




32D15620 


0B87 1 4C18 


0BA8 


32D15630 






32D15640 






32D156 50 






PROG ID 032D-0 


OATE 25JUN71 15DEC71 
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SEEKE 



SEEKF 



* 
SEEKG 



* 
VERFB 

* 
VERFC 



VERFD 



* 
VERFE 



ECU 

LD 

STO 

LDX 

BSI 

XIO 

LD 

STO 

BSI 

XIO 

SLA 

BNN 

MDX 

MDX 

MDX 

MDX 

XIO 
STO 

BNN 
BSI 
DC 

XIO 
LDX 

AND 

STO 

BSI 

DC 

LD 

STO 

LD 

A 

MDX 

MDX 

STO 

LDX 

LD 

EOR 
AND 
BNZ 
MDX 
MDX 
MDX 

LDX 

LD 

EOR 

SRA 

BNZ 

MDX 

MDX 



LDD 

STD 

LD 

SRT 

STO 

STO 

EOR 

BZ 



* RETURN FROM XEQ 

2 K8-TB SET READ RETRY COUNTER 

2 RTCNT-TB * FOR SEEK VERIFIES 

3 SKCNT-SUMRY COUNT SEEK 
2 COUNT-TB COUNT 

2 ZXIO-TB EXECUTE SEEK IOCC 

2 KIOTH-TB SET COUNT IN ACC 

2 ZCNT-T8 SET PRIMARY COUNTER 

2 STMLS-TB GO TO MONITOR 

2 SNXIO-TB SENSE DSW 

3 SHIFT. DISK BUSY BIT 

SEEKG BRANCH IF NOT BUSY 

ZCNT.-l DECREMENT COUNT 

SEEKF LJOP 

XEQ.SEEKG-SEEKE SET RETURN TO SEEKG 

XEQC GO WAIT FOR INTERRUPT 



2 SNXIO-TB 
2 TBDSW-TB 

VERFB 
2 STMSG-TB 

/0E05 

2 SNXIO-TB 

1 -8 

2 K7-TB 
TSTCF+1 



SENSE DISK DSW 
SET IN CASE PRINT 
BRANCH IF NO ERROR 
ELSE PRINT E035 MESSAGE 



SENSE OISK OSW 
SET LOOP COUNTER 

SAVE BITS 13-15 FOR SECTOR 
* WANTED 



L READ+/8000 READ DESIRED SECTOR 



2 COMA+1-TB 
LI BDCYL+8 
TSTCF+1 

2 Kl-TB 

1 1 

VERFC 
TSTCF+1 

1 -8 

TSTCF+1 
LI BDCYL+8 

2 K7-TB 
VERFF 

L TSTCF+1, 1 
1 I 

VERFD 

1 -7 
L BDCYL 
LI BDCYL+8 
3 

VERFF 
1 1 

VERFE 



ONE WORO 

GET SECTOR 10 READ 

SAVE IN TABLE 

GET SECTOR POINTER 

INCREMENT BY ONE 

BUMP LOOP COUNTER 

LOOP IF NOT THROUGH 

ELSE SAVE FIRST SECTOR 

SET LOOP COUNTER 

GET SECTOR POINTER 
TEST CORRECT SECTOR 
SAVE BITS 13-15 
ERROR MESSAGE IF ERROR 
BUMP SECTOR POINTER 
BUMP LOOP COUNTER 
LOOP IF NOT THRU 

SET LOOP COUNTER 

GET FK<ST SECTOR 10 READ 

COMPARE WITH NEXT ONE 

* FOR SAME CYLINOER NUM. 

BRANCH CH IF NOT SAME 

ELSE BUMP LOOP COUNTER 

LOOP IF NOT THROUGH 



CHECK FOR EXPECTED CYLINOER 

2 PCYL#-T8 SET PRINT MESSAGE 

2 M0D3-TB * 

2 C0MAS1-TB CK FOR EXPECTED CYLINOER 

3 * 

2 MOD5-T8 SAVE FOR PRINT 

2 PCYL#-TB SET AS PRESENT CYLINDER 

2 NCYL#-TB IS IT EXPECTED 

VERFI BRANCH IF YES 

CYLINDER ID NOT AS EXPECTED 



32D15660 

32D15670 

32D15680 

32D15690 

32D15700 

32D15710 

32D15720 

32D15730 

32D15740 

32D15750 

32D15760 

32D15770 

32D15780 

32D15790 

32D15800 

32D15810 

32D15820 

32D15830 

32D15840 

32015850 

32D15860 

32D15870 

32D15880 

32D15890 

32D15900 

32015910 

32D15920 

32D15930 

32D15940 

32D15950 

32D15960 

32D15970 

32015980 

32D15990 

32D16000 

32D 16010 

32D16020 

32D16030 

32016040 

32D16050 

32D16060 

32D16070 

32D16080 

32D16090 

32016100 

32D16110 

32016120 

32016130 

32D16140 

32D16150 

32D16160 

32D16170 

32D16180 

32D16190 

32D16200 

32016210 

32D16220 

32D16230 

32D16240 

32D16250 

32D 16260 

32016270 

32D16280 

32016290 

32D16300 

32016310 

32D16320 

32D16330 



PROG 10 
PAGE 



0320-0 
12A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310 FUNCTION TEST 



PART NO. 5889425 
PAGE 13 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310 FUNCTION TEST 



PART NO. 5889425 
PAGE 13A 



0B89 4230 
0B8A 2E09 
0B8B 6302 



1 











0B8C 
0B8D 
0B8F 
0B90 
0B91 
0B92 



4221 

74FF 0665 

70A4 

6303 

4221 

4233 



0B9 3 
0B94 
0B96 
0B97 
0B99 
0B9A 
0B9B 
0B9C 
0B9E 
0B9F 
0BA1 
0BA2 
0BA3 
0BA4 
0BA5 
0BA6 
0BA7 



0BA8 
0BA9 
OBAA 
OBAC 
OBAD 
OBAF 
OBBO 
OBBl 
0BB2 
0BB3 



0BB5 
0BB6 
0BB7 
0BB8 
0BB9 
0B8A 
OBBB 
OBBD 
OBBE 
OBBF 



61FB 

1 CDOO 080F 

OACC 

1 CDOO 0811 
DACE 

7104 

7009 

1 4400 868C 
8E00 

74FF 0664 

7 OB A 

4230 

5A01 

4233 

4230 

8E14 

70EC 



CA08 

9ADF 

4C20 OBAF 

1090 

4C18 0BB3 

4218 

0B34 

4230 

5A06 

6500 0000 



C2D2 

D2CC 

4820 

C28B 

F2BA 

1004 

4CA8 0692 

4230 

4E0D 

4C80 0692 



BSI 
DC 
LDX 
BSI 
MDX 
B 

LDX 
BSI 
BSI 
* 

VERFF LOX 
VERFG LDD 
STD 
LDD 
STD 
MDX 
MCX 
BSI 

oc 

MDX 

MDX 

BSI 

DC 

BSI 

VERFH BSI 
DC 
B 

* 

* 

* 

* 

VERFI LDD 
SO 
BNZ 
SLT 
BZ 

VERFJ BSI 
DC 
BSI 
DC 

VERFX LDX 

* 

* 

* 

LD 

STO 

SKP 

LD 

EOR 

SLA 

BN 

BSI 

DC 

B 

* 



2 STMSG-TB PRINT MESSAGE 
/2E09 SEEK ERROR 

3 SFTSK-SUMRV COUNT SOFT SEEK ERROR 

2 COUNT-TB * 

WRRTY.-l DECR RETRY COUNTER 
SEEK RETRY THE SEEK 

3 HRDSK-SUMRY COUNT HARD SEEK ERROR 
2 COUNT-TB * 

2 TEXIT-TB 



1 -5 
LI BDCYL&5 

2 M0D3-TB 
LI BDCYL67 

2 M0D5-TB 
1 4 

VERFH 



TERMINATE OFT 

SET LOOP COUNTER 

SET HARD ERROR MSG 

* 

* 

* 

DECR CTR 

BRANCH 

STMSG6/8000 PRINT SECONO LINE 
/8E00 MSG ID NOT PRINTED 

RTCNT.-l BUMP ERROR RETRY COUNTER 
VERFB LOOP IF NOT MAXIMUM 

STMSG-TB PRINT MESSAGE 
/5A01 DSK NOT INIT 

TEXIT-TB TERMINATE DFT 

STMSG-TB PRINT LINE 1 
/8E14 HARD READ ERROR 

VERFG BRANCH 

REACHED PROPER CYLINDER-CHECK 
FOR PREVIOUS ERRORS 



LI 



RTCNT-TB 

K8-TB 

VERFJ 

16 

VERFX 

CKLK-TB 

SEEK 

STMSG-TB 

/5A06 

*-* 



CK PREVIOUS ERRORS 

* 

BRANCH IF ERROR OCCURRED 

GET Q REG 

GO EXIT RTN 

CHECK LOCK ON ERROR 

RETURN IF ON 

PRINT RECOVERED ERROR 

MESSAGE ID 

RESTORE INDEX 1 



CHECK HOME BIT FOR EXPECTED 



PCYL#-TB 

M0D3-TB 

Z 

TERM-TB 

ZSNS-TB 

4 

VERFY 

STMSG-TB 

/4E0D 

VERFY 



GET PRESENT CYLINDER 

* 

SKIP IF CYL ZERO 

MAKE HOME BIT ZERO 

* 

CHECK HOME BIT 

EXIT ROUTINE 

PRINT HOME BIT IMCORRECT 

FORM/MESSAGE 10 

EXIT ROUTINE 



* 

* READ SUB-ROUTINE 
* 

* THIS ROUTINE WILL ISSUE THE 

* READ OPERATION, CHECK THE DSW 

* FOR ERRORS AND CALL THE 

* COMPARE SUB-ROUTINE TO CHECK 

* FOR ANY ERRORS. 
* 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32D16340 
32D16350 
32D16360 
32D16370 
32D16380 
32D16390 
32D16400 
32D16410 
32D16420 
32D16430 
32D16440 
32D16450 
32D16460 
32D16470 
32D16480 
32D16490 
32D16500 
32D16510 
32D16520 
32D16530 
32016540 
32D16550 
32D16560 
32016570 
32016580 
32D16590 
32D16600 
32D16610 
32D16620 
32D16630 
32D16640 
32016650 
32D16660 
32D16670 
32D16680 
32D16690 
32016700 
32D16710 
32D16720 
32D16730 
32D16740 
32D16750 
32D16760 
32D16770 
32D16780 
32D16790 
32D16800 
32D16810 
32D16820 
32D16830 
32D16840 
32D16850 
32D16860 
32D16870 
32D16880 
32D16890 
32D16900 
32D16910 
32D16920 
32D16930 
32D16940 
32D16950 
32D16960 
32D16970 
32D16980 
32D16990 
32D17000 
32D17010 



PROG ID 
PAGE 



032D-0 
13 



DATE 
EC NO. 









* 






A MAXIMUM 


OF EIGHT RETRYS WILL 


32D17020 










* 






BE MADE ON BOTH A DSW OR A 


32D17030 










* 






COMPARE ERROR. 


32D17040 










* 










32D17050 










♦ 






THE LOCK ( 


3N ERROR OPTION WILL 


32D17060 










* 






LOCK THE ROUTINE IN THE READ 


32D17070 










* 






OPTION AS 


LONG AS THE SWITCH 


32D17080 










* 






IS ON EVEN IF THE ERROR IS 


32D17090 










* 






INTERMITTENT. 


32017100 










* 










32D17110 










**** 


ROUTINE CALL 




32D17120 










* 










32D17130 










* 


I A) = 


SECTOR COUNT 




32D17140 










* 


BSI 


2 


READ-TB 




32D17150 










* 


DC 




WDCNT 


NO. OF WORDS TO BE READ 


32D17160 










* 








* BIT EQUAL 1 MEANS USE 


32D17170 










* 








* RANDOM DATA FOR COMPARE 


32D17180 










* 


DC 




NUMBER 


USED IN COMPARE 


32D17190 










* 


OC 




CMPERR 


AORS OF CMP ERROR RETURN 


32D17200 










* 










32017210 










****ALTERNATE 


CALL USED 




32D17220 










* 


(A) 


= SECTOR COUNT 




32D17230 










* 


BSI 


L 


READ+/8000 




32D17240 










* 


DC 




WD CNT 




32D17250 










* 










32D17260 










* 


THE 


ALTERNATE CALL 


WILL CAUSE THE ROUTINE 


32D17270 










* 


TO READ 


AND RETURN 


WITHOUT CHECKING EITHER 


32D17280 










* 


THE 


DSM 


OR THE DATA READ. 


32D17290 










* 










32D17300 










* 











32D17310 




0BC1 





EAB5 


RDEN 


OR 


2 


DSKMD-TB 


COMBINE WITH READ 


32D17320 




0BC2 





1890 




SRT 




16 


A TO Q 


32D17330 




0BC3 





D2D8 




STO 


2 


RDDSW-TB 


CLEAR OSW ERROR COUNTER 


3 20 17340 




0BC4 





D209 




STO 


2 


RDCMP-TB 


CLEAR CMP ERROR COUNTER 


32D17350 




0BC5 





C216 




LD 


2 


ADCMA-TB 




32D17360 




0BC6 





DABC 




STD 


2 


ZXIO-TB 


SET FOR XEQ CALL 


32D17370 




0BC7 





108D 




SLT 




13 


SECTOR TO 0-2 REG. 


32D17380 




0BC8 





C2D3 


* 


LD 


2 


NCYL#-TB 


GET CYL. * WHERE DISK S/8 
♦ AFTER LAST SEEK 


32017390 
32D17400 




08C9 





1083 




SLT 




3 


COMBINE FOR COMPARE 


32D17410 




08CA 





0206 


* 


STO 


2 


IDS#B-TB 


PRESENT SECTOR ID 


32017420 
32017430 
32D17440 




OBCB 


1 


6780 0680 




LDX 


13 


READ 


GET CALLING ADRS+1 


32D17450 




OBCD 





C3FF 




LD 


3 


-1 


SET NOCK SW 


32D17460 




OBCE 





D2FF 




STO 


2 


NOCK-TB 


* 


32D17470 




OBCF 





C300 




LC 


3 





GET WORD COUNT 


32D17480 




3BD0 





D2FE 




STO 


2 


RNDCK-TB 


IF NEG. USE RANDOM NUMBERS 


32D17490 




0BD1 





1001 




SLA 




1 


CLEAR SIT 


3 2D17 500 




0BD2 





1801 




SRA 




1 


* 


32D17510 




0BD3 





D240 




STO 


2 


COMA-TB 


WORD COUNT 


32D17520 




0BD4 





D200 




STO 


2 


LNGTH-TB 


* FOR COMPARE RTN 


32D17530 




0B05 





C301 




LD 


3 


1 


GET NUMBER 


32D17540 




0BD6 





D20C 




STO 


2 


CMPTM-TB 


* FOR COMPARE RTN 


32D17550 




0BD7 





C302 




LD 


3 


2 


GET CMP ERROR ADRS 


32017560 




0BD8 





D029 




STO 




RDCPXtl 


SET FOR CMP ERROR EXIT 


32D17570 




0BD9 


1 


7401 0680 




MOX 


L 


READ.l 


INCR FOR NO-CHECK RETURN 


32D17580 




OBDB 





6304 




LDX 


3 


RDCNT-SUMRY POINTER FOR SUMMARY 


32D17590 




OBDC 





4221 


* 


BSI 


2 


COUNT-TB 


INCR READ COUNT 


32D17600 
32D17610 




OBDD 





CADF 


READA 


LCD 


2 


K8-TB 


SET RETRY COUNTER 


32D17620 




OBDE 





DAD6 


* 


STD 


2 


RTRYA-TB 


* TO 8 


32D17630 
32D17640 










* 






PRESET I/O AREA TO /FFFF 


32D17650 










* 










32D17660 




OBDF 





C288 


REAOB 


LD 


2 


TERM-TB 


/FFFF 


32D17670 




OBEO 





422A 


* 


BSI 


2 


SETV-TB 


CALL PRESET ROUTINE 


32D17680 
32D17690 




25JUN71 15DEC71 
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* 

* 






ISSUE 
THRU 


A READ OPERATION 
THE XEQ. SUB-ROUTINE 


32017700 
32017710 
32D17720 










* 

* 










32018380 
32D18390 
32018400 














* 
















*«««««««««<««««««««««««««<« 






08E1 





423C 






BSI 


2 


XEQ-TB 


ISSUE READ COMMAND 


32017730 










* 










32D18410 














* 










32017740 










* 






COMPARE SUB-ROUT INk 


32D18420 














* 


IF NOCK 


NEG DONT CHECK FOR 


32D17750 










* 










32018430 














* 


OSM 


ERRORSt BUT EXIT AS IF NORMAL READ. 


32D17760 










*<<««««<««««««««««««««««««<« 


32D18440 














* 










32017770 










* 






THIS ROUTINE WILL CHECK AORS 


32D18450 






0BE2 





C2FF 






LO 


2 


NOCK-TB 


GET NO CHECK SWITCH 


32D17780 










* 






READ AGAINST AORS EXPECTED AND 


32D18460 






0BE3 


1 


4C28 


0BF6 




BN 




RDNCK 


EXIT IF NEGATIVE 


32D17790 










* 






COMPARE OATA EXPECTED AGAINST 


32D18470 














* 










32D17800 










* 






DATA REAO 


. 


32D18480 














* 






CHECK 


OSW FOR ERRORS 


32D17810 










* 










32D18490 














♦ 










32D17820 










* 






ERROR PRINTOUTS WILL INCLUDE 


32D18500 






0BE5 





C2BA 






ID 


2 


ZSNS-TB 


INTRPT OSW 


32D17830 










* 






AORS, WORD NUMBER, EXPECTED, 


32018510 






0BE6 


1 


4C2 8 


OC03 




BN 




R0ER2 


BRANCH ON ERROR 


32017840 










♦ 






RECEIVED 


AND TOTAL NUMBER OF 


32D18520 






0BE8 





4038 






BSI 




CMP 


CALL COMPARE RTN 


32D17850 










* 






ERRORS. 




32D18530 






0BE9 





700E 






B 




R0ER1 


COMPARE ERROR RETURN 


32D17860 










* 










32018540 






OBEA 





C2D8 






LO 


2 


RDDSW-TB 


GET ERROR CONT 


32D17870 










* 






AN OPTION 


OF PRINT ONLY FIRST 


32018550 






OBEB 





82D9 






A 


2 


ROCMP-TB 


ADD COMPARE ERRORS 


32017880 










* 






ERROR OR 


PRINT ALL ERRORS IS 


32D18560 






OBEC 


1 


4C18 


0BF4 




BZ 




READX 


BRANCH IF NO ERRORS 


32D17890 










* 






PROVIOEO 




32018570 






OBEE 





4218 






BSI 


2 


CKLK-TB 


CHECK LOCK ON ERROR SW 


32D17900 










* 










32D18580 






OBEF 


1 


OB DO 






DC 




RE ADA 


IF SET 


32D17910 










**** 


ROUTINE ! 


:all 




32D18590 






OBFO 





6305 






LDX 


3 


SFTRO-SUMRY POINTER 


32017920 










* 










32018600 






0BF1 





4221 






BSI 


2 


COUNT-TB 


SOFT READ ERROR 


32017930 










* 


BSI 




CMP 




32D18610 






0BF2 





4230 






BSI 


2 


STMSG-TB 


PRINT MESSAGE 


32017940 










* 


MDX 




CMPERR 


ERROR RETURN 


32D18620 






0BF3 





5A03 




* 


OC 




/5A03 


SOFT READ ERROR 


32D17950 
32D17960 










$ 










32D18630 
32D18640 






* 














0BF4 


1 


7402 


0680 


READX 

* 


MOX 


L 


READ, 2 


I NCR FOR NORMAL RETURN 


32D17970 
32017980 


0C21 
0C22 






0000 
1010 




CMP 


OC 
SLA 




16 


ROUTINE ENTRANCE 
ZERO A 


32018650 
32D18660 






0BF6 


1 


4C80 


0680 


RONCK 

* 


8 


I 


REAO 


RETURN 


32017990 

32D18000 


0C23 
0C24 






D202 
D207 






STO 
STO 


2 
2 


ERCT-TB 
LPRNT-TB 


CLEAR ERROR COUNT 
CLEAR LAST-WORO-PRINTED 


32D18670 
32D18680 






0BF8 


1 


7401 


0635 


RDER1 


MOX 


L 


RDCMP.l 


COUNT COMPARE ERROR 


32D18010 


0C25 





C2DA 






LD 


2 


Kl-TB 


SET INDEX TO ONE 


32018690 






OBFA 


1 


74FF 


0632 




MOX 


L 


RTRYA.-l 


DECR RETRY COUNTER 


32D18020 


0C26 





0201 






STO 


2 


INDEX-TB 


* 


3 2D 18 700 






OBFC 





70E2 






B 




READB 


LOOP 


32018030 










* 










32D18710 






OBFO 





4230 






BSI 


2 


STMSG-TB 


PRINT MESSAGE 


3 2D 18040 


0C27 





C20C 






LO 


2 


CMPTM-TB 


GET NUMBER TO COMPARE WITH 


32D18720 






08FE 





5A04 






OC 




/5A04 


HARO CMP ERROR 


32D18050 


0C28 





0205 






STO 


2 


S#B61-TB 


SET 


32018730 






OBFF 





6306 






LDX 


3 


HRDRD-SUMRY POINTER TO HRO RD ERR CNT 


32018060 


0C29 





CA06 






LDO 


2 


IDS#B-TB 


GET ID EXPECTED 


32018740 






OCOO 





4221 






BSI 


2 


COUNT-TB 


COUNT ERROR 


32018070 


0C2A 





DA03 






STD 


2 


S#B-1-TB 


SET 


32018750 






0C01 





4C00 


0000 


ROCPX 

* 


B 


L 


*-* 


COMPARE ERROR EXIT 


32D18080 
32018090 


0C2B 
0C2C 







402D 
C20C 






BSI 
LO 


2 


CMPB 
CMPTM-TB 


GO MAKE COMPARISION 
SET NUMBER 


12018 760 
32D18770 






0C03 





C2D8 




R0ER2 


LD 


2 


RDOSW-TB 


GET DSW ERROR COUNT 


32D18100 


0C2O 





D204 






STO 


2 


S#B-TB 


SET 


32D18780 






0C04 


1 


7401 


0634 




MOX 


L 


RODSWtl 


BUMP COUNT 


32018110 


0C2E 





7004 






B 




CMP2 


CHECK FOR FINISHED 


32D18790 






0C06 





421B 






BSI 


2 


CKPRT-TB 


CK PRINT-ALL-ERRORS OPTION 


32D18120 


0C2F 





C2FE 




CMP1 


LO 


2 


RNDCK-TB 


GET RANDOM INDICATOR 


32D18800 






0C07 





7002 






B 




RDR2B 


BR AROUND PRINT 


32018130 


0C30 


I 


4C28 


0C8B 




BN 




CMRND 


BRANCH IF ON 


32D18810 






0C08 





4230 




RDR2A 


BSI 


2 


STMSG-TB 


PRINT MESSAGE 


32D18140 


0C32 





705B 






8 




CMRN1 


GO TEST FOR BAD OATA 


32D18820 






0C09 





0E06 






DC 




/0E06 


HARD OSW ERROR 


32D18150 


0C33 


1 


7401 


0650 


CMP 2 


MDX 


L 


INDEX, 1 


INCR INOEX 


32018830 




^_ 


OCOA 





4016 




R0R2B 


BSI 




CMP 


CALL COMPARE RTN 


32D18160 


0C35 





C201 






LD 


2 


INDEX-TB 


GET CONTENTS INOEX 


32018840 






OCOB 





7 OOF 






B 




RDER4 


COMPARE ERROR RETURN 


32018170 


0C36 





9200 






S 


2 


LNGTH-TB 


CK FOR COMPLETE 


32018850 






OCOC 


1 


74FF 


0632 




MDX 


L 


RTRYA.-l 


DECR RETRY COUNTER 


32018180 


0C37 


1 


4C08 


0C2F 




BNP 




CMP1 


BRANCH IF NOT FINISHED 


32018860 






OCOE 





70D0 




* 


B 




READB 


LOOP 


32018190 
32018200 


0C39 
0C3A 






C202 
D2CC 






LD 
STO 


2 
2 


ERCT-TB 
M0D3-TB 


GET ERROR CNT 
STORE FOR PRINT 


32D18870 
32018880 






OCOF 





CABC 




RDER3 


LOO 


2 


ZXIO-TB 


GET LAST IOCC ISSUED 


32018210 


0C3B 


1 


4C18 


0C43 




BZ 




CMP3 


BRANCH IF ZERO 


32D18890 




v. 


OCIO 





DACC 






STD 


2 


M0D3-TB 


STORE IN CASE PRINT 


32018220 


0C3D 





C2D9 






LD 


2 


RDCMP-TB 


GET CMP ERROR COUNT 


32D18900 






0C11 





4218 






BSI 


2 


CKLK-TB 


CHECK LOCK-ON-ERROR 


32018230 


0C3E 





421B 






BSI 


2 


CKPRT-TB 


CK PRINT-ALL-ERRQRS 


32018910 






0C12 


1 


OBDO 






OC 




REAOA 


IF SET 


32018240 


0C3F 





7003 






B 




CMP3 


BRANCH IF NOT SET 


32D18920 




^ 


0C13 





4230 






BSI 


2 


STMSG-TB 


PRINT MESSAGE 


32D182 50 


0C40 


1 


4400 


868C 




BSI 


L 


STMSG6/8000 PRINT NO. ERRORS 


32D18930 






0C14 





0E07 






OC 




/0E07 


OSW ERROR 


32018260 


0C42 





4E15 






DC 




/4E15 


* OF COMPARE ERRORS 


32D18940 






0C15 





6306 






LDX 


3 


HRDRO-SUMRY POINTER 


32D18270 










* 










32D18950 




^ 


0C16 





4221 






BSI 


2 


COUNT-TB 


HARO REAO ERROR 


32D18280 


0C43 


1 


6780 


0650 


CMP3 


LDX 


13 


INDEX 


IX EQUAL WO CT 


32018960 






0C17 





C2D6 






LO 


2 


RTRYA-TB 


GET OSW RETRY COUNTER 


32018290 


0C45 


1 


C700 


069C 




LD 


L3 


COMA 


GET REC LNGTH 61 


32018970 






0C18 


1 


4C18 


0BF4 




BZ 




REAOX 


NORMAL EXIT/NO CMP ERRORS 


32018300 


0C47 


1 


8700 


0690 




A 


L3 


C0MA61 


AOO REC LNGTH 62 


32018980 




v_. 










* 








* ON LAST READ 


32018310 


0C49 





820B 






A 


2 


K2-TB 


ADO 2 


32D18990 






0C1A 





70E6 




* 


8 




ROCPX 


TAKE CMP ERROR EXIT 


32018320 
32018330 


0C4A 
0C4C 


1 




4C18 
C2D9 


0C52 




BZ 

LO 


2 


CMPX 
ROCMP-TB 


BRANCH IF AS EXPECTED 
GET CMP ERROR COUNT 


32D19000 
32019010 




^ 


0C1B 


1 


7401 


0635 


RDER4 


MCX 


L 


RDCMP.l 


INCR CMP ERROR COUNT 


32D18340 


0C4D 





421B 






BSI 


2 


CKPRT-TB 


CK PRINT-ALL-ERRORS OPTION 


32D19020 






OCIO 


1 


74FF 


0633 




MDX 


L 


RTRYB.-l 


DECR CMP ERROR COUNT 


32D18350 


0C4E 





7002 






B 




CMP4 


BRANCH IF NOT SET 


32D19030 






0C1F 





7 0BF 






B 




READB 


LOOP 


32D18360 


0C4F 





4230 






BSI 


2 


STMSG-TB 


PRINT OVERREAO 


32D19040 




<_.. 


0C20 





70EE 






B 




RDER3 


GO EXIT 


32D18370 


0C5O 





7E0B 






DC 




/7E0B 




32D19050 




DATE 


25JUN71 150EC71 












PROG 10 032D-0 


DATE 25JUN71 150EC71 












PROG ID 


032D-0 


EC NO. 


571152 571154 
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0C51 





C20A 




CMP4 


LO 


2 


Kl-TB 


MAKE SURE A REG. NON-ZERO 


32D19060 


0C8E 





C204 






0C52 





8202 




CMPX 


A 


2 


ERCT-TB 


CK IF ANY ERRORS 




32D19070 


0C8F 





4 0C9 






0C53 


I 


4C20 


0C57 




BNZ 




CMPEX 


BRANCH IF YES 




32D19080 


0C90 





C204 






0C55 


1 


7401 


0C21 




MDX 


L 


CMP.l 


INCR RETURN 




32D19090 


0C91 





D203 






0C57 


I 


4C80 


0C21 


CMPEX 


BSC 


I 


CMP 


EXIT ROUTINE 




32D19100 


0C92 





C205 






0C59 





0000 




* 
CMPB 


DC 




*-* 


ENTRY 




32019110 
32019120 


0C93 
0C94 






D204 
709E 






0C5A 


1 


6730 


065D 




LDX 


13 


INDEX 


GET INDEX 




32D19130 












0C5C 


1 


F700 


069C 




ECR 


L3 


COMA 


COMPARE WITH S/B 




32019140 


0C95 





0000 






0C5E 


1 


4C98 


0C59 




BZ 


I 


CMPB 


EXIT IF EQUAL 




32D19150 


0C96 





C2D9 






0C60 


1 


7 700 


069C 




MDX 


L3 


COMA 


INCR IX BY ADRS OF COMA 


32D19160 


0C97 





421B 






0C62 





6B37 






STX 


3 


PNTC+1 


SET FOR POINTER 




32D19170 


0C98 





7010 






0C63 





C202 






LD 


2 


ERCT-TB 


GET ERROR CNT MINUS 


1 


32D19180 


0C99 





C700 


0000 




0C64 


1 


7401 


065E 




MDX 


L 


ERCT.l 


INCREMENT ERROR COUNT 


32D19190 


0C9B 





D2CE 






0C66 


1 


4C18 


0C75 




BZ 




CMPB2 


BRANCH IF FIRST CMP 


ERROR 


32D19200 


0C9C 


1 


C700 


0660 












* 

* 


CHECK 


; PRINT ALL ERRORS OPTION 




32019210 
32D19220 


0C9E 
0C9F 




1 


D2CD 
7780 


0650 




0C68 





421B 




* 


BSI 


2 


CKPRT-TB 


CK PRINT-ALL-ERRORS 


OPTION 


32D19230 
32019240 


OCAl 
0CA2 




1 


1000 
6F00 


0628 




0C69 





701F 






B 




CMPB6 


BRANCH IF NOT SET 




32019250 


0CA4 


1 


6F00 


0663 












* 
* 


PRIN1 


' ADDITIONAL 


ERRORS 




32019260 
32D19270 


0CA6 
OCA 8 


1 




4400 
6E16 


868C 




0C6A 





C207 




CMPB1 


LD 


2 


LPRNT-TB 


TEST TO SEE IF BAD WORDS 


32D19280 
32019290 


0CA9 


1 


4C80 


0C95 




0C6B 





82DA 






A 


2 


Kl-TB 


* AND PREVIOUS WORD 


HAVE 


32D19300 












0C6C 





9201 






S 


2 


INDEX-TB 


* BEEN PRINTED YET 




32019310 












0C60 


I 


4C18 


0C81 




BZ 




CMPB4 


BRANCH TO PRINT 8AD 


WORD 


32D19320 












0C6F 


1 


4C28 


0C7F 




BN 




CMPB3 


BRANCH/PRINT PREVIOUS WORD 


32D19330 












0C71 





9 2DA 






S 


2 


Kl-TB 


TEST FOR NEXT WORD 1 


>RINTED 


32D19340 












0C72 


I 


4CA0 


0C59 




BNZ 


I 


CMPB 


EXIT IF LAST WORO 




32019350 












0C7 4 





700 E 






B 




CMPB5 


BAD W0R0*1 NOT PRINTED YET 


320 19360 




















* 












32D19370 












0C75 





C2D9 




CMPB2 


LD 


2 


RDCMP-TB 


GET CMP ERROR COUNT 




32019380 












0C76 





421B 






BSI 


2 


CKPRT-TB 


CK PRINT-ALL-ERRORS 


OPTION 


32019390 












OC77 





7002 






B 




CMP2A 


BRANCH IF NOT SET 




32D19400 












0C78 





4230 






BSI 


2 


STMSG-TB 


PRINT MESSAGE 




32019410 












0C79 





7E0A 






DC 




/7E0A 


MESSAGE ID 




32019420 












0C7A 





C201 




CMP2A 


LD 


2 


INDEX-TB 


GET POINTER 




32D19430 












0C7B 





92DA 






S 


2 


Kl-TB 


* TO ONE ( 1) 




32D19440 












0C7C 


1 


4C20 


0C6A 




BNZ 




CMPB1 


BRANCH IF NOT EQUAL 


32019450 












0C7E 





7002 




* 


B 




CMPB4 


PRINT BAD WORD 




32019460 
32019470 




















* 


PRINT 


WORD PREVIOUS TO BAD WORD 




32D19480 




















* 












32D19490 












0C7F 





63FF 




CMPB3 


LDX 


3 


-1 


INOEX-1 




32019500 












OC80 





4014 




* 


BSI 




PNTB 


PRINT 




32D19510 
32019520 




















* 


PRINT 


BAD WORD 






32D19530 




















* 












32D19540 












0C81 





6300 




CMPB4 


LDX 


3 





SET POINTER 




32D19550 












0C82 





4012 




* 

* 

* 


BSI 
TEST 


IF 


PNTB 
LAST WORD 


PRINT 




32019560 
32D19570 
32019580 
32D19590 












0C83 





C200 




CMPB5 


LD 


2 


LNGTH-TB 


GET RECORD LNGTH 




32019600 












0C84 





9201 






S 


2 


INDEX-TB 


TEST FOR END 




32019610 












0C85 


1 


4C98 


0C59 




61 


I 


CMPB 


EXIT IF LAST WORD WAS JUST 


32019620 




















* 








* PRINTED 




32019630 




















* 












32019640 




















* 


PRINT 


WORD FOLLOWING BAD WORD 




32019650 




















* 












32D19660 












0C87 





6301 






LDX 


3 


1 


SET POINTER 




32019670 












0C88 





400C 






BSI 




PNTB 


PRINT FORM 2 




32019680 












0C89 


1 


4C80 


0C59 


CMPB6 

* 


8 


I 


CMPB 


RETURN 




32019690 
32019700 












0C8B 





C204 




CMRNO 


LO 


2 


S#B-TB 


GET CURRENT NUMBER 




32019710 












0C8C 





4227 






BSI 


2 


RNDOM-TB 


GET NEXT NUMBER 




32D19720 












0C8D 





D205 






STO 


2 


S#B£1-TB 


SET 




32019730 










DATE 


25JUN71 150EC71 
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EC NO. 571152 


571154 



CMRNl LD 
BSI 
LD 
STO 
LD 
STO 
B 



S#B-TB 

CMPB 

S#B-TB 

S#B-i-TB 

S#B£1-TB 

S#B-TB 

CMP2 



CK CURRENT NUMBER 

* 

SET PREVIOUS NUMBER 

* 

SET CURRENT NUMBER 

* 

CK FOR COMPLETE 



* 
PNTB 



PNTC 



DC 
LD 
BSI 

B 

LD 
STO 
LO 
STO 
MDX 
NOP 
STX 
STX 
BSI 
DC 
PNTBX B 

* 

* 



*-* ENTRY 

2 RDCMP-TB GET CMP ERROR COUNT 

2 CKPRT-TB CK PRINT-ALL-ERRORS OPTION 

PNTBX DON'T PRINT IF NOT SET 

L3 *-* GET WORO READ 

2 M0D5-TB SET FOR PRINT 

L3 S#B GET WORO EXPECTED 

2 M0D4-TB SET FOR PRINT 

13 INDEX ADJUST INDEX 

IN CASE SKIP OCCURS 

L3 M0D3 SET FOR PRINT 

L3 LPRNT SET AS LAST WORD PRINTED 

L STMSG+/8000 PRUT W/0 MIO-PID 

/6E16 S/B WAS 

I PNTB EXIT 



* 

* WRITE ROUTINE 

* 

* 

THE ROUTINE WILL INSERT 
THE WORO COUNT AND THE DISK ADRS 
AS THE FIRST TWO WORDS OF THE 
I/O AREA AND ISSUE THE WRITE 
THRU THE XEQ ROUTINE. 



* 

* 
* 

* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

**** ROUTINE CALL 

* 

A REG. 

BSI 

DC 



AFTER INTRPT THE DSW IS CHECKED 
FOR ANY ERRORS. 

IF ERRORS ARE FOUND THE ROUTINE 
WILL RETRY UP TO EIGHT TIMES. 

LOCK ON ERROR OPTION IS 
PROVIDED AND WILL LOCK THE 
ROUTINE IN WRITE ON EITHER AN 
INTERMITTENT OR SOLID ERR1R. 

THE LOCK WILL REMAIN IN EFFECT 
UNTIL THE SWITCH IS CLEARED. 



* 
* 
* 

* 

* DC 

* DC 
* 
* 

****ALTERNATE CALL USED 
* 

* A REG = SECTOR COUNT 

* BSI L WRITE+/8000 

* DC WORD COUNT 



= SECTOR COUNT 
2 WRITE-T8 
WORD COUNT 
BIT EQUAL 1 MEANS 
DON'T PRESET I/O AREA. 
NUMBER USED AS PRESET 
ADRS TO RETURN TO 
IF 8 RETRYS FAIL 



32D19740 
320 19750 
32019760 
32019770 
320 19 780 
32019790 
32019800 
32D19810 
32D19820 
32019830 
32D19840 
32D19850 
32D19860 
32019870 
32D19880 
32D19890 
32019900 
32019910 
32D19920 
32D19930 
32019940 
32019950 
32D19960 
32D19970 
32D19980 
32D19990 
32D20000 
32020010 
32020020 
32D20030 
32D20040 
32020050 
32020060 
32D20070 
32D20080 
32D20090 
32D20100 
32020110 
32D20120 
32D20130 
32020140 
32020150 
32D20160 
32D20170 
32D20180 
32D20190 
32020200 
32D20210 
32D20220 
32020230 
32D20240 
32020250 
32D20260 
32D20270 
32D20280 
32D20290 
32D20300 
32D20310 
32D20320 
32D20330 
32D20340 
32D20350 
32020360 
32D20370 
32D20380 
32D20390 
32D20400 
32020410 
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DC 

THE AL 

PRESET 
OUT CH 



OCAB 
OCAC 
OCAD 
OCAE 
OCAF 
OCBO 
0CB1 
0CB2 
0CB3 
0CB4 
0CB5 
0CB6 
0CB8 
OCBA 
OCBB 
OCBC 
OCBD 
OCBE 
OCBF 
OCCO 















1 

1 7402 0695 
C3FF 
D2FF 

C302 

D018 

C300 

02 40 

4C28 0CC4 



EAB4 
1890 
C216 
DABC 
108D 
C2D2 
1083 
D206 
0241 
6307 
4221 
6780 0695 



0CC2 C301 
0CC3 422A 



0CC4 423C 
0CC5 C28B 
0CC6 0241 



0CC7 C2FF 
0CC8 1 4CA8 0695 
OCCA 1 7401 0695 



OCCC C2BA 
OCCO 1 4C90 0695 



OCCF CABC 
OCDO DACC 
0C01 4230 
0CD2 0E08 

OC03 6308 
0C04 4221 
0C05 4C00 0000 



* 
* 
* 
* 
* 
* 
* 

WRTEN OR 
SRT 
LO 
STO 
SLT 
LD 
SLT 
STO 
STO 
LDX 
BSI 
LDX 
MOX 
LD 
STO 
LD 
STO 
LD 
STO 
BN 

LD 
BSI 

* 
* 
* 

WRTA BSI 
LD 
STO 



NUMBER USED AS PRESET 

TERNATE CALL MILL CAUSE THE ROUTINE TO 

THE I/O AREA, WRITE AND RETURN WITH- 
ERING THE OSW. 



WRTE 

* 



WRMOO-TB 

16 

ADCMA-TB 

ZXIO-TB 

13 

PCYL#-TB 

3 

IDS#B-TB 

COMA+l'-TB 

WRCNT-SUMRY 

COUNT -TB 

WRITE 

WRITE, 2 

-I 

NOCK-TB 

2 

WRTE+1 



COMA-TB 

WRTA 



3 1 

2 SETV-TB 



COMBINE WITH WRT FNC 

A TO Q 

AORS OF COMA 

SET FOR XEQ 

POSITION SECTOR COUNT 

GET PRESENT CYLINDER 

CREATE SECTOR 10 

UPDATE SECTOR ID 

SET FOR WRITE OP 

POINTER 
INCR WRITE COUNT 
GET AORS OF CALL+1 
CREATE NORMAL RETURN AORS 

SET FOR NO CHECK IF NEG. 

DSW ERR ADRS 

SET FOR ERROR RETURN 

GET WORD COUNT 

SET FOR XIO 

BIT SET MEANS DON'T 

* PRESET THE I/O AREA 

NUMBER 

PRESET I/O AREA 



ISSUE WRITE THRU XEQ RTN 



2 XEQ-TB 
2 TERM-TB 
2 COMA+1-TB 



ISSUE WRITE COMMAND 
GET ALL F'S 
PRESETS 10 AREA 



IF NOCK NEGATIVE, DON'T CHECK FOR 

OSW ERRORS BUT EXIT AS IF NORMAL WRITE. 



LD 
BN 
MOX 



LD 
BNN 



LDD 
STD 
BSI 
DC 

LDX 
BSI 

B 



2 NOCK-TB 
I WRITE 
L WRITE, 1 



GET NO CHECK SWITCH 
IF NEGATIVE, EXIT 
INCR RETURN 



CHECK FOR OSW ERRORS 



2 ZSNS-TB 
I WRITE 



INTRPT DSW 

EXIT IF NO ERRORS 



PRINT UNRECOVERABLE WRT 



2 ZXIO-TB 
2 M003-TB 
2 STMSG-TB 

/0E08 



GET LAST IOCC ISSUED 
SET FOR PRINTING 
DSW WRITE ERROR 



3 SFTWR-SUMRY POINTER 
2 COUNT-TB INCR HARO WRITE ERROR 
. *-* DSW ERROR EXIT 



V_ 



* 

* SUB-ROUTINE RNDOM 

* RANDOM NUMBER GENERATOR 



32D20420 
32020430 
32D20440 
32D20450 
32020460 
32020470 
32D20480 
32D20490 
32020500 
32D 20510 
32D20520 
32020530 
32020540 
32020550 
32020560 
32020570 
32020580 
320 20590 
32020600 
32D20610 
32020620 
32D20630 
32020640 
32020650 
32D20660 
32D20670 
32D20680 
32020690 
32D20700 
32020710 
32D20720 
32D20730 
32D20740 
32D20750 
32020760 
32D20770 
32D20780 
32020790 
32D20800 
32020810 
32D20820 
32D20830 
32D20840 
32020850 
32020860 
32020870 
32D20880 
32D20890 
32D20900 
32020910 
32D20920 
32020930 
32D20940 
32D20950 
32D20960 
32D20970 
32D20980 
32D20990 
32021000 
32D21010 
32D21020 
32D21030 
32D21040 
32021050 
32D21060 
32D21070 
32D21080 
32D21090 



ROUTINE IS ENTERED WITH PREVIOUS NUMBER 
THAT WAS GENERATED, IN THE A REG. 

ROUTINE EXITS WITH A NEW 16-BIT 
NUMBER IN THE A REGISTER. 



0C07 A2E7 
0CD8 1090 
0CD9 4818 
OCOA 820D 
OCDB 1 4C80 0683 



* 

* 
* 
* 
* 
* 
* 
**** ROUTINE CALL 

* A REG = NUMBER 

* BSI 2 RNDOM-TB 
* 

* 

* 
RNDME M 



SLT 

SKP 

A 

B 



2 K253-TB 
16 

2 K123-T8 
RNDOM 



GENERATE RANDOM NUMBER 
Q TO A 

SKIP IF NON-ZERO 
ELSE ADO 123 BASE 10 
EXIT ROUTINE 



* 

* 



*«««<««««««««<<«<««««<«<«<««<« 



ROUTINE TO CHECK FOR LOCK 
ON ERROR OPTION 



* 
* 
* 

**** ROUTINE CALL 

* 

* BSI 2 CKLK-TB 

* DC AORS TO RETURN TO IF SW IS SET. 



OCOD 
OCDF 
OCEl 
0CE2 



4C18 0CE7 
C480 0674 
0004 
180 



*«««««<««««««««««««««««««<« 



0CE3 C283 
0CE4 108C 
0CE5 4C28 0000 
0CE7 1 7401 0674 
0CE9 1 4C80 0674 



OCEB I 4C18 0CF1 
OCED C283 
OCEE 100A 
OCEF 1 4C90 0677 
OCFl 1 7401 0677 
0CF3 1 4C80 0677 



CKLKE BZ 
LC 

STO 
RTE 
LD 
SLT 

CKLK1 BN 
CKLK2 MOX 
BSC 

* 



CKLK2 

CKLK 

CKLK1+1 

16 

SWO-TB 

12 

*-* 

CKLK.l 

CKLK 



DON'T CK IF A REG. ZERO 

GET LOCK ADRS 

SET AS RETURN 

SET IN Q 

GET SW FNC 

CK FOR LOCK ON ERROR 

BRANCH IF ON 

INCR RETURN 

EXIT SUB-ROUTINE 



CKPRE BZ 
LD 
SLA 
BNN 

CKPRA MDX 
B 



CKPRA 

SWO-TB 

10 

CKPRT 

CKPRT, 1 

CKPRT 



DON'T TEST IF ZERO 

GET FNC SW 00 

BIT 10 

EXIT IF NOT SET 

BUMP RETURN 

EXIT 

* 

* SUB-ROUTINE SETV 

* 

**** ROUTINE CALL 

* 

* (A1=W0RD TO BE PRESET IN I/O AREA 

* BSI 2 SETV-TB 



GET NO. OF WOROS TO BE SET 

INCR BY ONE 

STORE WORD IN I/O AREA 

OECR COUNT 

LOOP 

EXIT 



0CF5 


1 


6780 


069C 


* 
SETVE 


LDX 


13 COMA 


0CF7 





7301 






MDX 


3 1 


0CF8 


1 


0700 


0690 • 


SETVA 


STO 


L3 C0MA61 


OCFA 





7 3FF 






MDX 


3 -1 


OCFB 





70FC 






B 


SETVA 


OCFC 


1 


4C80 


0686 


* 


B 


I SETV 



32021100 
32D2U10 
32021120 
32D21130 
32D21140 
32D21150 
32D21160 
32D21170 
32D21180 
32021190 
32021200 
32021210 
32021220 
32021230 
32021240 
32D21250 
32021260 
32D21270 
32D21280 
32D21290 
32D21300 
32021310 
32D21320 
32D21330 
32D21340 
32021350 
32D21360 
32D21370 
32021380 
32D21390 
32D21400 
32D21410 
32D21420 
32D21430 
32D21440 
32021450 
32021460 
32D21470 
32021480 
32021490 
3 2021500 
32021510 
32D21520 
32021530 
32D21540 
32021550 
32021560 
32D21570 
32021580 
32021590 
32021600 
32021610 
32021620 
32D21630 
32021640 
32021650 
32021660 
32021670 
32021680 
32021690 
32D21700 
32021710 
32021720 
32021730 
32021740 
32021750 
32021760 
32021770 



v_. 



DATE 
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OCFE 
OCFF 
0000 
0001 
0DO2 
0D03 

0D05 
0007 
0009 
ODOA 
ODOB 
OOOC 
OOOD 
ODOE 
ODOF 
0010 
0D11 
0D13 
0014 
0015 
0016 
0D18 
0019 
001A 
0D1B 
001C 
0D1D 
001E 
0020 

0021 
0022 
0023 
0D24 
0025 
0026 
0027 
0028 
0029 
002A 
002C 
0020 
0D2E 
0D2F 
0030 
0032 



♦ 

* PRINT SUMMARY TABLE 
* 

**** ROUTINE CALL 

* BSI 2 TEXIT-TB 
* 

♦♦♦♦ALTERNATE CALL 

* 8SC L DFTXT 
♦ 

* THIS ROUTINE WILL PRINT THE SUMMARY TABLE 

* ANO SET SW 15 IN FUNCTION ZERO. 

* 
* 



TERMINATE DFT 



C283 
EADA 
0283 
4230 

5A07 

1 7401 0647 



DFTXT LO 
OR 
STO 
BSI 
OC 
MDX 



PRSUM 



SWO-TB 

Kl-TB 

SWO-TB 

STMSG- 

/5A07 

PSSCT.l 



IB 



0648 
1A09 



1 6 700 
6500 
6 922 
C035 

OOIF 

6103 

4013 

7 303 

71FF 

70FC 

6500 3A05 

6918 

400C 

7302 

6500 6A0C 

6913 

6103 

4006 
7302 
71FF 
70FC 

4480 0164 

1 5DC 



PRLN1 



0000 

C2EB 

D2CC 

C300 

2C0 

C301 

02CE 
C302 
02CF 

4400 06 8C 

0000 

COFO 

EAB9 

OOFB 

7401 0D2C 

4C80 0021 



PRLN2 



* 
PRSML 



FRM 
10 



LOX 

LOX 

STX 

LO 

STO 

LOX 

BSI 

MOX 

MDX 

MDX 

LOX 

STX 

BSI 

MOX 

LOX 

STX 

LOX 

BSI 

MDX 

MDX 

MDX 

BSI 

DC 

OC 

LD 

STO 

LD 

STO 

LD 

STO 

LO 

STO 

BSI 

OC 

LD 

OR 

STO 

MOX 

BSC 



L3 SUMRY+1 
LI /1A09 

ID 

STMAD+1 

FRMH 

3 

PRSML 

3 

-I 

PRLN1 

/3A05 

10 

PRSML 

2 

/6A0C 

ID 

3 

PRSML 

2 

-1 

PRLN2 

END 

PIO 



1 



3 

1 

LI 

1 

3 
LI 

1 



♦-♦ 

PSSCT-TB 

M003-TB 



M0D4-TB 

1 

M0D5-TB 

2 

M0D6-TB 

STMSG 

*-* 

FRMG1 

H8000-T8 

FRM&l 

10,1 

PRSML 



FUNCTION 00 

SET BIT 15 TO TERMINATE 

* DFT PROGRAM 

TERMINATE OFT 

TERMINATE DFT 

INCR PASS COUNT 

SET POINTER 

FORM/MESSAGE ID 

SET FOR STMSG CALL 

GET ADORESS OF STMSG RTN 

SET FOR CALL 

SET LOOP COUNT 

GO PRINT A LINE 

INCREMENT POINTER 

DECREMENT LOOP COUNT 

LOOP IF NOT THROUGH 

MESSAGE 10 

SET FOR CALL 

PRINT A LINE 

BUMP POINTER 

MESSAGE 10 

SET FOR CALL 

SET LOOP COUNTER 

PRINT A LINE 

INCREMENT POINTER 

OECREMENT LOOP COUNTER 

LOOP IF NOT THROUGH 

ELSE GO TO MONITOR END RTN 

AODRESS OF PROGRAM ID 

ENTRY 

GET PASS COUNT 

SET IN MSG 

GET MODIFIER WORD 

SET IN MSG 

GET MODIFIER 

SET IN MSG 

GET MODIFIER 

SET IN MSG 

GO PRINT LINE 

FORM/MSG ID 

SET NO PIO-MID PRINT 



INCREMENT MSG 
EXIT 



10 



* 



^_< 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32D21780 
32021790 
32D21800 
32D21810 
32021820 
32D21830 
32D21840 
32D21850 
32D21860 
32D21870 
32D21880 
32D21890 
32D21900 
32D21910 
32D21920 
32D21930 
32D21940 
32D21950 
32D21960 
32021970 
32D21980 
32021990 
32022000 
32022010 
32022020 
32022030 
32D22040 
32D22050 
32D22060 
32D22070 
32D22080 
32022090 
32D22100 
32D22110 
32022120 
32022130 
32D22140 
32022150 
32022160 
32D22170 
32022180 
32022190 
32022200 
32022210 
32022220 
32022230 
32022240 
32022250 
32022260 
32022270 
32D22280 
32022290 
32D22300 
32022310 
32022 120 
32D22330 
32D22340 
32D22350 
32022360 
32D223 70 
32D22380 
32D22390 
32022400 
32022410 
32D22420 
32D22430 
320 22440 
32022450 



PROG ID 
PAGE 



0320-0 
17 



DATE 
EC NO. 











* 


INCREMENT AN ENTRY IN THE SUMMARY. 


32022460 












* 




32D22470 












*««««««««««<««««<<<««««««««« 


32022480 












* 


IX 1 IS THE POSITION IN THE SUMMARY 


32022490 












* 


TABLE TO BE INCREMENTED. IF THE 


32022500 












* 


COUNT EXCEEDS 9999, THE COUNTER IS 


32D22510 












* 


RESET TO ZERO SO THAT A MOOULO 10,000 


32D22520 












* 


IS SIMULATED. THIS IS TO RELIEVE 


32D22530 












* 


PRINTOUT PROBLEMS. 


32022540 












* 




32D22550 




0D34 


1 


C700 


0647 


COUNE 


LD L3 SUMRY GET PROPER COUNTER 


32022560 




0036 





82DA 




* 


A 2 Kl-TB ADD ONE 


32D22570 
32D22580 




0037 


1 


D700 


0647 


COUNA 


STO L3 SUMRY STORE 


32D22590 




0039 





92EA 




* 


S 2 K10TH-TB SUBTRACT 10,000. THIS WIL 
♦ BE MEANINGLESS ON LOOP. 


32022600 
32022610 




0D3A 


1 


4CA0 


067D 




BNZ I COUNT EXIT IF NOT 10,000 


32022620 




003C 





70FA 




* 


B COUNA ELSE LOOP 


32022630 
32D22640 
32D22650 
32022660 












*«««««<<«««<«««««<<««<<«««««<« 












* 




32022670 












* 


SUB-ROUTINE STMSG 


32D22680 












* 




32D22690 












*<<«««<«<«««««««<<«««««<<«««<<« 


32022700 












* 




32D22710 












* 


COMMON MESSAGE SETUP RTN 


32D22720 












* 




32022730 












* 


THIS ROUTINE WILL 3UIL0 THE 


32022740 












* 


MESSAGE DESIRED AND CALL RTN 


32022750 












* 


PRINT TO PRINT THE MESSAGE. 


32022760 












* 




32D22770 












*♦♦♦ I 


ROUTINE CALL 


32D22780 












* 




32D22790 












* 


BSI 2 STMSG-TB 


32022800 












* 


OC MSG ID 


32D22810 












* 


MSG ID = FMMM (WHERE) 


32D22820 












* 


F = FORM NUMBER 


32D22830 












* 


MMM = MESSAGE ID 


32022840 












* 




32022850 












♦♦♦♦ALTERNATE CALL USED 


32022860 












♦ 


BSI L STMSG+/8000 


32022870 












♦ 


OC MSG ID 


32022880 












♦ 




32D22890 












* 


THE ALTERNATE CALL WILL PRINT THE MESSAGE 


32D22900 












* 


AS AN ADDITIONAL LINE WHERE PI D-MIO-RID-RAD 


32022910 












* 


ARE NOT PRINTED. 


32022920 












* 




32D22930 












* 


— + + + + «. » «. * 


32022940 












♦ FORM MOD MOO MOD MOO MOO MOD MOO ♦ 


32022950 












♦ NO, 


1234567 + 


32D22960 












* 


i i + + + < + * 


32D22970 












* 

ft— — — 


FILES OSW HEX HEX ♦ 


32D22980 
32022990 
32D23000 
32D23010 
32D23020 
32D23030 
32D23040 
32023050 
32023060 












♦ i 


FILES DSW DEC DEC DEC OEC * 












♦ 2 

ft „ ,,. ■■ , , ■ 


FILE* DSW DEC DEC DEC ♦ 

f 1 1 1 _ ft II ■■ 1 ■■ II 1 ■!■ II II ■ ft 












♦ 3 


FILES DSW DEC DEC ♦ 












♦ 4 


FILES DSW DEC ♦ 
















32D23070 
32D230 80 
32D23090 
32D23100 
32023110 
32023120 
32D23130 

PROG ID 












♦ 5 


FILES DSW ♦ 












♦ 6 

ft i.i - i-i -i ■ 


FILES OSW OEC HEX HEX * 












♦ 7 

* . 


FILES OSW CYL OOHS SWDS ♦ 




25JUN71 15DEC71 
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571152 


! 571154 
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* 8 


FILE* 


DSH HEX HEX HEX HEX * 


32D23140 






4c 




















* 


— 4 




4 + 


— + + ( _ 


♦ * 


32D23150 






* 










32D23820 










* 9 


FILE* 


DSH HEX 


* 


32023160 










FORM 


IS 4 


32D23830 










* 












32D23170 


0D70 820A 




FORM* 


• A 


2 


Kl-TB 


INCR MOD CNT 


32D23840 
32D23850 






$ 
















0D3D 691C 




STMSE 


STX 


1 


STMSX+1 


SAVE IX 1 




32023180 
32D23190 


0D71 6306 




* 


LDX 


3 


6 


SET CONVERSION CTR 


32D23860 






003E 681F 






STX 


3 


STMSX+5 


SAVE 1X3 




32D23200 






♦ 










32023870 






003F 1 6580 
0041 C1FF 


068C 


STMAO 


LOX 

LD 


11 

1 


STMSG 
-1 


GET CALL ADRS 

* 




32D23210 
32D23220 






* 




COMMON ROUTINE 


32023880 
32D23890 






0D42 E2B9 
0D43 D2C7 
0D44 10A0 
0045 C100 
0D46 1808 
0047 1808 
0D48 D2C5 
0D49 1010 
0D4A 108C 






AND 

STO 

SLT 

LD 

RTE 

SRA 

STO 

SLA 

SLT 


2 
2 

1 
2 


H8000-TB 

MSGIO-TB 

32 



24 

8 

MSGO-TB 

16 

12 


SAVE BIT 

STORE FOR LOG CALL 

CLEAR AQ 

GET FORM NUJ8ER 

* 

GET MSG ID 

SAVE FOR LATER 

CLEAR A-REG 

GET FORM NUMBER TO A-REG 


32D23230 
32023240 
32D23250 
32D23260 
32D23270 
32D23280 
32D23290 
32023300 
32D23310 


0072 02D1 

0073 1 6580 
0075 CA8B 
0D76 1010 
0D77 11C0 

0078 EAC7 

0079 02C7 
0D7A 7019 


0620 


F0RM5 
* 


STO 

LDX 

LOO 

SLA 

SLC 

OR 

STO 

B 


2 

11 

2 

1 
2 
2 


BNTMP-TB 

BNTMP 

TERM-TB 

16 



MSGIO-TB 

MSGIO-TB 

PRINT 


SAVE IN TEMP STORAGE 

SET COUNT IN 1X1 

SET AQ TO FOXES 

CLEAR A REGISTER 

SET BITS FOR MODIFIERS 

GET BIT 

SET IN TABLE 

PRINT 


32D23900 
32D23910 
32023920 
32D23930 
32D23940 
32D23950 
32D23960 
32D23970 
32D23980 






004B DOOA 






STO 




STMSA+1 


SAVE FOR INDEXING 


32023320 






* 
* 










32D23990 






0D4C 1083 






SLT 




3 


GET TYPE MSG INDICATOR 


32023330 










FORM 


IS 6 


32D24000 






004D D2C9 
0D4E 1 7401 

0D50 C2F6 


068C 


* 


STO 
MDX 

LD 


2 
L 

2 


ADDR2-TB 
STMSG, 1 

PRSW-TB 


SAVE FOR LATER TEST 
I NCR RETURN 

GET PRINTER SWITCH 


32D23340 
32023350 
32D23360 
32D23370 


007B 82DC 
0D7C 6302 
0070 70F4 




F0RM6 

* 


A 
LDX 

B 


2 
3 


K3-TB 

2 

F0RM5 


INCR MOO CNTR 

SET CONVERSION CNTR 


32024010 
32D24020 
32D24030 
32D24040 






0051 1 4C20 


0059 




BNZ 




STMSX 


EXIT IF SW IS MON-ZERO 


32D23380 






* 
# 










32D24050 










* 












32D23390 










FORM 


IS 7 


32D24060 






0053 6301 

0054 C2DB 






LOX 
LD 


3 
2 


1 
K2-TB 


SET CONV CTR 
GET MOD WO CT 




32023400 
32D23410 


0D7E C206 
0D7F 1803 




FORM 7 


LO 


2 


IDS#B-TB 


GET PRESENT SECTOR 


32D24070 
32D24080 






0055 6500 


0000 


STMSA 


LOX 


LI 


*-* 






32D23420 
32023430 






SRA 




3 


SAVE CYLINDER NUM8ER ONLY 


32D240 90 






0D57 1 4080 


0061 




B 


I 1 


FRMTB 






0D80 4032 
0D81 D2CC 
0D82 C206 
0083 E2DE 
0D84 1882 
0D85 1002 
0D86 1082 






BSI 




BNOEC 


CONVERT TO OECIMAL 


32D24100 






0059 6500 


0000 


* 
* 
STMSX 


LOX 


LI 


*-« 


RESTORE 




-^ t \J £. ~J^ *} \J 

32D23440 
32D23450 
32D23460 






STO 

LC 

AND 


2 
2 
2 


M003-T8 

IDS#B-TB 

K7-TB 


SET FOR PRINTTING 
GET PRESENT SECTOR ID 
SAVE SECTOR ONLY 


32D24110 
32D24120 
32D24130 






0D5B 1 6600 
005D 6 700 


065C 
0000 




LDX 
LDX 


L2 
L3 


TB 
*-* 


SET UP TABLE POINTER 
RESTORE IX 


32D23470 
32023480 






SRT 
SLA 




2 

2 


SET SECTOR COUNT IN Q 
CLEAR TWO BITS 


32D24140 
32D24150 






0D5F 1 4C80 


068C 




B 


I 


STMSG 


EXI T 




32D23490 






SLT 




2 


MOVE BACK SECTOR CNT 


32D24160 










* 












32023500 
32D23510 
32D23520 
32D23530 
32D23540 


0D87 02CD 
0D88 C200 
0D89 4029 
008 A D2CE 
008B C2DA 






STO 

LD 

BSI 

STO 

LD 


2 

2 

2 
2 


M0D4-TB 

LNGTH-TB 

BNOEC 

M005-TB 

Kl-TB 


SET FOR PRINTING 
GET READ LENGTH 
CONVERT TO OECIMAL 
SET IN PRINT MOO 
SET WORD CNT 


32D24170 
32D24180 
32D24190 
32D24200 
32D24210 






* 

* 
* 


FORM 


TABLE 










0D61 1 006B 




FRMTB 


DC 




FORMO 


ADRS OF RTN FORM 





32D23550 






* 
* 


FALL 


THRU TO GET WRD CNT=5 


32D24220 






0D62 1 0D6D 






DC 




F0RM1 




I 


32D23560 














32D24230 






0063 1 0D6E 






DC 




F0RM2 




2 


32023570 






* 






FORM 


IS 8 


32D24240 






0D64 1 0D6F 






DC 




F0RM3 




3 


32023580 


0D8C 82DC 




A 










32D24250 






0D65 1 0D70 






DC 




F0RM4 




4 


32D23590 




F0RM8 

* 


A 


2 


K3-TB 


BUMP MSG WO COUNT 


32024260 






0D66 1 0072 






DC 




F0RM5 




5 


32023600 














32024270 






0067 1 0D7B 






DC 




F0RM6 




6 


32D23610 






* 
F0RM9 






FORM 


IS 9 


32D24280 






0068 1 0D7E 

0069 1 0D8C 






DC 
DC 




F0RM7 
F0RM8 




7 
8 


32023620 
32D23630 


0080 82DA 
008E 70E3 

0D8F 1 C700 
0D91 4021 
0092 1 700 
0094 73FF 
0D9 5 7 0F9 
0D96 I 6 730 
0D98 C2C5 
0D99 4019 
0D9A D2C5 
009B C2C9 
009C E20E 
0D90 F20E 
009E 1 4C18 
ODAO 1 C700 
0DA2 D2C9 
0DA3 C283 




A 


2 


Kl-TB 


INCR MOO CNT 


32D24290 
32D24300 






0D6A 1 0D8D 
0D6B 820B 




* 
* 
* 
FORMO 


DC 

A 


2 


F0RM9 

FORM 
K2-TB 


IS 

INCR MOO CNT 


9 


32D23640 
32023650 
32023660 
32D23670 
32D23680 


0627 


* 

* 


B 




F0RM5 


COMMON ROUTINE 


32D24310 
32D24320 
32D24330 
32024340 
32024350 








L3 


M0D3-1 
BNDEC 






. 


MSGC1 


LD 
BSI 


GET MODIFIER 
CONVERT TO DECIMAL 




v^ 


0D6C 7005 
0D6D 82DA 
006E 8 2DA 
006F 82DA 




* 

* 

* 

F0RM1 

* 

* 

* 

F0RM2 

* 

* 

* 

F0RM3 


B 
A 
A 
A 


2 
2 

2 


F0RM5 

FORM 
Kl-TB 

FORM 
Kl-TB 

FORM 
Kl-TB 


COMMON ROUTINE 
IS 1 

INCR MOO CNT 
IS 2 

INCR MOD CNT 
IS 3 

INCR MOD CNT 




32023690 
32023700 
32D23710 
32D23720 
32D23730 
32D23740 
32023750 
32023760 
32023770 
32D23780 
32D23790 
32D23800 
32023810 


0627 
0621 

ODAB 
0DC7 


PRINT 

PRIN8 


STO 

MDX 

MDX 

LDX 

LD 

BSI 

STO 

LD 

AND 

EOR 

BZ 

LD 

STO 

LD 


L3 
3 

13 
2 

2 
2 
2 
2 

L3 
2 
2 


MOO 3-1 
-1 

MSGC1 

MSGO 

MSGO-TB 

BNOEC 

MSGO-TB 

ADDR2-TB 

K7-TB 

K7-TB 

PRINA 

AALPH 

ADDR2-TB 

SWO-TB 


SET IN MODIFIER 

DECR CONVERSION CTR 

LOOP 

GET MSG 10 NUMBER 

GET SAME TO A-REG 

CONVERT TO DECIMAL 

SET FOR MSG 10 

GET MSG TYPE INDICATOR 

SAVE BITS 13-15 

<N0 MESSAGES WITH F) 

BRANCH FOR ERROR MESSAGE 

GET ALPHA AOORESS 

SET ALPHA ADDRS FOR LOG 

GET SW FNC 


32D24360 
32024370 
32D24380 
32D24390 
32D24400 
32024410 
32D24420 
32024430 
32024440 
32D24450 
32D24460 
32024470 
32D24480 
32024490 




DATE 
EC NO. 


25JUN71 15DEC71 
571152 571154 
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00A4 100D 
00A5 1 4C28 0059 

0DA7 4480 0163 
0DA9 1 0621 
ODAA 70AE 



OOAB 
ODAO 
OOAE 
ODBO 
00B1 
0DB2 



1 C700 0DD6 
D2C9 

4480 0162 

1 0621 
1 08A2 
70A6 



0DB3 
0DB4 
00B6 
0DB7 
0DB8 
0DB9 
ODBA 
ODBB 
ODBC 
ODBD 
OOBE 
ODBF 
ODCO 
0DC1 
0DC2 
0DC3 
00C4 
0DC5 



0DC7 
0DC8 
0DC9 
ODCA 
OOCB 
OOCC 
ODCO 
ODCE 
ODCF 
ODDO 
00D1 
00D2 
0003 
0004 
0DD5 
00D6 
ODD 7 
0DD8 
0DD9 
ODDA 
ODDB 
ODDC 
ODDO 
ODDE 
OODF 



0000 
4CA8 0DB3 



1890 
AAE9 
100C 
D28E 
1004 
AAE4 
1008 
EABE 
02BE 
1008 
AAEO 
108C 
180C 
1084 

EABE 

1 4C80 00B3 



1 0DF5 
1 0E09 
1 0E12 
0E1A 
0E25 
0E2D 
0E3A 
0E45 
0E4F 
0E5C 
0E60 
0E78 
0E83 
0E8D 
1 0E9A 
0000 
0EA8 
0EB4 
OEBB 
0EC3 
OECF 
OEDC 
0EE9 
0EF8 
0F05 



PRINA 



SLA 

BN 

BSI 
DC 

B 

LD 

STO 

BSI 

DC 
DC 

B 



13 
STMSX 

I LOG 
MSGO 
STMSX 

L3 EALPH 

2 AD0R2-TB 
I ERROR 

MSGO 

PRLP 

STMSX 



BIT 13-8YPASS ALL LOGS 
EXIT IF SET 

MONITOR LOG CALL 

AORS MSG 

EXIT PRINT ROUTINE 

GET ALPHA ADDRESS 

SET ALPHA ADDRS FOR ERROR 

MONITOR ERROR CALL 

ADRS MSG 

LOOP RETURN 

BCH TO EXIT 



* 
* 
* 

* 

* 
* 
* 
* 
BNDEC 



DC 

BN 

SRT 

D 

SLA 

STO 

SLA 

D 

SLA 

OR 

STO 

SLA 



SLT 

SRA 

SLT 

OR 

BSC 



* 

* 

AALPH 



EALPH 



DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 



CONVERT A POSITIVE NUMBER IN THE 
RANGE FROM 0-9999 TO IT'S DECI- 
MAL EQUIVALENT. 

ENTER ROUTINE WITH THE NUMBER 
IN THE A REGISTER. EXIT WITH 
THE CONVERTED NUMBER IN THE A REG. 

*-* ENTRY POINT 

I BNDEC EXIT IF NEGATIVE 

16 A TO Q 

2 THOUS-TB MOST SIGNIF. DIGIT 

12 POSITION DIGIT 

2 SNXIO-TB SAVE 

4 CLEAR A REG 

2 HUNDR-TB NEXT SIGNIF. DIGIT 

8 POSITION 

2 SNXIO-TB COMBINE IN HEX WORD 

2 SNXIO-TB SAVE 

8 CLEAR A 

2 TEN-TB NEXT SIGNIF. DIGIT 

12 COMBINE LAST TWO DIGITS 

12 * 

4 * 

2 SNXIO-TB COMBINE IN HEX WORD 

I BNDEC EXIT WITH WORD IN A REG. 



ALPAO 

ALPA1 

ALPA2 

ALPA3 

ALPA4 

ALPA5 

ALPA6 

ALPA7 

ALPA8 

ALPA9 

ALPAA 

ALPAB 

ALPAC 

ALPAD 

ALPAE 



ALPE1 

ALPE2 

ALPE3 

ALPE4 

ALPE5 

ALPE6 

ALPE7 

ALPE8 

ALPE9 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32D24500 


ODEO 


I 


0F13 


32024510 


0DE1 


1 


0F21 


32D24520 


0DE2 


1 


0F2F 


32D24530 


0DE3 
ODE 4 


1 


0F37 


32D24540 


1 


0F44 


32D24550 


0DE5 


1 


0F55 


32D24560 


0DE6 


1 


0F65 


32D24570 


ODE 7 


1 


OF 73 


32D24580 


0DE8 


1 


0F80 


32D24590 


0DE9 


1 


0F91 


32024600 


ODEA 


1 


0F9A 


32D24610 


ODEB 


1 


0FA3 


32024620 


ODEC 


1 


0FA7 


32D24630 


ODED 


1 


0F37 


32D24640 


ODEE 


1 


OFAF 


32024650 


ODEF 


1 


0FB8 


3 2D24660 








32D24670 


ODFO 







32D24680 


ODFO 




0004 


32D24690 


0DF4 





FFFF 


32024700 


0DF5 







32024710 


0DF5 




0010 


32D24720 


ODFF 




0009 


32D24730 


0E08 





FFFF 


32D24740 


0E09 







32D24750 


0E09 




0008 


32D24760 


0E11 





FFFF 


32D24770 


0E12 







32D24780 


0E12 




0007 


32024790 


0E19 





FFFF 


32D24800 


0E1A 







32D24810 


0E1A 




0010 


32D24820 


0E24 





FFFF 


32D24830 


0E25 







32D24840 


0E25 




007 


32024850 


0E2C 





FFFF 


32D24860 


0E2D 







32024870 


0E2D 




0012 


32D24880 


0E39 





FFFF 


32D24890 


0E3A 







32D24900 


0E3A 




0010 


32D24910 


0E44 





FFFF 


32024920 


0E45 







32024930 


0E45 




0009 


32D24940 


0E4E 





FFFF 


32D24950 


0E4F 







32D24960 


0E4F 




0012 


32024970 


0E5B 





FFFF 


32D24980 


0E5C 







32D24990 


0E5C 




0016 


32D250C0 


0E6C 





FFFF 


32D25010 


0E6D 







32D25020 


0E6D 




0010 


32D25030 


0E77 





FFFF 


32D25040 


0E78 







32D2 5050 


0E78 




0010 


32D25060 


0E82 





FFFF 


32D25070 


0E83 







32D25080 


0E83 




0009 


32D25090 


0E8C 





FFFF 


32D25100 


0E8D 







32D25110 


0E8D 




0012 


32D25120 


0E99 





FFFF 


32D25130 


0E9A 







32D25140 


0E9A 




0013 


32025150 


0EA7 





FFFF 


32025160 


0EA8 







32025170 


0EA8 




0011 


PROG ID 032D-0 
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EC NO. 571152 571154 





DC 


ALPEA 




32025180 




DC 


ALPEB 




32D25190 




DC 


ALPEC 




32D25200 




DC 


ALPED 




32D25210 




DC 


ALPEE 




32D25220 




DC 


ALPEF 




32025230 




DC 


ALPFO 




32025240 




DC 


ALPF1 




32D25250 




DC 


ALPF2 




32025260 




DC 


ALPF3 




32D25270 




DC 


ALPF4 




32025280 




DC 


ALPF5 




32025290 




DC 


ALPF6 




32D25300 




DC 


ALPF7 




32D25310 




DC 


ALPF8 




32025320 




DC 


ALPF9 




32025330 


* 








32025340 


ALPHO 


ECU 


* 




32D25350 




TYPE 


.FILE DSW. 


32D25360 




DC 


/FFFF 




32025370 


ALPAO 


EQU 


* 




32025380 




TYPE 


. CPU CYCLE TIME = 58. 


32025390 




TYPE 


2310 DFT START. 


32D25400 




OC 


/FFFF 




32D25410 


ALPA1 


EQU 


* 




32025420 




TYPE 


DSK 


. NOT INIT. 


32D25430 




DC 


/FFFF 




32025440 


ALPA2 


EQU 


# 




32025450 




TYPE 


INVLO RTNf*. 


32025460 




DC 


/FFFF 




32025470 


ALPA3 


EQU 


* 




32025480 




TYPE 


RECOVERED RO ERR. 


32D25490 




DC 


/FFFF 




32025500 


ALPA4 


EQU 


* 




32025510 




TYPE 


HRD CMP ERR. 


32025520 




DC 


/FFFF 




32025530 


ALPA5 


EQU 


* 




32D25540 




TYPE 


. PASS 


#WDS WRTN IN SECT. 


32D25550 




DC 


/FFFF 




32D25560 


ALPA6 


EQU 


♦ 




32D25570 




TYPE 


RECOVERED SK ERR. 


32D25580 




DC 


/FFFF 




32025590 


ALPA7 


EQU 


* 




32D25600 




TYPE 


DFT 


TERMINATED. 


32D25610 




DC 


/FFFF 




32025620 


ALPA8 


ECU 


* 




32025630 




TYPE 


.SEEK TIMING IN PROGRESS. 


32025640 




DC 


/FFFF 




32025650 


ALPA9 


EQU 


* 




32025660 




TYPE 


. PASS 


SKS SFT HRD 7-LINE SMRY 


32D25670 




DC 


/FFFF 




32D25680 


ALPAA 


EQU 


* 




32D25690 




TYPE 


. PASS 


RDS SFT HRD. 


32D25700 




DC 


/FFFF 




32025710 


ALPAB 


EQU 


* 




32025720 




TYPE 


. PASS 


WRTS SFT HRD. 


32025730 




DC 


/FFFF 




32D25740 


ALPAC 


ECU 


* 




32D25750 




TYPE 


. PASS 


SK-RNDM WDS. 


32D25760 




DC 


/FFFF 




32025770 


ALPAD 


EQU 


* 




32D25780 




TYPE 


. PASS 


WRT-RNDM W0S/RTN9. 


32D25790 




DC 


/FFFF 




32D25800 


ALPAE 


EQU 


* 




32D25810 




TYPE 


. PASS 


WRT-RNOM WOS/RTNIO. 


32025820 




OC 


/FFFF 




32025830 


ALPE1 


ECU 


* 




32D25840 




TYPE 


. LAST 


IOCC LOST INT. 


32D25850 
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0EB3 FFFF 




0EB4 




0EB4 0006 




OEBA FFFF 




OEBB 




OEBB 0007 




0EC2 FFFF 




0EC3 




0EC3 0011 




OECE FFFF 




OECF 




OECF 0012 




OEDB FFFF 




OEDC 




OEDC 0012 




0EE8 FFFF 




0EE9 




0EE9 0014 




0EF7 FFFF 




0EF8 




0EF8 0012 




0F04 FFFF 




0F05 




0F05 0013 




0F12 FFFF 




0F13 




0F13 0013 




0F20 FFFF 




0F21 




0F21 0013 




0F2E FFFF 




0F2F 




0F2F 0007 




0F36 FFFF 




0F37 




0F37 0012 




0F43 FFFF 




0F44 




0F44 0016 




0F54 FFFF 




0F55 




0F55 0015 




0F64 FFFF 




0F65 




0F65 0013 




0F72 FFFF 




0F73 




0F73 0012 




0F7F FFFF 




0F80 




0F80 0016 




0F90 FFFF 




0F91 




0F91 0008 




0F99 FFFF 




0F9A 




0F9A 0008 




0FA2 FFFF 


1 


0FA3 




0FA3 0003 




0FA6 FFFF 


'-v__ 


0FA7 




0FA7 0007 




OFAE FFFF 


v_ 


0F37 




OFAF 




OFAF 0008 


<_ 


0FB7 FFFF 


DATE 


25JUN71 15DEC71 


EC NO. 


571152 571154 



ALPE2 

ALPE3 

ALPE4 

ALPE5 

ALPE6 

ALPE7 

ALPE8 

ALPE9 

ALPEA 

ALPEB 

ALPEC 

ALPED 

ALPEE 

ALPEF 

ALPFO 

ALPF1 

ALPF2 

ALPF3 

ALPF4 

ALPF5 

ALPF6 



ALPF7 
ALPF8 



DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

ECU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

OC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

OC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

ECU 

TYPE 

OC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

DC 

EQU 

TYPE 

OC 

EQU 

EQU 

TYPE 

DC 



/FFFF 

* 

EXTRA INT. 
/FFFF 

* 

DSK NOT ROY. 
/FFFF 

* 

. LAST IOCC DSW WRONG. 
/FFFF 

* 

. LAST IOCC DSW SK ERR, 

/FFFF 

* 

. LAST IOCC DSW RD ERR. 

/FFFF 

* 

. LAST IOCC HRD DSW RO ERR. 

/FFFF 

* 

. LAST IOCC OSW WRT ERR. 

/FFFF 

* 

. FROM S/B WAS ■ SEEK ERR. 

/FFFF 

* 

. CYL# OOHS #WDS CMP ERR. 

/FFFF 

* 

. CYL# OOHS #WDS OVERREAD. 
/FFFF 

* 

WRITE ERROR. 
/FFFF 

* 

. CYL# HOME BIT WRONG. 
/FFFF 

* 

. LAST IOCC NO DSW ERR/WRT 400. 
/FFFF 

* 

. LAST IOCC NO DSW ERR/RO 370. 
/FFFF 

* 

. WDCNT SECT WO CNT WRONG. 

/FFFF 

* 

. WRT 400 WROTE NEXT SECT. 

/FFFF 

* 

. LAST IOCC #TMS RDCK XFRO OATA. 
/FFFF 

* 

SECT CNTR BAD. 
/FFFF 

* 

• 8 CYLINDER IOS. 
/FFFF 

* 

. #ERS. 
/FFFF 

* 

. WD# S/8 WAS. 

/FFFF 

ALPED 

* 

. SK/HOME BIT ERR. 
/FFFF 



\_ 



32D25860 

32D25870 

32D25880 

32D25890 

32D25900 

32D25910 

32025920 

32D25930 

32D25940 

32D25950 

32D25960 

32D25970 

32D25980 

32025990 

32D26000 

32D26010 

32D26020 

32D26030 

32026040 

32D26050 

32D26060 

32D26070 

32D26080 

32D26090 

32D26100 

32D26110 

32026120 

32D26130 

32D26140 

32026150 

32026160 

32D26170 

32D26180 

32D26190 

32D26200 

32D26210 

32D26220 

32D26230 

32026240 

32D26250 

32D26260 

32026270 

32D26280 

32D26290 

32D26300 

32026310 

32D26320 

32D26330 

32D26340 

32026350 

32D26360 

32D26370 

32D26380 

32D26390 

32D26400 

32D26410 

32026420 

32D26430 

32026440 

32D26450 

32026460 

32D26470 

32026480 

32D26490 

32D26500 

32026510 

32026520 

32D26530 



PROG ID 
PAGE 



0FB8 
0FB8 
OFCA 



0018 
FFFF 



. MAX 
/FFFF 



MIN AVG INCR SK TIME (MS). 



OFCB 



OFCC 
NO 



05F3 



ALPF9 EQU 
TYPE 
DC 

* 

* _ 

PEND EQU * LAST PROGRAM AORS 

*«««<««<« «««««««««««««««««« 
e ND BEG INITIAL XFER ADDRESS 



STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



32D26540 
32D26550 
32026560 
32D26570 
32D26580 
32026590 
32D26600 
32D26610 
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PROG ID 
PAGE 



032D-0 
20A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310 FUNCTION TEST 



PART NO. 5889425 
PAGE 21 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
2310 FUNCTION TEST 



PART NO. 5889425 
PAGE 21A 





AALPH 


0DC7 


ODAO 








ADCMA 


0672 


0BC5 OCAD 








ADDRS 


0168 










ADDR1 


0624 










ADDR2 


0625 


0D4D 0D9B 


0DA2 


ODAD 




ADIL2 


066F 


0824 








ADINT 


0670 


OACF 








ADIN2 


0671 


OAAA 








AOPCN 


0673 


082D 








ALPAA 


0E6D 


0DD1 








ALPAB 


0E78 


00 D2 








ALPAC 


0E83 


ODD 3 








ALPAD 


0E8D 


0D04 








ALPAE 


0E9A 


00 D5 








AtPAO 


OOF 5 


0OC7 








ALPA1 


0E09 


0UC8 








ALPA2 


0E12 


0DC9 








ALPA3 


0E1A 


ODCA 








ALPA4 


0E25 


OOCB 








ALPA5 


0E2D 


ODCC 








ALPA6 


0E3A 


ODCD 








ALPA7 


0E45 


ODCE 








ALPA8 


0E4F 


ODCF 








ALPA9 


0E5C 


ODDO 








ALPEA 


0F13 


ODEO 








ALPEB 


0F21 


00E1 








ALPEC 


0F2F 


ODE 2 








ALPED 


0F37 


0DE3 








AtPEE 


OF 44 


0DE4 








ALPEF 


0F55 


ODE 5 








ALPE1 


0EA8 


00D7 








ALPE2 


0EB4 


00D8 








ALPE3 


OEBB 


0DD9 








ALPE4 


0EC3 


ODDA 








ALPE5 


OECF 


ODDB 








ALPE6 


OEDC 


ODDC 








ALPE7 


0EE9 


ODDD 








ALPE8 


0EF8 


ODDE 








ALPE9 


0F05 


ODDF 








ALPFO 


0F65 


0DE6 








ALPF1 


OF 73 


ODE 7 








ALPF2 


0F80 


ODE 8 








ALPF3 


0F91 


0DE9 








ALPF4 


0F9A 


ODEA 








ALPF5 


OF A3 


ODEB 








ALPF6 


0FA7 


ODEC 








ALPF7 


0F37 


ODEO 








ALPF8 


OFAF 


OOEE 








ALPF9 


0FB8 


OOEF 








ALPHO 


OOFO 


0624 








AVG 


090B 


09EE OAOC 


OAOE 


0A2F 




BADCY 


05F0 


086F 0B23 








BDCYL 


080A 


0B64 OB60 


OB 77 


0B79 0B94 0B97 




BEG 


05F3 


OFCC 








BEGIN 


0160 


05F3 








BNDEC 


0DB3 


0D80 0089 


0D91 


0D99 00B4 00C5 




BNTMP 


0620 


0072 0D73 








CKLK 


0674 


OBAF OBEE 


0C11 


OCDF 0CE7 0CE9 


'■^ 


CKLKE 


OCDD 


0675 








CKLKl 


0CE5 


0CE1 








CKLK2 


0CE7 


OCOD 






' 


CKPRA 


0CF1 


OCEB 








CKPRE 


OCEB 


0678 








CKPRT 


0677 


0975 0A3A 


0C06 


X3E 0C4D 0C68 


1 


CKRD1 


OAOA 


0AE7 






"""' 


CKRD3 


0AE3 


0AE6 








CMN1 


0929 


0931 






v_ 


CMN2 


0927 


0933 






DATE 


25JUN71 15DEC71 






EC NO. 


571152 571154 







CMN3 

CMP 

CMPB 

CMPB1 

CMPB2 

CMPB 3 

CMPB4 

CMPB5 

CMPB6 

CMPEX 

CMPTM 

CMPX 

CMP1 

CMP2 

CMP2A 

CMP3 

CMP4 

CMRND 

CMRN1 

CMRTA 

CMRTB 

CMRTD 

CMRTG 

CMRTL 

CMRT2 

CNTA 

CNTB 

CNTL 

CNTLB 

CNTLD 

CNTLE 

COMA 



COUNA 

CCUNE 

COUNT 

CYL 

DATA1 

DATA2 

DATA3 

OFTXT 

DSKMO 

OVA 

OVAS 

EALPH 

END 

ERCT 

ERLCK 

ERROR 

ERSK1 

FILE# 

FORMO 

F0RM1 

FORM 2 

F0RM3 

F0RM4 

F0RM5 

F0RM6 

F0RM7 

F0RM8 

F0RM9 

FRM 

FRMTB 

FRNSK 

FRN1 

FRN2 

FSTNO 



092F 
0C21 
0C59 
0C6A 
0C75 
0C7F 
0C81 
0C83 
0C89 
0C57 
0663 
0C52 
0C2F 
0C33 
0C7A 
0C43 
0C51 
0C8B 
0C8E 
94B 
0952 
0959 
095C 
0941 
0937 
0659 
0631 
088A 
0898 
08A7 
067A 
069C 



0D37 
0D34 
067D 
093F 
0949 
0950 
0957 
OCFE 
0611 
05F7 
05E9 
0006 
0164 
065E 
0166 
0162 
0630 
0626 
0D6B 
0D6D 
0D6E 
0D6F 
0070 
0D72 
007B 
0D7E 
0D8C 
0D8D 
002 A 
0D61 
0653 
0655^ 
0657 
09D3 



0BE8 OCOA 0C55 0C57 
0C5E 0C72 0C85 0C89 0C8F 



0C7E 



0936 
08D3 
0C2B 
0C7C 
0C66 
0C6F 
0C6D 
0C74 
0C69 
0C53 

08 02 
0C4A 
0C37 
0C2E 
0C77 
0C3B 
0C4E 
0C30 
0C32 
094A 
0944 
0958 

09 51 
095A 
092B 

0980 
067B 
08A9 
0890 
08 E7 
0672 
0A76 
0CF5 
0D3C 
067 E 
095F 
0937 
0939 
093A 
093B 
0690 
0AD6 
0821 
081F 
OOAB 
0AA1 
0C2 3 

OOAE 
0967 
0822 
0061 
0D62 
0063 
0D64 
0D65 
0D66 
0D67 
0068 
0069 
006 A 
ODOB 
0057 
0918 
09C5 



099C 09C0 OAOB 0A21 



0BD6 0C27 0C2C 

0C94 
0C3F 

0962 



0988 0A58 0A5E 0A7A 0A93 

0878 0940 0965 0983 0980 0993 09D6 09EC 



08F0 0924 095B 0987 09CA 09E9 0A34 

0830 0848 0866 086D 0871 0942 096A 09A5 09F0 0A04 0A13 0A55 

0AE8 0B36 0B63 0B82 0BD3 0C45 0C47 0C5C 0C60 0CB3 OCBF 0CC6 

0CF8 



09CE 0B47 0B8C 0B91 OBDC OBFl OCOO 0C16 OC B5 0CD4 0D3A 



085E 0861 0880 
0AD7 OBCl 
0834 0AD3 



0D1E 

0C39 0C52 0C63 0C64 



0973 0982 
0825 



0D6C 0D7D 0D8E 



0D2D 0D2F 
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v. 



HCEDC 

HE5E5 

HRORD 

HRDSK 

HROHR 

HUNDR 

HXDC 

H1313 

H3000 

H8000 

ID 

IDS#B 

ILO 

IL1 

IL2 

IL3 

IL4 

INCR1 

INCR2 

INDEX 

INTR 

INTRB 

INTRC 

INTSM 

INT2 

INT2A 

I PA 

KLP13 

KM14 

Kl 



K10TH 

K123 

K2 

K202 

K203 

K23 

K253 

K27 

K3 

K331 

K36 

K370 

K4 

K7 

K8 

LNGTH 

LOG 

LOG BY 

LPA 

LPCNT 

LPRNT 

LP13 

LRN1 

LRN2 

LRTN 

LSTNO 

MASK 

MLSCF 

M0D3 

M0D4 

M005 

M0D6 

M0D7 

MSGC1 

MSGIO 



083B 
0620 
064D 
064A 
0650 
0640 
0622 
060E 
060D 
0615 
0D2C 
0662 
017A 
018A 
019A 
01AA 
01BA 
0912 
0913 
065D 
05F8 
0604 
05FE 
05F6 
0AB6 
OABF 
05E4 
066B 
063D 
0636 



0646 
0669 
0637 
0641 
0642 
063E 
0643 
09F7 
0638 
0644 
063F 
09FE 
0639 
063A 
063B 
065C 
0163 
0167 
05E3 
0032 
0663 
0014 
0656 
0658 
08BB 
0902 
060F 
05E5 
0628 

0629 
062A 
062 B 
062C 
0D8F 
0623 



0867 
092F 

OBFF 0C15 
0B90 

095E 09CD 
ODBB 

0927 09F1 0A06 

OADC OAEE OAEF 

0A69 002E 0D42 

0D09 0D13 0018 0D30 

0A14 OBCA 0C29 0CB2 007E 0D82 



066F 



08F2 08F8 0903 

08F4 08FA 0909 

0C26 0C33 0C35 0C43 0C5A 0C6C 0C7A 0C84 0C9F 
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5.1 TYPICAL PROGRAM PASS 

5.2 TEST PROCEDURE 

5.2.1 TEST ORGANIZATION 

5.2.2 ERROR CHECKING 

5.3 ROUTINE DESCRIPTION 

5.3.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

5.3.2 NORMAL TEST ROUTINE 

5.3.3 OPTIONAL TEST ROUTINE 

5.3.4 TEST SUBROUTINES 

5.3.5 ERROR CONTROL ROUTINES 

5.3.6 INTERRUPT ROUTINE 



PURPOSE 

THE 1132 FUNCTION TEST IS DESIGNED TO CHECK THE OPERATING PERFORMANCE OF THE 
1132 PRINTER AND TO AID IN ITS PROPER ADJUSTMENT. 

PREREQUISITES 

2.1*** PROGRAM PREREQUISITES 

DIAGNOSTIC MONITOR II 

2.2*** EQUIPMENT PREREQUISITES 

1. 1131 MOO 4 CPU 

2. 1132 MOD 2 PRINTER MITH EC 138400 

3. AT LEAST 2000 WORDS OF AVAILABLE CORE STORAGE. 

4. ANY CARRIAGE TAPE. SEE SECTION 5.3.2.8. 

A TAPE 66 SPACES LONG ■ PUNCHED WITH CHANNEL 1 ,2 t 3 ,4,5 ,6,9 , AND 12 
SIX SPACES APART, MAY 8E USED. 
********** 
OPERATING PROCEDURE 

THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC 
MONITOR II DOCUMENTATION. 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

SEE DM USE PROCEDURE FOR 



THESE PROCEDURES ARE SUMMARIZED HERE. 
DETAILS. 



3. 



APPENDIX 

6.1 SAMPLE OUTPUT 



SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO HALT AFTER LOADING 

IF HALTED AFTER LOADING, SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE (SEC 3.5) 

LOAD DIAGNOSTIC MONITOR, AND 1132 FUNCTION TEST. 
****** 



3.2*** PROGRAM OPERATION. 

3.2.1 PROGRAM CONTROL - FUNCTION 



NOTE 

WHEN RUN IN OVERLAP, THE 1132 PRINT BUFFER MAY NOT BE SET UP WITHIN THE 
PRESCRIBED 11 MS AFTER AN EMITTER INTERRUPT. THIS MAY CAUSE ROUTINE 5 TO DROP 
THE FIRST CHARACTER OF THE LINE AND ROUTINE 6 AND 7 TO DROP THE ENTIRE LINE. 



1. 


SET 


SWITCHES 0-7 TO 01. 


2. 


SET 


SWITCHES 8-15 FOR DESIRED FUNCTION. 




SW 


FUNCTION 




8 


RESTART 




9 


ROUTINE START MESSAGE 




10 


LOCK ON FUNCTION 




11 


LOOP PROGRAM 




12 


LOOP ON ERROR 




13 


BYPASS ERROR PRINTOUT AND 1132 PRINT 




14 


HALT ON ERROR 




15 


HALT 



PRESS INT REQ KEY ON CONSOLE. 
** 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE HILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 



1. 



TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



SPECIFY CHANNEL TO SKIP TO 

IN ROUTINES 9 AND A, A CHANNEL CAN BE SELECTED BY A FUNCTION 
2 SWITCH ENTRY. THE ROUTINE WILL THEN SKIP TO THAT CHANNEL 
ONLY. AFTER ENTERING THE ROUTINE, THE CHANNEL IS SPECIFIED 
BY SETTING THE BIT SWITCHES TO 81XX WHERE XX EJUALS THE DSW 
BIT CODE FOR THE DESIRED CHANNEL. 



RTN 



DESCRIPTION 



EMIT SEQUENCE 

PRINT SCAN CHECK INDICATOR 

SPACE WITH PRINTER OFF 

SPACE WITH PRINTER ON 

RIPPLE PRINT 

PRINT ALL CHARACTERS 

STRESS TEST 

CHANNEL IDENTIFICATION 

SKIP WITH PRINTER OFF 

SKIP WITH PRINTER ON 



B 



BIT SWITCH CONTROL 



NORMAL ROUTINE S- 
THE PROGRAM STARTS WITH 
ROUTINE It RUNS EACH 
ROUTINE IN SEQUENCE 
THEN TERMINATES AFTER 
ROUTINE A. 



***************** 

* CHARACTER EMI 
***************** 

* CHARAC 



******************** 

T CODE * CHARACTER 

******************** 
TER EMITTER CODE 



************** 

EMIT CODE * 

************** 



OPTIONAL ROUTINES - RUN 
ONLY IF SELECTED 



3.2.3 



* = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 

C. PRESS INT REQ KEY ON CONSOLE. 

2. TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 
•* 

OPTIONAL CONTROL - FUNCTION 2 AND 3 

1. PRINT ANY CHARACTER 

TEST ROUTINE B ALLOWS THE C.E. TO SPECIFY THROUGH THE BIT 
SWITCHES THE CHARACTER HE DESIRES TO PRINT AND THE COLUMN IN 
WHICH IT WILL BE PRINTED. ONLY ONE CHARACTER WILL BE PRINTED ON 
EACH LINE. 

TO SPECIFY TFE CHARACTER AFTER SELECTING ROUTINE B 

A. SET COLUMN NUMBER (IN BINARYI IN SWITCHES 1-7. 

B. SET THE CHARACTER COOE IN SWITCHES 8-15. 

C. TURN ON SWITCH 0. 

2. MOOIFY SPACE IDLE TIME 

IN ALL ROUTINES THE PROGRAM WILL NORMALLY TAKE 16 IDLES BEFORE 
SPACING AFTER PRINT. THIS IDLE TIME CAN BE INCREASED 
OR DECREASED AS FOLLOWS. 

A. SET SWITCHES 0-7 TO CI. 

B. SET SWITCHES 8-15 TO DESIRED NUMBER OF [OLES I IN BINARY) 

C. PRESS INT REG KEY. 



* 


1 


Fl 


* 


J 


Dl 


* 


* 


2 


F2 


* 


K 


D2 


* 


* 


3 


F3 


* 


L 


D3 


* 


* 


4 


F4 


* 


M 


04 


* 


* 


5 


F5 


* 


H 


35 


* 


* 


6 


F6 


* 





06 


* 


* 


7 


F7 


* 


P 


07 


* 


* 


8 


F8 


* 


Q 


08 


* 


* 


9 


F9 


* 


R 


09 


* 


* 





FO 


* 


E 


C5 


* 


* 


= 


7E 


* 


G 


C7 


* 


* 


$ 


5B 


* 


W 


65 


* 


* 


. 


4B 


* 


X 


E7 


* 


* 


I 


70 


* 


Y 


E8 


* 


* 


t 


63 


* 


I 


E9 


* 


* 


) 


5D 


* 


A 


CI 


* 


* 


- 


60 


* 


B 


C2 


* 


* 


t 


4D 


* 


C 


C3 


* 


* 


+ 


4E 


* 


D 


C4 


* 


* 


/ 


61 


* 


F 


C6 


* 


* 


* 


5C 


* 


H 


C8 


* 


* 


£ 


5D 


* 


[ 


C9 


* 


* 






* 


S 


E2 


* 


* 






* 


T 


E3 


* 


* 






* 


U 


E4 


* 


* 






* 


V 


65 


* 


* 






* 






* 



***************** ********************* ************ # 

NOTE - IN ROUTINE 3 OR 4, THE 39 SPACES EQUALS ONE REVOLUTION 

OF THE PLATTEN WHEN THE CARRIAGE IS SET TO 6 LINES PER INCH. 



DATE 
EC NO. 



25JUN71 
571152 



PROG ID 
PAGE 



032C-* 
2 



DATE 
EC NO. 



25JUN71 
571152 



PROG 10 
PAGE 



032C-* 
2A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 PRINTER FUNCTION TEST 



PART NO. 5889424 
PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 PRINTER FUNCTION TEST 



PART NO. 5889424 
PAGE 3A 



3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



.HALT NO 
•IB REG) 

. 3001 

. 3002 . 


DESCRIPTION 


RESTART 
ACTION 

PRESS START 

DISPLAY MOOE-PRESS START. 
RUN MOOE-PRESS START 


PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 



4. PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT 

(MESSAGE) 

(MESSAGE) 

WHERE 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 



3.3.2 ERROR HALTS 



•HALT NO 


DESCRIPTION 


RESTART 


.(8 REG). 




ACTION 


. 30F1 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD 


. 30F2 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADORESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 


NPRO THEN PLACE CAROS 




MONITOR OR TEST PROGRAM 


RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 


MONITOR DID NOT LOAD 


RELOAD 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30FA 


CONSOLE PRINTER HANG UP - 


FIX THE CONSOLE PRINTER . 




8USY WILL NOT GO OFF 





A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE ID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 
2C FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 



RR 

AAAA 

MESSAGE 

4.1*** STATUS MESSAGES 



IS THE ROUTINE NUMBER 

IS THE ADDRESS OF THE ROUTINE 

IS ANY VARIABLE INFORMATION 



AOOOO 



NUM PIO AORS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTEO FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR). THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



A0001 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTEO EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



A2C00 OOOR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE A. ROUTINE B WILL RUN ONLY IF SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 

****** 



A2C01 OOOR AAAA 



NROY 
1132 



THE 1132 IS NOT READY. 



3.5*** RESTART 



1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 
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4.2*** ERROR MESSAGES 

THE DSW IS CHECKEO FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW HILL INOICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 



***************************************************** 



E0005 OOON XXXX 

THIS ERROR MILL OCCUR IF AN INTERRUPT OCCURS, 8UT THE ILSW 
MAS NOT CORRECT. N I S THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



THE 1132 DSW 



* 






* 


* 


bit 




* 


* 





READ EMITTER RESPONSE 


* 


* 


l 


SKIP RESPONSE 


* 


* 


2 


SPACE RESPONSE 


* 


* 


3 


CARRIAGE BUSY 


* 


* 


4 


PRINT SCAN CHECK 


* 


* 


5 


PRINTER NOT READY 


* 


* 


6 


PRINTER BUSY 


* 


* 


7 


NOT USED 


* 


* 


8 


CHANNEL 1 


* 


* 


9 


CHANNEL 2 


* 


* 


10 


CHANNEL 3 


* 


* 


11 


CHANNEL 4 


* 


* 


12 


CHANNEL 5 


* 


* 


13 


CHANNEL 6 


* 


* 


14 


CHANNEL 9 


* 


* 


15 


CHANNEL 12 


* 


* 






* 



E2C01 OOOR AAAA 



WAS S/B - STATIC DSW ERR 
XXXX 0000 



SOME BIT OTHER THAN NOT READY OR A CHANNEL BIT WAS ON WHEN THE DSW 
WAS SENSED BEFORE GIVING AN 1132 CONTROL COMMAND. USE THE ABOVE 
DSW TABLE TO IDENTIFY THE BIT, THEN TAKE APPROPRIATE CORRECTIVE 
ACTION. 



E2C02 OOOR AAAA 



LAST OP - CCCC 

WAS S/B - BUSY OSW ERR 

XXXX XXXX 



THIS DSW WAS SENSED IMMEDIATELY AFTER THE 1132 CONTROL COMMAND 
IDENTIFIED BY CCCC WAS GIVEN. IF THE COMMAND WAS START PRINTER 
THE PRINTER BUSY BIT (6) SHOULD BE ON. IF THE LAST OP WAS 
SPACE OR SKIP THE CARRIAGE BUSY BIT (31 SHOULD BE ON. THE 
EXPECTED DSW IS IDENTIFIED BY S/B. 



E0001 



it******** ************************************ ******* 



SWS INVLO 
XXXX 



THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



E2C03 OOOR AAAA 



LAST OP - CCCC 
DSW - NO INTRPT 
XXXX 



NO INTERRUPT WAS RECEIVED FOLLOWING THE LAST 1132 CONTROL COMMAND 

IDENTIFIED BY CCCC. THE DSW WAS SENSED AFTER A TWO SECOND DELAY. 

IF THE COMMAND WAS NOT RECEIVED, A BUSY ERROR IE2C32I WILL ALSO 
BE PRINTED. 



E0003 



OVR CORE 



THE PROGRAM WHICH THE LOAOER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOAOING WAS TERMINATED. 



E2C04 OOOR AAAA 



LAST OP - CCCC 

OSW - PRINTER STOPPED 

XXXX 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOAOING THE PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARO IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP OUE TO A MACHINE MALFUNCTION. 

5. OUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



THE PRINTER WAS TURNEO ON, SOME EMIT INTERRUPTS WERE DETECTED, 
THE PRINTER STOPPED. NO PRINTER STOP COMMAND WAS GIVEN. THE 
DSW XXXX WAS SENSED 2 SECONDS AFTER THE LAST INTERRUPT OCCURRED. 



E2C05 OOOR AAAA 



LAST OP - CCCC 

WAS S/B - LEVI DSW ERR 

XXXX YYYY 



THIS OSW (XXXX) WAS SENSED IN INTERRUPT F0LL3WING THE 1132 CONTROL 
COMMAND IDENTIFIED BY CCCC. YYYY IS THE EXPFCTEO OSW. 



E2C06 OOOR AAAA 



EMIT BIT FAILURE 
XXOO YYOO 



THIS ERROR WILL OCCUR IF ANY EMIT BIT /S ALWAYS MISSING (OPEN) 
OR ALWAYS ON (SHORT). XX WILL BE EQl'/.L TO FF IF NO BITS ARE 
MISSING. ANY OPEN BIT WILL BE IDENTIFIED BY A ZERO IN THAT BIT 
POSITION. YY SHOULD BE 00... ANY SHORTED BIT MILL BE IDENTIFIED 
BY A 1 IN THAT BIT POSITION. 
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E2C07 OOOR AAAA 



EMIT INVALD 
XXXX 



E2C15 OOOR AAAA 



THE FIRST EMIT CHARACTER AFTER A START PRINTER WAS NOT VALIO. 
THE XXXX EQUALS THE EMIT CHARACTER READ. 

IF THIS ERROR PERSISTS, BYPASS THE ERROR TYPE OUT (SWITCH 13). 
THE PRINTER WILL THEN PRINT, AND IN ROUTINES 4 AND 5, ANY LINE 
BEGINNING WITH AN INVALID CHARACTER WILL BE SKIPPED. 



CHANNEL SENSE ER 
XXXX YYYY 



CHANNEL BITS SENSEO IN INTERRUPT AFTER A SPACE RESPONSE I XXXXI ARE 
NOT EQUAL TO CHANNEL BITS SENSED APPROXIMATELY 1 MILLISEC LATER 
IN MAINLINE (YYYYI. SINCE NO CARRIAGE COMMANO HAS BEEN GIVEN, THE 
CHANNEL BITS SHOULD BE THE SAME. 

OURING HEAVY CYCLE STEALING OR INTERRUPTING, THIS MESSAGE IS INVALID. 



E2C08 OOOR AAAA 



WAS S/B - EMIT SEQ ERR 
XXXX YYOO 



E2C16 OOOR AAAA 



THE LAST EMIT COOE WAS EITHER INVALID OR OCCURRED IN THE WRONG 
SEQUENCE. YY IDENTIFIES THE EXPECTED EMIT CODE. SECTION 5.4 
CONTAINS A TABLE OF EMIT CODES. 



CHANNEL SENSE ER 
XXXX YYYY 



THE CHANNEL BITS SENSED I MILLISECOND AFTER A SPACE RESPONSE IXXXXI, 
ARE NOT EQUAL TO THE CHANNEL BITS SENSED IMMEDIATELY BEFORE THE 
NEXT EXECUTION OF SPACE COMMAND. 



E2C09 OOOR AAAA 



PRINTER DID NOT TURN OFF 



E2C17 OOOR AAAA 



CARRIAGE BSY 



A STOP COMMANO WAS GIVEN TO THE PRINTER BUT THE PRINTER OID NOT 
GO OFF. 



E2C10 OOOR AAAA 



MULT SPACE INTERRUPTS 



THE CARRIAGE WAS FOUND BUSY BEFORE GIVING A START PRINTER. THE 
START PRINTER COMMAND WAS NOT GIVEN. THE PROGRAM WILL WAIT IN A 
LOOP UNTIL THE CARRIAGE GOES NOT BUSY. THE NROY MESSAGE (A2C01) 
WILL BE PRINTED EACH 10 SECONDS. IF THE LAST COMMANO WAS SKIP, 
THE CARRIAGE DID NOT STOP ON A STOP CARRIAGE COMMANO. 



MORE THAN ONE SPACE INTERRUPT OCCURRED AFTER A SPACE COMMAND, 
OR AN UNEXPECTED SPACE INTERRUPT OCCURRED. 



E2C11 OOOR AAAA MULT SKIP INTERRUPTS 

AN UNEXPECTED SKIP INTERRUPT OCCURRED. 



E2C12 OOOR AAAA 



MISSING CHANNEL 
XXXXX 



ROUTINE 8 SPACES TO A CHANNEL PUNCH IN THE CARRIAGE TAPE, IDENTIFIES 
THAT CHANNEL, THEN GOES TO THE NEXT CHANNEL. THIS IS REPEATED 
UNTIL 16 CHANNELS HAVE BEEN IDENTIFIED. IF ANY OF THE 8 CHANNELS 
IS NOT SENSED, THIS MESSAGE WILL IDENTIFY THAT CHANNEL. CHECK THE 
TAPE TO DETERMINE IF THAT CHANNEL WAS PUNCHED. FURTHER ANALYSIS 
OF THE CARRIAGE CONTROL (RTNS 9 t A) WILL ASSUME THAT THE CHANNEL 
WAS NOT PUNCHED IN THE CARRIAGE TAPE. 



E2C13 0008 AAAA 



CHANNEL SEQ ER 



ROUTINE 8 SPACES TO A CHANNEL PUNCH IN THE CARRIAGE TAPE, IDENTIFIES 
THAT CHANNEL THEN GOES TO THE NEXT CHANNEL AFTER 16 CHANNELS HAVE 
BEEN IDENTIFIED, THE PROCESS IS REPEATED WITH SKIPS. THE CARRIAGE 
IS STOPPED AFTER EACH SKIP INTERRUPT AND THE CHANNEL COMPARED WITH 
SEQUENCE DETECTED WHEN SPACING. THIS MESSAGE IS PRINTED WHEN 
ANY DIFFERENCE IN SEQUENCE IS DETECTED ( USUALLY OUE TO A MISSED 
CHANNEL INTERRUPT OR A CHANNEL NOT DETECTED WHEN SPACING). THE 
CHANNEL SEQUENCE CAN BE DETERMINED FROM THE 1132 PRINTOUT. 



MULT CHANNEL BITS 
XXXX 



E2C14 OOOR AAAA 

MORE THAN ONE CHANNEL BIT WAS ON IN THE OSW (XXXX). 



COMMENTS 

5.1*** TYPICAL PROGRAM PASS 

IF NO OPTIONS ARE SELECTED, THE 1132 FUNCTION TEST WILL RUN 
ROUTINES I THROUGH A THEN TERMINATE. 

5.2*** TEST PROCEDURE 

5.2.1 TEST ORGANIZATION 

TESTS ARE ORGANIZED AS FOLLOWS 

1. INITIALIZE THE TEST ROUTINE 

A. CLEAR THE BUFFER 

B. STOP THE PRINTER 

C. CHECK FOR READY 

D. PRINT HEADER ON 1132 

E. SET ROUTINE TERMINATION CONTROL 

2. INITIALIZE FOR THIS PASS THROUGH THE ROUTINE. 

3. EXECUTE CONTROL COMMAND 

4. CHECK FOR ERRORS 

A. CHECK DSW FOR BUSY 

B. WAIT FOR TIMED PERIOD - TIME OUT IF NO INTERRUPT. 

C. CHECK EMITS FOR VALIDITY AND PROPER SEQUENCE. 

D. CHECK INTERRUPT DSW 

E. CHECK CHANNEL BITS 

5. ANALYZE ERROR DATA ANO PRINT ERROR MESSAGES. 

6. GO TO 2 ABOVE IF LOCK ON FUNCTION. 

7. ADVANCE FOR NEXT PASS THROUGH THE TEST ROUTINE. 

8. GO REPEAT THE ROUTINE IF NOT END OF ROUTINE. 
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5.2.2 ERROR CHECKING 

ALL TEST ROUTINES CONTAIN THE FOLLOWING ERROR CHECKING 

1. DEVICE STATUS CHECK - THE DEVICE STATUS IS READ AND CHECKED 
AS FOLLOWS (THIS ANALYSIS IGNORES THE CHANNEL BITS - SEE 
5.2.2-3). 

A. BEFORE A TEST ROUTINE IS STARTED. THE OSW SHOULD BE ZERO. 
ANY BITS ON OTHER THAN NOT READY OR A CHANNEL BIT WILL BE 
IDENTIFIED BY A MESSAGE (E2C01). IF NOT READY, THE NRDY 
MESSAGE (A2C01) WILL BE PRINTED. 

B. IMMEDIATELY AFTER ANY OPERATION. THE DSW SHOULD SHOW THE 
PRINTER BUSY AFTER A START PRINTER OR THE CARRIAGE BUSY 
AFTER A SPACE OR START SKIP. ALL OTHER BITS SHOULD BE OFF. 
THIS DSW IS SAVED AND CHECKED FOR ERRORS AFTER THE OPERATION 
IS COMPLETED. A MESSAGE IE2C02) WILL IDENTIFY ANY ERRORS. 

C. IN INTERRUPT. THIS DSW IS COMPARED WITH THE EXPECTED DSW 
AND AN ERROR BIT SET IDENTIFYING ANY DIFFERENCES. THE 
MESSAGE IE2C05) IDENTIFYING ANY ERROR IS PRINTED IN MAIN- 
LINE. IF THE INTERRUPT IS EMITTER RESPONSE, THE DSW SHOULD 
SHOW PRINTER BUSY. IF CARRIAGE RESPONSE, THE DSW SHOULO 
SHOW CARRIAGE BUSY. IF SPACE RESPONSE, NO BUSY SHOULD BE 

ON UNLESS THE SPACE WAS GIVEN WITH THE PRINTER ON (R0UTINE4). 

D. BEFORE A START PRINTER COMMAND TO ASSURE THAT THE CARRIAGE IS 
NOT BUSY. START PRINTER IS IGNORED IF THE CARRIAGE IS BUSY 
AND AN ERROR MESSAGE (E2C17) IS PRINTED AND THE PROGRAH 

WILL WAIT IN A LOOP, PRINTING THE NRDY MESSAGE (A2C0D 
EVERY 10 SECONDS. 

2. EMIT CHECK 

WHEN THE PRINTER IS ON AN EMIT RESPONSE OCCURS EVERY 11 
MILLISECONDS. THE EMIT CODE FOR THE FIRST RESPONSE AFTER 
INTERRUPT IS CHECKED FOR A VALID CODE. ALL SUBSEQUENT EMITS 
ARE CHECKED FOR VALID CODE AND FOR PROPER SEQUENCE. 

THE FIRST 100 EMITS AFTER THE FIRST START PRINTER ARE ALSO 
CHECKED FOR OPEN OR SHORTED EMIT BITS. 

3. CHANNEL BIT CHECK 

THE CHANNEL CODE SHOULD NOT CHANGE FROM THE ENO OF ONE CARRIAGE 
COMMANO TO THE START OF THE NEXT. THE CHANNEL CODE IS SENSED 
IN INTERRUPT, ON RETURN TO MAINLINE FOLLOWING A SPACE RESPONSE 
INTERRUPT, AND BEFORE THE NEXT SPACE COMMANO. IF ANY CHANGE IN 
THE CHANNEL CODE IS DETECTED, AN ERROR MESSAGE WILL BE PRINTED 
(E2C15 OR E2C16). 

4. INTERRUPT CHECK 

A. FOLLOWING ANY CONTROL COMMAND, THE PROGRAM WILL WAIT IN A 

TIMED LOOP FOR THE INTERRUPT. EACH TIME AN INTERRUPT OCCURS, 
THE TIMER IS RESET. THE NUMBER OF INTERRUPTS FOR ANY ONE 
CONTROL COMMAND IS COUNTED IN INTERRUPT. THE COMPLETION OF 
ALL OPERATIONS IS DETERMINED IN INTERRUPT. 

IF ANY CONTROL COMMAND SHOULD FAIL TO CAUSE AN INTERRUPT 
RESPONSE, THE INTERRUPT WAIT ROUTINE WILL TIME OUT AND 
AN ERROR MESSAGE WILL BE PRINTEO. IF ANY OPERATION ENDS 
ABNORMALLY (PRINTER GOES OFF, CARRIAGE STOPSI AN ERROR 
MESSAGE WILL BE PRINTED. 



B. THE FOLLOWING FAILURES TO GET INTERRUPT ARE DETECTED 

(1) NO RESPONSE AFTER A CONTROL COMMAND. 

(2) PRINTER STOPPED BUT A PRINTER STOP COMMAND WAS NOT 
GIVEN. 

(3) CARRIAGE STOPPED BUT A CARRIAGE STOP COMMANO WAS NOT 
GIVEN. 

C. THE FOLLOWING EXTRA INTERRUPT WILL BE OETECTED 

(1) MORE THAN ONE SPACE RESPONSE AFTER 4 SPACE COMMAND. 

(2) EMIT RESPONSE AFTER A PRINTER STOP COMMAND. 
(31 SKIP RESPONSE AFTER A CARRIAGE STOP COMMAND. 

5.3*** ROUTINE DESCRIPTION 

THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 
SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR IN 
THE PROGRAM AS FOLLOWS - 

1. TEST SEQUENCE CONTROL ROUTINE 

2. NORMAL TEST ROUTINES 

3. OPTIONAL TEST ROUTINES 

4. TEST SUBROUTINES 

5. ERROR CONTROL ROUTINES 

6. INTERRUPT ROUTINES 



5.3.1 



5.3.2 



TEST SEQUENCE CONTROL ROUTINE - CNTRL 

THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SWI IN THE 
PROGRAM CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS 
TO BE RUN NEXT. IF A TEST ROUTINE HAS BEEN SELECTED IT 
ESTABLISHES A TRANSFER TO THAT ROUTINE. IF NO ROUTINE IS 
SELECTED A TRANSFER IS ESTABLISHED TO THE »<EXT TEST ROUTINE 
IN SEQUENCE. 

THE ROUTINE ADORESS TABLE (RTTBC) WHICH IS PART OF CNTRL, 
CONTAINS THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE 
SEQUENCE IN WHICH THEY ARE TO BE RUN. 

THE LAST TEST ROUTINE IN THE NORMAL SEQUENCE IS IDENTIFIED 
BY THE LABLE NRTN. AFTER THIS ROUTINE IS RUN CNTRL WILL 
TRANSFER TO MONITOR END ANO TERMINATE THE PROGRAM. ROUTINES 
FOLLOWING THE LABLE NRTN ARE CALLED OPTIONAL TEST ROUTINES 
ANO WILL ONLY BE RUN IF SELECTED. 

NORMAL TEST ROUTINES 

IF NO TEST ROUTINE IS SELECTED, THESC ELEVEN TEST ROUTINES 
WILL RUN IN SEQUENCE THEN THE PROGRAM WILL TERMINATE. 

1. TEST ROUTINE 1 - EMIT SEQUENCE TEST. 

THIS TEST ROUTINE IDLES CHE PRINTER FOR 200 READ EMITTER 

RESPONSE INTERRUPTS. "< CHECKS THAT NO EMIT BITS 

ARE OPEN OR SHORTED, 'MO THAT ALL EMITS CODES ARE 
VALIO AND IN THE PROFFR SEQUENCE. 
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2. TEST ROUTINE 2 - PRINT SCAN CHECK INDICATOR TEST. 

THIS TEST ROUTINE IDLES FOR THE PRINTER FOR 100 READ 
EMITTER RESPONSE INTERRUPTS, WITH THE SCAN CHECK 
BIT (BIT 15 IN CORE LOCATION /0027) SET TO ZERO. THIS 
WILL FORCE A PRINT SCAN CHECK ERROR. IF NO SCAN CHECK 
OCCURS AN E2C05 ERROR HILL PRINT. 

3. TEST ROUTINE 3 - SPACE WITH PRINTER OFF. 

THIS TEST ROUTINE CHECKS FOR PROPER SPACE RESPONSE FOR 
BOTH SINGLE AND MULTIPLE SPACES. THE PROGRAM WAITS 
FOR THE SPACE INTERRUPT AND TURNS OFF THE PRINTER 
BEFORE GIVING THE NEXT SPACE COMMAND. LOCK ON FUNCTION 
WILL LOOP ANY SINGLE GROUP OF SPACES. 

4. TEST ROUTINE 4 - SPACE WITH PRINTER ON. 

SAME AS ROUTINE 3 EXCEPT THAT THE PRINTER IS TURNED 
ON BEFORE THE SPACE COMMAND IS GIVEN. 



5. TEST ROUTINE 5 - RIPPLE TEST 

THIS TEST ROUTINE PRINTS A R 
CHARACTERS IN EMIT SEQUENCE. 
FLOATING A •ONE* BIT ACROSS 
ADOR ESSES /0020-/00271 . THI 
TO BE PRINTED FOR EACH EMIT 
LINE 120 EMIT RESPONSES ARE 
WILL THEN IDLE FOR 16 EMITS 
IS GIVEN (THIS SPACE IDLE TI 
FUNCTION 3 SWITCH SETTING). 
IS ROTATED, THUS ALL CHARACT 
POSITION. EACH LINE REQUIRE 
RESULTS IN AN AVERAGE PRINT 
37 LINES PER MINUTE. 
SEE NOTE ON PAGE 1 . 



IPPLE PATTERN OF ALL 

THE PATTERN IS PRINTED BY 
THE PRINT BUFFER (CORE 
S CAUSES ONLY ONE CHARACTER 
RESPONSE. TO PRINT ONE 
REQUIRED. THE PROGRAM 
BEFORE THE SPACE COMMAND 
ME CAN BE CHANGED BY A 

AFTER EACH LINE THE PATTERN 
ERS WILL BE PRINTED IN EVERY 
S 144 EMIT CYCLES. THIS 
SPEED OF APPROXIMATELY 



6. TEST ROUTINE 6 - PRINT ALL CHARACTERS 

THIS TEST ROUTINE PRINTS LINES OF ALL ONE CHARACTER. 
ALL CHARACTERS ARE PRINTEO AT THE SAME TIME. THE 
PROGRAM WILL IDLE 16 EMITS BEFORE THE SPACE COMMANO 
IS GIVEN (THIS SPACE IDLE TIME CAN BE CHANGED BY A 
FUNCTION 3 SWITCH SETTING). SINCE CHARACTERS ARE PRINTED 
IN EMIT SEQUENCE, 48 EMIT CYCLES ARE REQUIRED FOR EACH 
LINE. THIS RESULTS IN AN AVERAGE PRINT SPEED OF ABOUT 
110 LINES PER MINUTE FOR THIS ROUTINE. 
FAILURES SHOWN BY THIS TEST ARE USUALLY THE RESULT OF 
LOAOING OF THE POWER SUPPLY. 
SEE NOTE ON PAGE 1 . 

7. TEST ROUTINE 7 - STRESS TEST 

THIS ROUTINE PRINTS LINES OF JNE CHARACTER WITH A 
MINIMUM OF TIME BETWEEN LINES. THE ROUTINE SETS THE BUFF 
TO ONES AND PRINTS WITH NO DATA CONTROL. AFTER EACH 
LINE THE ROUTINE WILL IDLE FOR 16 EMIT CYCLES, SPACE, 
THEN IDLE AN ADDITIONAL 16 EMIT CYCLES BEFORE PRINTING 
THE NEXT LINE. THIS RESULTS IN AN AVERAGE SPEED OF 
APPROXIMATaY 150 LINES PER MINUTE. FAILURES SHOWN 
BY THIS TEST ARE USUALLY THE RESULT OF LOADING OF THE 
POWER SUPPLY. 
SEE NOTE ON PAGE 1 . 



5.3.3 



8. TEST ROUTINE 8 - CHANNEL IDENTIFICATION 

THIS TEST ROUTINE CHECKS FOR PROPER DETECTION OF THE 
PUNCHES IN THE CHANNEL TAPE BOTH WHEN SPACING AND 
SKIPPING. THE CARRIAGE CONTROL TAPE MAY BE OF ANY 
LENGTH WITH ANY SEQUENCE OF PUNCHES SO LONG AS THE 
TOTAL NUMBER OF PUNCHES DOES NOT EXCEED 16. 

THE ROUTINE FIRST SPACES TO EACH CHANNEL PUNCHED IN THE 
CARRIAGE TAPE, IDENTIFIES THAT CHANNEL BY A MESSAGE 
PRINTED ON THE 1132, THEN RECORDS THE SEQUENCE IN WHICH 
THE CHANNELS OCCUR. 

AFTER SPACING TO 16 CHANNELS, THE ROUTINE WILL SKIP TO 
EACH OF THESE CHANNELS. THE CARRIAGE IS STOPPED AFTER 
EACH CHANNEL RESPONSE INTERRUPT, THE CHANNEL IS 
IDENTIFIED BY A MESSAGE PRINTED ON THE 1132, THEN THE 
SEQUENCE OF THE CHANNEL RESPONSE IS COMPARED TO THE 
SEQUENCE SEEN WHEN SPACING. IF THESE SEQUENCES DO 
NOT AGREE AN ERROR MESSAGE IS PRINTED. 

9. TEST ROUTINE 9 - SKIP WITH PRINTER OFF. 

THIS ROUTINE CHECKS SKIP TO A SPECIFIC CHANNEL. A 
START SKIP COMMAND IS GIVEN AND EACH CHANNEL RESPONSE 
CHECKED FOR THE DESIREO CHANNEL. WHEN A MATCH IS FOUND 
A STOP CARRIAGE IS GIVEN AND THE CHANNEL IDENTIFIED 
BY AN 1132 MESSAGE. THE CARRIAGE WILL ALSO BE STOPPED 
AFTER 16 CHANNEL RESPONSES WITHOUT A MATCH. 

10. TEST ROUTINE A - SKIP WITH PRINTER ON. 

THIS ROUTINE IS THE SAME AS TEST ROUTINE 9 WITH THE 
EXCEPTION THAT THE PRINTER IS TURNED ON BEFORE THIS 
SKIP COMMAND IS GIVEN AND KEPT ON WHILE SKIPPING. THIS 
TESTS FOR INTERACTION BETWEEN READ EMITTER AND SKIP 
RESPONSES. 

OPTIONAL TEST ROUTINE - 

TEST ROUTINE B - BIT SWITCH CONTROL 

THIS TEST ROUTINE ALLOWS THE CE TO SPECIFY THROUGH THE BIT 
SWITCHES THE CHARACTER HE DESIRES TO PRINT AND THE COLUMN 
IN WHICH HE WILL PRINT THAT CHARACTER. ONLY ONE CHARACTER 
WILL BE PRINTED ON EACH LINE. 

THE COLUMN NUMBER MUST BE ENTERED IN SWITCHES 1-7, AND THE 
CHARACTER CODE IN SWITCHES 8-15. PRINTING WILL START WHEN 
SWITCH IS TURNED ON. 
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5.3.4 TEST SUBROUTINES 

THE FOLLOWING FUNCTIONS ARE PERFORMED BY SUBROUTINES IN THE 

PROGRAM. 

1. INITIALIZE - CLEAR THE BUFFER, STOP THE PRINTER, CHECK 
FOR REAOY, AND PRINT THE ROUTINE HEADING ON THE 1132. 

2. PRINT - CHECK FOR CARRIAGE BUSY, SET THE SCAN COUNT, 
START THE PRINTER, CHECK THE BUSY DSW, THEN WAIT FOR 
THE SCAN COUNT TO GO TO ZERO. 

3. IDLE - SET THE IDLE COUNT, CHECK FOR CARRIAGE BUSY, 
START THE PRINTER, CHECK THE BUSY DSW. THEN WAIT FOR 
THE IDLE COUNT TO GO TO ZERO. 

4. SPACE - STOP THE PRINTER, CHECK FOR CHANGE IN CHANNEL 
COOE, START SPACE, CHECK THE BUSY DSW, THEN WAIT FOR 
THE SPACE INTERRUPT. 



5.3.5 



ERROR CONTROL ROUTINES 



5. 



7. 



SKIP - SET OESIRED CHANNEL COOE, START SKIP, CHECK 
BUSY DSW, THEN WAIT UNTIL A CARRIAGE STOP IS GIVEN IN 
INTERRUPT. 

STOP THE PRINTER - STOP THE PRINTER ANO RESET ALL 
PRINTER TEST CONTROL WORDS. 

PRINT 1132 MESSAGE - SET UP THE MESSAGE BUFFER USING 
A MESSAGE CODE IN THE CALLING SEQUENCE. THIS MESSAGE 
CODE IDENTIFIES THE PHRASES CONTAINED IN THE MESSAGE 
TABLE WHICH ARE TO BE USED IN THE MESSAGE. 

RIPPLE PATTERN - IDLE UNTIL MATCH BETWEEN EMIT ANO 

FIRST CHARACTER IN NEXT LINE. WHEN MATCH FOUND SET 

FIRST BIT IN BUFFER, INITIALIZE FOR PRINT RIPPLE, 
THEN GO TO PRINT SUBROUTINE. 

CLEAR BUFFER - CLEARS BOTH THE 1132 MESSAGE BUFFER AND 
THE PRINT BUFFER-CORE LOCATIONS /0020-/0027. ALSO SETS 
THE SCAN COMPLETE BIT - BIT 15 IN CORE LOCATION /0027. 



10. 



SET BUFFER TO ONES 
/002 TO /0027. 



SETS ALL BITS ON IN CORE LOCATIONS 



11. 



12. 



REAOY - CHECKS 1132 FOR READY. PRINTS AN ERROR MESSAGE 
IF ANY BIT OTHER THAN NOT READY ON. PRINTS NRDY IF 
NOT REAOY BIT ON. 

FORM CHECK - CHECKS FOR FORMS CHECK AFTER SPACE OR 
SKIP. PRINTS NRDY IF FORM CHECK. 



INTERRUPT WAIT ROUTINE 

ALL SUBROUTINES COME HERE AFTER THE START OF AN I/O 
OPERATION FROM WHICH AN INTERRUPT IS EXPECTED. THIS 
ROUTINE RESETS ALL ERROR CONTROL WORDS, SENSES AND 
STORES THE BUSY DSW, THEN WAITS IN A TIMED LOOP (AT 
LEAST 2 SECONDSI FOR THE OP COMPLETE INTERRUPT. 

IF NO OP COMPLETE INTERRUPT IS RECEIVED THE FOLLOWING 
ERROR MESSAGES ARE PRINTED. 



B. 



E2C02 IF BUSY DSW ERROR 



E2C03 IF NO INTERRUPT 



IF AN INTERRUPT IS RECEIVED THIS ROUTINE WILL CHECK 
FOR PROPER PERFORMANCE OF THE OPERATION. THE FOLLOWING 
CHECKS ARE MADE AND ERROR MESSAGES PRINTED IF 
APPROPRIATE 

A. E2C02 IF BUSY DSW ERROR 

B. E2C05 IF INTERRUPT OSW ERROR 

C. E2C06, E2C07 OR E2C08 IF EMIT ERROR 

D. E2C15, IF CHANNEL CODE CHANGED AFTER SPACE RESPONSE. 



THE ROUTINE WILL THEN CHECK FOR NOT READY (USUALLY DUE 
TO FORM CHECK). IF NOT READY, NRDY IS PRINTED. IF 
READY, THE ROUTINE WILL RETURN TO THE I/O SUBROUTINE 
FROM WHICH IT WAS ENTERED. 

PRINT ERROR MESSAGES 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE 
MESSAGE IS THE FIRST ERROR MESSAGE FOLLOWING AN I/O 
CONTROL COMMAND A LAST OP MESSAGE WILL PRECEEO THE 
ERROR MESSAGE. THIS LAST OP MESSAGE WILL IDENTIFY 
THE LAST I/O CONTROL OPERATION EXECUTED. THE ERROR 
MESSAGE FOLLOWING REFERS TO ERRORS DETECTED IN THAT 
OPERATION. 
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5.3.6 INTERRUPT ROUTINE 

ALL INTERRUPTS ARE HANOLEO BY A COMMON INTERRUPT ROUTINE. THIS 
ROUTINE SENSES AND STORES THE DSW, SERVICES THE APPROPRIATE 
RESPONSE, CHECKS THE DSW FOR EXPECTEO BITS, THEN RETURNS TO THE 
MONITOR INTERRUPT ROUTINE. 

1. READ EMIT RESPONSE 

ALL EMIT CODES ARE CHECKED FOR VALIDITY AND FOR PROPER SEQUENCE. 
THE PRINT BUFFER IS THEN SET UP UNDER CONTROL OF THREE CODE WORDS 
AS FOLLOWS. 



LABEL 



SCNCT 



MSGSW 



IDLCT 



DESCRIPTION 



* SCAN COUNT 



FUNCTION 

PRINT IF 
GREATER THAN 1 
CLEAR BUFFER IF 
IDLE IF = 



ESSAGE SWITCH 


* 
* 
* 
* 
• 
* 
* 
* 
* 


PRINT MESSAGE 

IF ON AND 

SCNCT GREATER THAN 1 


DLE COUNT 


IOLE IF GREATER THAN 0. 
STOP PRINTER AND 
RETURN TO MAINLINE 
IF » 



SPACE 3 



SPACE 3 



SPACE 3 



SPACE 4 



SPACE 4 



SPACE 4 



SPACE 9 



SPACE 39 

RT4 SPACE TEST -PRINTER ON 



(IRREGULAR SPACING BETWEEN LINES) 
(IRREGULAR SPACING BETWEEN LINESI 
(IRREGULAR SPACING BETWEEN LINES) 

(IRREGULAR SPACING BETWEEN LINES) 



(IRREGULAR SPACING BETWEEN LINES) 
( 39 SPACES EQUALS 1 REVOLUTION 
OF THE PLATEN AT 6 LINES/INCH) 



SKIP RESPONSE 

SKIP IS CONTROLLED BY THE SKIP TO SWITCH (SKPTO). IF THIS 
SWITCH IS ZERO, THE SKIP RESPONSE ROUTINE WILL STOP THE 
CARRIAGE AFTER EACH SKIP RESPONSE. IF SKPTO IS NOT ZERO. IT 
CONTAINS THE CHANNEL CODE OF THE OESIREO CHANNEL. THE 
CARRIAGE IS STOPPED WHEN A MATCH IS FOUNO. IF AFTER 16 SKIP 
RESPONSES NO MATCH IS FOUND, THE CARRIAGE WILL BE STOPPED. 



6. APPENDIX 

RT1 EMIT TEST 

RT2 SCAN CHECK TEST 

RT3 SPACE TEST -PRINTER OFF 

SPACE 1 

SPACE I 

SPACE 1 

SPACE I 

SPACE 1 

SPACE 2 

SPACE 2 

SPACE 2 

SPACE 2 

SPACE 2 



RT5 RIPPLE PATTERN TEST 



(PRINTOUT IS THE SAME AS 
RT3 SPACE TEST -PRINTER OFF) 



(THIS IS ONLY THE 1ST 80 CHARACTERS 



XZBDHSU135780*')(/£KM0QEWYACFITV2469=. ,-♦» JLNPRG XZB0HSU135 780$ • ) (/GKMOQEWY ACFIT 
ZBDHSU135780*')(/6KMOQEWYACFITV2469=.,-+* JLNPRG XZBOHSU 135780*' )( /SKMQQEWYACFITV 
80HSU135 780*' ></SKM0QEWYACFlTV2469=.,-** JLNPRG XZBDHSU135780*' ) (/6KM0QEWYACF ITV2 
DHSU135780*'M/£KM0QEWYACFITV2469=.,-**JLNPRG XZBDHSU135780* • > ( /SKM0QEWYACFITV24 
HSU1 35780*') ( /6LKM0QEWYACF IT V2469=.,-+» JLNPRG XZBDHSU 135780*' )( /SKMOQEWY ACFIT V246 
SU1 35780*' M/fiKMOQEWYACF I TV2469=.,-t* JLNPRG XZBDHSU1 35780*' )( /&KM0QEWVACFITV2469 
U135780*')(/£KMOQEWYACFITV2 469=. ,-♦* JLNPRG XZBDHSU1 35780* • )( /CKMOQEWYACF I TV2469= 
135780*' )(/£KM0QEWYACFITV2469=.,-**JLNPRG XZBDHSU135780*' X /£KM0QEWYACFITV2469=. 
3 5780*'M/£KM0QEWYACFITV2469=. ,-+*JLNPRG XZB0HSU135780*' ) 1/&KM0QE WVACFITV2469=. , 
5780*' ) ( /6KM0QEWY ACF ITV2469 = .,-**JLNPRG XZB0HSU135780*' ) ( /£KM0QEWYACFITV2469=. .- 
780*' H/6KM0QEWYACF I TV2469=.,-+* JLNPRG XZBDHSU135T80*' ) ( /SKMOQEWYACF ITV2469= . ,-♦ 
80*' )(/£KM0QEWYACFITV2469=. ,-♦* JLNPRG XZB0HSU1 35780*' ) ( /&KMOQEWYACFI TV2469=. ,-«•* 
0*' ) (/£KM0QEWYACFITV2469=.,-+*JLNPRG XZBDHSU135780*' ) ( /&KMOQE WYACFI TV2469=. ,-♦* J 
•H/SKMOQEWYACF I TV2469=.,-+* JLNPRG XZBOHSU 135780*' ) I /£KM0QEWYACFITV2469=. ,-♦* JL 
• >{/6KM0QEWYACFITV2469=.,-+*JLNPRG XZBDHSU1 35780*' ) ( /6KM0QEWVACF I TV2469=. ,-♦* JLN 
) 1/&KM0QEHY ACF IT V2469=.,-t* JLNPRG XZBDHSU 135780*' ) ( /SKMOQEWYACF ITV2469=. ,-♦* JLNP 
(/6KM0QEWYACF I TV2469=.,-+* JLNPRG XZBDHSU135780* ' ) ( /£KN0QEWVACFITV2469=. ,-♦* JLNPR 
/£KM0QEWYACFITV2469=.,-+* JLNPRG XZBDHSU135780*' H /£KMOQEWYACF I TV2469=. ,-+* JLNPRG 
tKMOQEWYACF I TV2469=.,-** JLNPRG XZBDHSU135780*' )( /£KM0QEWYACF I TV2469- .,-♦* JLNPRG 
KMOQEWYACF IT V2469=.,-+* JLNPRG XZ B0HSU135780*' ) I /tKMOQEWYACF I TV2469=. .-♦* JLNPRG X 
M0QEWYACFITV2469=.,-+*JLNPRG XZBDHSU 135780*' ) (/6KM0QEWYACFITV2469=. ,-♦* JLNPRG XZ 
0QEWYACFITV2469=.,-+* JLNPRG XZB0HSU135780*' ) ( /SKMOQEWYACF ITV2469=.,-*»JLNPRG XZB 
QEWYACF I TV2469=.,-+* JLNPRG XZBDHSU135780* • ) ( /tKMOQEWYACFI TV2469=. ,-+*JLNPRG XZBD 
EWYACF IT V2469=.,~»* JLNPRG X ZB0HSU135780*' M/SKMOQEWYACFI TV2469=. ,-♦* JLNPRG XZBDH 
WYACF IT V2469=.,-** JLNPRG XZ BDHSU 135780*' )( /tKMOQEWYACF IT V2469 =.,-♦* JLNPRG XZBDHS 
YACFITV2 469=.,-+* JLNPRG XZ BDHSU 1 35780*' )( /tKMOQEWYACF I TV2469». ,-+* JLNPRG XZBDHSU 
ACF I TV2469=.,-** JLNPRG X ZBDHSU13 5780*' )( /tKMOQEWYACF I TV2469=. ,-♦* JLNPRG XZBDHSU1 
CF IT V2469=.,-+* JLNPRG XZBDH SU1 35 780*' )( /EKMOQEWYACFI TV2469«. ,-♦* JLNPRG XZBDHSU13 
F IT V2469=. ,-♦* JLNPRG X ZBDHSU1357 80*' )( /tKMOQEWYACFI TV2469=. ,-♦* JLNPRG XZBDHSU135 
I TV2469=.,-** JLNPRG XZBDHSU 13578 0*' )( /6KM0QEWY ACFIT V2469=.,-»* JLNPRG XZBDHSU1357 
TV2469=.,-**JLNPRG XZBDHSU1 35780 *•)( /SKMOQEWYACF I TV2469=. ,-+* JLNPRG XZBDHSU13578 
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V2469=.,-t* JLNPRG XZBDHSU 13 5780* • I t /£KMOQE WYACF I TV2469=. ,-♦* JLNPRG X ZBDHSU13 5780 
2469=.,-**JLNPRG XZBDHSU135780*' )( /6KM0QEWYACF ITV2469=. ,-♦* JLNPRG XZBDHSU135780$ 
469=.,- + *JLNPRG XZBOHSU135780$') l/£KMO0EWYACF ITV2469=. ,-+*JLNPRG XZBDHSU135780*' 
69=., -♦♦JLNPRG XZB0HSU135780$MI/£KM00£WYACFITV2469=. ,-+*JLNPRG XZBDHSU135780$' ) 
9=.,-+* JLNPRG XZBDHSU135780$')I/£KM0QEWYACFITV2469=., -♦♦JLNPRG XZB0HSU135780* • > ( 
=., -♦♦JLNPRG XZ8DHSU135780$')I/£KMOQEWYACFITV2469=., -♦♦JLNPRG XZB0HSU135780*' )( / 
.,-** JLNPRG XZBOHSU 135780$' )( /£KM0QEWYACFITV2469=. ,-♦* JLNPRG XZBDHSU 135 78 0* ' ) I /£ 
,-♦* JLNPRG XZBDHSU135780*' ) i/£KMOQEWYACF ITV2469=. , -♦♦JLNPRG XZBOHSU135780*' )( /£K 
-♦♦JLNPRG XZBOHSUl 35780* Ml /£KMOQEWYACF I TV2469=. ,-♦* JLNPRG XZ8DHSU135780$' ) 1 /£KM 
♦♦JLNPRG XZB0HSU135780$' > 1/ EKM0QEWYACFITV2469=. , -♦♦JLNPRG XZBDHSU135730$M I /£KMO 
• JLNPRG XZBOHSUl 35780$' II /£ KMOQE WYACF IT V2469=. ,-♦♦ JLNPRG XZBDHSU135780$' ) I /£KMOQ 
JLNPRG XZB0HSU135780$' 1 1 /£KM0QEWYACFITV2469=. ,-♦* JLNPRG XZB0HSU135780$' ) 1 /6KM0QE 
LNPRG XZBDHSU135780$« ) I MKMOQEWY ACF ITV2469*. ,-+*JLNPRG XZBDHSU135780$' ) I /&KNOQEH 
NPRG XZB0HSU135780$ ■) I /£KM0QEWYACFITV2469=. ,-♦* JLNPRG XZ80HSU135780$' >l /6KM0QEWY 
PRG XZB0HSU135780$« )I/EKM0QEWYACFITV2469=.,-+*JLNPRG XZBOHSUl 35780$ • )(/£KMOQEWYA 
RG XZBOHSUl 35780*' ) t /£KMOQE WYACF ITV2469=. ,-+* JLNPRG XZBOHSUl 3 5780$' 1 1 /£KMOQEWYAC 
G XZBOHSUl 35 780*') I /£KMOQEWYACFI TV2469=. ,-♦* JLNPRG XZBDHSU135780$» ) ( /£KMOQEWYACF 
XZBDHSU135780$M (/£KMOQEWYACF IT V2469=.,-+* JLNPRG XZB0HSU135 780$' )( /£KMOQEWYACFI 
XZBOHSUl 35780$' » I /£KM0QEWYACFITV2469*=. ,-♦* JLNPRG XZBOHSUl 35780$' J l/EKMOQEWYACF IT 
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RT6 ALL CHARACTERS TEST 



XXXXXXXXXXXXXXXXXXXXXXXXXXX 

zzzzzzzzzzzzzzzzzzzzzzzzzzz 

BBBBB8BBBBBB8BB8BB8BBBBBBBB 
DOOODODOODODDDODDODODDODOOO 
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777777777777777777777777777 
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OCOOOOOOOOOOOOOOO 0000000000 

$$$$$$$$$$$$$$$$$$$$$$$$$$ 



(THIS IS ONLY THE 1ST 80 CHARACTERS 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
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SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 

li in in nun u in in mill u mi ii ii ii inn in u in 

33333 333333333333333333333333333333333333333333333333 
55555 55555555555555555555 55555 55555555555 555555555555 
777777777777 77777777777777777777777777777777777777777 
888888888888888888888 88888888888888888888888888888888 
00000000000000000000000000000000000000000000000000000 

«$$$$$$$$$$$$$$$$$*$$$$$$$$$$$$$$$$***$$$$$$$$$$$$$$$ 
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TTTTTTTTTTTTTTTTTTTTTTTTTTT 

vvvvvvvvvvvvvvvvvvvvvvvvvvv 
zzzzzzzzzzzzzzzzzzzzzzzzzzz 

444444444444444444444444444 
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YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

iiiii in in i ii i ii 1 1 nun iiiii iiiii iiiii i iiiii ii inn 

TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 
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44444444444444444444444444444444444444444444444444444 
66666666666666666666666666666666666666666666666666666 
99999999999999999999999999999999999999999999999999999 



RT7 STRESS TEST 

RT8 SKIP CHANNEL TEST 

INITIALIZE RT8 RT9 RTA 
SPACE TO CHANNEL 

CHANNEL 1 

■ 

CHANNEL 9 

CHANNEL 12 
SKIP TO CHANNEL 

RT9 SKIP TEST -PRINTER OFF 
SKIP TO CHANNEL 1 

CHAMMEL 1 

SKIP TO CHANNEL 9 



CHANNEL 9 

SKIP TO CHANNEL 12 



CHANNEL 12 

RTA SKIP TEST -PRINTER ON 



(THIS ROUTINE PRINTS THE FIRST 
CHARACTER FOUND IN ALL POSITIONS.! 



(THESE PRINTOUTS WILL VARY WITH THE 
CARRIAGE TAPE THAT IS ON THE 1132. 
ANY CHANNELS THAT ARE MISSING WILL 
CAUSE A MESSAGE TO BE TYPED. THIS 
EXAMPLE HAS ONLY 1 , 9 £ 12 PUNCHESI 



(IRREGULAR SPACING BETWEEN LINES) 

{IRREGULAR SPACING BETWEEN LINES) 
ITHE ABOVE PRINTOUT IS REPEATED ) 



IPRINTOUT IS THE SAME AS 
SPACE TO CHANNEL TEST ) 



(IRREGULAR SPACING BETWEEN LINES) 

(IRREGULAR SPACING BETWEEN LINES) 

(IRREGULAR SPACING BETWEEN LINES) 

(IRREGU'.AR SPACING BETWEEN LINES) 



♦ ♦♦+♦♦♦♦♦♦+♦♦♦♦+♦♦++♦♦♦♦+♦♦++♦♦♦+♦♦♦♦♦+♦♦+♦♦♦♦+♦♦++♦♦♦♦♦♦+♦+♦+♦♦♦++♦♦♦+♦♦+♦♦♦♦«.♦ 

******************************************************************************** 
JJJJJJJJJJJJJJJJJJJJJJJJJJJ JJJJJJJJ JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ JJJJJJJJ 

LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL 



(PRINTOUT IS THE SAME AS 
RT9 SKIP TEST -PRINTER OFF ) 
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*********************************************************************** 
* 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS HILL NOT RUN WITH DIAGNOSTIC MONITOR II. 



THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



t *********************************************** ******************* 
******************************************** 

* 



0160 





0161 





0162 





0163 





0164 






0165 
0166 
016? 



017A 





018A 





019A 





01AA 





01BA 





01BB 





01BC 





01BD 






05DC 



1130 - 1132 PRINTER FUNCTION TEST 



* 

******************************************** 

* 

* 

* 

******************************************** 

* EQUATE TABLE 

******************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABLES 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 

* 

* MONITOR ENTRY ADDRESSES 



EQU 
EQU 
EQU 
EQU 
EQU 



BEGIN 

START 

ERROR 

LOG 

END 

* 

* 

* 

* 

RTNSW EQU 

ERLCK EQU 

LOGBY EQU 
* 



/160 BEGIN ROUTINE 

BEGIN&l SUPERVISOR ROUTINE 

STARTK1 ERROR LOG ROUTINE 

ERR0R61 STATUS LOG ROUTINE 

L0G61 END ROUTINE 



MONITOR CONTROL WORD AODRESSES 



END61 
END62 
ENDS3 



ROUTINE START SW 
LOCK ON ERROR CONTROL 
I/O BUSY SW ADDRS 



* 

* 

ILO 

IL1 

IL2 

IL3 

IL4 

RQTY 

RQKB 

SVKB 

* 

***** 

* 

* 

* 

* 
* 

* 

* 
* 
* 



INTERRUPT TRANSFER VECTOR ADDRESSES 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ECU 



/17A 

IL06.16 

ILIS16 

IL2C16 

IL3U6 

IL461 

RQTYU 

RQKB&1 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



*************************************** 
ORG *S/05DC 



THE MONITOR USES CORE LOCATIONS 0-05DC. 
FOR CONTENTS OF THESE AODRESSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



32C00020 

32C 00030 

32C00040 

32C 00050 

32C00060 

32C00070 

32C00080 

32C00090 

32C00100 

32C00110 

32C00120 

32C00130 

32C00140 

32C00150 

32C00160 

32C00170 

32C0O180 

32C00190 

32C 00200 

32C00210 

32C00220 

32C00230 

32C00240 

32C00250 

32C00260 

32C00270 

32C00280 

32C00290 

32C00300 

32C00310 

32C00320 

32C00330 

32C00340 

32C00350 

32C00360 

32C00370 

32C00380 

32C00390 

32C00400 

32C00410 

32C00420 

32C00430 

32C00440 

32C00450 

32C00460 

32C00470 

32C 00480 

32C00490 

3 2C 00 500 

32C00510 

32C00520 

32C00530 

32C00540 

32C00550 

32C00560 

32C00570 

32C00580 

32C00590 

32C00600 

32C00610 

32C00620 

32C00630 

32C00640 

32C00650 

32C00660 

32C 00670 

32C00680 

32C00690 



05E8 
05E9 
05EB 
05EC 
05ED 
05EF 
05F0 



6131 

C500 OCBF 

1808 

1008 

D500 OCBF 

71FF 

70F8 



******************************************** 

* PROGRAM CONTROL TABLE 
******************************************** 

* 

PROGRAM ID 
ROUTINE ID 
ROUTINE ADORS 
PROGRAM CONTROL 
ROUTINE SELECTION 
SCAN START CHARACTER 
SPACE AFTER PRINT DLY 

RESTART ADDRESS 

SET BY WAIT RTN AND MON 
SET BY CNTRL AND INRTPT 
TERMINATOR 

* 
******************************************** 

* TEST INITIALIZATION 

******************************************** 

* 
* 
* 
* 
BGIN 



05DC 





032C 


PID 


oc 


/032C 


5DD 





0000 


RIO 


DC 


*-* 


350E 





0000 


RAD 


OC 


*-* 


050F 





0000 


SWO 


DC 


*-* 


05E0 





0000 


SW1 


DC 


*-* 


05E1 





0000 


SW2 


DC 


*-* 


05E2 





0012 


SW3 


DC 


13 


05E3 


I 


05F4 




DC 


STRT 


05E4 


1 


5F4 


* 
MLSCF 


DC 


STRT 


05E5 





0000 


OC 


*-* 


05E6 





0000 




DC 


*-* 


05E7 





FFFF 




DC 


/FFFF 



05F1 4480 0160 
05F3 I 05DC 



LDX 

LD 

SRA 

SLA 

STO 

MOX 

MDX 

BSI 

DC 



REMOVE BITS 8-15 OF EMITTER WORD 



I CHARF-CHAR NUMBER OF POSITIONS 



LI CHAR-1 

8 

8 
LI CHAR-1 
1 -1 

8GIN&1 



I 



BEGIN 
PID 



GET CHAR 

* SHIFT OFF BITS 

* RESTORE 

* AND PLACE BACK 



SIGNAL MONITOR 
PCT ADDRESS 



START OF TEST AND SINGLE PASS INITIALIZATION 



05F4 
05F5 
05F6 
05F7 
05F9 
05FB 
05FC 
05FE 
0600 
0602 
0603 
0604 
0606 
0608 



6100 
69E7 
69EA 
6D00 
6000 
6164 
6D00 
CCOO 
DC 00 
6112 
69DE 
6500 
6D00 
4000 



* 
STRT 



OAEO 
078F 

OCOE 
OBFE 
OBFC 



0B6A 
018A 



LDX 
STX 
STX 
STX 
STX 
LDX 
STX 
LCD 
STD 
LDX 
STX 
LDX 
STX 
BSI 



1 

1 RID 

1 SW2 
LI WAIT 
LI SW89A 

1 100 
LI EMTCT 



L ANDOR 
L ANOEM 

1 18 

1 SW3 
LI PIRT 
LI IL1 
CNTRL 



SET TO START WITH 

FIRST ROUTINE 
RESET CHAR SELECT 



SET EMIT CHECK CNT 

SET EMIT CK CONSTANT 

RESET SPACE DELAY 

SET INTERRUPT AORS 
GO TO CONTROL RTN 



0609 0000 
060A C0D5 
060B 1 4C08 0614 

060D DOCF 
060E 9015 



******************************************** 

* SEQUENCE CONTROL ROUTINE 
******************************************** 

* THIS ROUTINE CHECKS SWITCHES ANO CONTROLS 

* SEQUENCE IN WHICH TEST ROUTINES ARE RUN. 

* 



BR IF NO RTN SELECTD 



CNTRL 


DC 




*-* 




LD 




SW1 




BSC 


L 


CN20.K 


* 








CN10 


STO 




RID 




S 




RIDCK 



SAVE NEW RTN NUMBER 



32C00700 
32C00710 
32C 00720 
32C00730 
32C00 740 
32C 00750 
32C00760 
32C00770 
32C00780 
32C00790 
32C 00800 
32C00810 
32C00820 
32C 00830 
32C00840 
32C008 50 
32C 00860 
32C00870 
32C00880 
32C 00890 
32C00900 
32C00910 
32C00920 
32C00930 
32C00940 
32C00950 
32C00960 
32C00970 
32C00980 
32C00990 
32C01000 
32C01010 
32C01020 
32C01030 
32C01040 
32C01050 
32C01060 
32C01070 
32C01080 
32C01090 
32C01100 
32C01110 
32C01120 
32C01130 
32C01140 
32C01150 
32C01160 
32C01170 
32C01180 
32C01190 
32C01200 
32C01210 
32C01220 
32C01230 
32C01240 
32C01250 
32C01260 
32C01270 
32C01280 
32C01290 
32C01300 
32C01310 
32C01320 
32C01330 
32C01340 
32C01350 
32C01360 
32C01370 



^ 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



PROG ID 


032C-0 


DATE 


25JUN71 


15DEC71 


PAGE 


1 


EC NO. 


571152 


571154 



PROG ID 
PAGE 



032C-0 
1A 
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PART NO. 
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2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 FUNCTION TEST 



PART NO. 
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5889422 
2A 



060F 1 4C08 061A 

0611 1810 

0612 DOCD 

0613 D0C9 

0614 I 7401 050D 

0616 C0C6 

0617 9000 

0618 44B0 0164 

061A I 6 580 050D 
061C 1 C500 0625 

OOBF 

D400 0165 

D0C4 



061E 
061F 
0621 
0622 4480 0161 



0624 0008 
062 5 OOOA 



0626 


1 


0631 


0627 


1 


0645 


0628 


1 


0667 


0629 


1 


069E 


062A 


1 


06C6 


0628 


1 


06E0 


062C 


1 


0709 


062D 


1 


0790 


062E 


1 


0807 


062F 


1 


0835 


0630 


1 


086D 



0631 I 4400 08BD 

0633 0048 

0634 6164 

0635 1 6D00 06DE 



0637 


1 


6C00 


0AC5 


0639 





6600 


8200 


063B 





6101 




063C 


I 


4400 


08E1 


063E 


1 


4400 


09E9 


0640 


1 


74FF 


060E 


0642 





70F6 




0643 


1 


4400 


0609 



0645 


1 


4400 


08BD 


0647 





0088 




0648 





6164 




0649 


1 


6000 


060E 


064B 


1 


4400 


09CC 



064D 1 6C00 0AC5 



BSC 
SRA 
STO 
STO 

MOX 
LO 
S 
BSI 

LDX 

LD 

STO 

STO 

STO 

BSI 



RIOCK DC 
RTNOM OC 



* 
CN20 



CN30 



L CN30.S 
16 
SWl 
RID 

L RID.l 

RID 
RTNOM 

I END.-Z 

II RID 

LI RTTBL-1 

RAO 
L RTNSW 

MLSCFtl 
I START 



BR IF VALID RTN 

IF INVALID RTN GO 
TO RTN ONE 

AOV TO NEXT RTN 
CHECK FOR END OF 
NORMAL SEQUENCE 
END OF PROGRAM 



FETCH RETURN ADRS 

SET RTN START SW 

SET MLSCF FOR RETURN 
GO TO MONITOR 



LRTN-RTTBLU 
NRTN-RTTBLU 



* ROUTINE ADDRESS TABLE 

* 



RTTBL DC 
DC 

DC 
DC 
OC 
DC 
DC 
OC 
DC 
OC 
DC 



TST1 
TST2 
TST3 
TST4 
TST5 
TST6 
TST7 
TST8 
TST9 
TSTA 
TSTB 



EMIT SEQUENCE TEST 
SCAN CHECK TEST 
SPACE TEST 
SKIP TEST 
ROTATING PAT TEST 
ALL CHARACTERS TEST 
FAST PRINT TEST 
CHANNEL SEQUENCE TEST 
SKIP- PRINTER OFF 
SKIP- PRINTER ON 
MANUAL CONTROL 



NRTN 

LRTN 

* 

************ **************** * *************** 

* TEST ROUTINE 1 
******* ************************************* 

* CHECK EMIT SEQUENCE AND NORMAL PRINT OS* 
* 

* 

GO INITIALIZE ROUTINE 
EMIT TEST 

SET LOOP COUNT 

SET LOOP ADORS 

SET IDLE CNT 

CK FOR LOCK ON FUNCTION 
AOV LOOP CNT 

GO TO CONTROL RTN 

* 

************************* ******************* 

* TEST ROUTINE 2 

******* ********************************** *** 

* CHECK PRINT SCAN CHECK INDICATOR 

* 

* 

TST2 BSI L INTLZ GO INITIALIZE ROUTINE 

SCAN CHECK TEST 

SET LCOP COUNT 
CLEAR PRINT BUFFER 



STl 


BSI 


L 


INTLZ 




DC 




/0048 




LDX 


I 


100 




STX 


LI 


LPCNT 




STX 


L 


LOOP 


OlA 


LOX 


L2 


/8200 




LDX 


1 


1 




BSI 


L 


IDLE 




BSI 


L 


LOCK 




MDX 


L 


LPCNT, -1 




MDX 




T01A 




BSI 


L 


CNTRL 



BSI 


L 


INTLZ 


OC 




/0088 


LDX 


1 


100 


STX 


LI 


LPCNT 


BSI 


L 


CLEAR 



STX 



LOOP 



SET LOOP ADORS 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



*-w 



32C01380 


064F 1 6C00 0B74 


T02A 


STX 


L 


RT2SW 


SET RTN SW 


32C01390 


0651 1010 




SLA 




16 


CLEAR ACC AND 


32C01400 


0652 1 D400 0956 




STO 


L 


RT2EX 


* EXECUTE SWITCH 


32C01410 


0654 D400 0027 




STO 


L 


39 


CLEAR BIT 15 LOC 39 


32C01420 


0656 6600 8A00 




LDX 


L2 


! /8AO0 


SET TO CK FOR SCAN CK 


32C01430 


0658 6101 




LDX 


1 


L 1 


SET IDLE CNT 


32C01440 


0659 1 4400 08E1 




BSI 


L 


IDLE 




32C01450 


065B 1 6C00 0956 




STX 


L 


RT2EX 


SET EXEC SWITCH 


32C01460 


0650 1 4400 09E9 




BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


32C01470 


065F 7401 0027 




MDX 


L 


39,1 


SET SCAN BIT 


32C01480 


0661 1 74FF 06DE 




MDX 


L 


LPCNT, -1 


AOV LOOP CNT 


32C01490 


0663 70EB 




MDX 




T02A 




32C01500 


0664 1 OCOO 0BF5 




XIO 


L 


SRSET 


RESET OSW 


32C01510 


0666 40A2 




BSI 




CNTRL 


GO TO CONTROL RTN 


32C01520 




* 










32C01530 




* 










32C01540 




************************************* ******* 


32C01550 




* 






TEST ROUTINE 3 


32C01560 




************************************* ******* 


32C01570 




* THIS ROUTINE CHECKS FOR SPACE RESPONSES 


32C01580 




* AND 


I CHECKS 


THE OSW 




32C01590 




* 










32C01600 


* 










32C01610 


0667 1 4400 08BD 


TST3 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


32C01620 


0669 OllD 




DC 




/OllD 


SPACE TEST -PRINTER OFF 


32C01630 


066 A 6 3F4 




LDX 


3 


-12 




32C01640 


066B 6B23 




STX 


3 


T3CTL 


SET TEST CONTROL 


32C016 50 




* 










32C01660 


066C 1 6C00 0AC5 




STX 


L 


LOOP 


SET LOOP ADORS 


32C01670 


066E 1 6 780 068F 


T03A 


LDX 


13 


T3CTL 


LD CONTROL 


32C01680 


0670 1 C700 069C 




LD 


L3 


T3CTL&13 


LD MSG CONTROL 


32C01690 


0672 0011 




STO 




T03B 




32C01700 


0673 1 C700 069D 




LD 


L3 


T3CTL&14 


LD NO. OF LOOPS £ SPACE! 


32C01710 


0675 1888 




SRT 




8 




32C01720 


0676 1 0400 060E 




STO 


L 


LPCNT 




32C01730 


0678 1090 




SLT 




16 




32C01740 


0679 1808 




SRA 




8 




32C01750 
32C01760 


067A D022 


* 


STO 




SAVE3 


SAVE NUMBER OF SPACES 


32C01770 


067B C021 


T03A1 


LD 




SAVE3 


LD NUMBER OF SPACES 


32C01780 


067C D01F 




. STO 




SCNT 




32C01790 




* 










32C01800 




* 










32C01810 


067D 1 4400 0907 


T03C 


BSI 


L 


SPACE 




32C01820 




* 










32C01830 


067F 1 74FF 069C 




MDX 


L 


SCNT.-l 


CNT SPACES 


32C01840 


0681 70FB 




MDX 




T03C 




32C01850 


0682 1 4400 0957 




BSI 


L 


PMSG 


PRINT 1132 MSG 


32C01860 


0684 0000 


T03B 


DC 




*-* 




32C01870 
32C01880 


0685 I 4400 09E9 


* 


8 SI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


32C01890 


0687 1 74FF 06DE 




MOX 


L 


LPCNT, -1 




32C01900 


0689 70F1 




MDX 




T03AI 




32C01910 




* 










32C01920 


068A 1 7402 068F 




MDX 


L 


T3CTL.2 


ADV CONTROL 


32C01930 


068C 70E1 




MDX 




T03A 




32C01940 
32C01950 


068D 1 4400 0609 


* 


BSI 


L 


CNTRL 


GO TO CONTROL RTN 


32C01960 


068F 0000 


T3CTL 


OC 




*-* 


TEST 3 AND 4 CONTROL 


32C01970 


0690 9002 




OC 




/9002 


SPACE 1 


32C01980 


0691 0501 




OC 




/0501 




32C01990 


0692 9004 




OC 




/9004 


SPACE 2 


32C02000 


0693 0502 




DC 




/0502 




32C02010 


0694 9008 




DC 




/9008 


SPACE 3 


32C02020 


0695 0303 




DC 




/0303 




32C02030 


0696 9010 




DC 




/9010 


SPACE 4 


32C02040 


0697 0304 




DC 




/0304 




32C02050 


0698 9080 




DC 




/9080 


SPACE 9 
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32C02060 

32C02070 

32C02080 

32C02090 

32C02100 

32C02110 

32C02120 

32C02130 

32C02140 

32C02150 

32C02160 

32C02170 

32C02180 

32C02190 

32C02200 

32C02210 

32C02220 

32C02230 

32C02240 

32C02250 

32C02260 

32C02270 

32C02280 

32C02290 

32C02300 

32C02310 

32C02320 

32C02330 

32C02340 

32C02350 

32C02360 

32C02370 

32C02380 

32C02390 

32C02400 

32C02410 

32C02420 

32C02430 

32C02440 

32C02450 

32C02460 

32C02470 

32C02480 

32C02490 

32C02500 

32C02510 

32C02520 

32C02530 

3 2C 02 540 

32C02550 

32C02560 

32C02570 

32C02580 

32C02590 

32C02600 

32C02610 

32C02620 

32C02630 

32C02640 

32C02650 

32C02660 

32C02670 

32C 02680 

32C02690 

32C02700 

32C02710 

32C02720 

32C02730 
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PAGE 
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2A 
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PAGE 



5889422 
3A 



0699 0109 
069A 9200 
069B 0127 
069C 0000 
069D 0000 



069E 1 4400 08B0 
06AO 021E 

06A1 63F4 
06A2 6BEC 



06A3 
06A5 



06AA 
06AC 
06AO 
06AE 
06AF 
06B0 



1 6C00 0AC5 

1 6 780 068F 
06A7 1 C700 069C 
06A9 0011 

1 C700 06 9D 

1888 

0030 

1090 

1808 

OOEC 



06B1 COEB 
06B2 1 D400 0C09 
06B4 6101 
06B5 6600 8200 
06B7 1 4400 08E1 

06B9 1 4400 0957 
06BB 0000 

06BC 1 4400 09E9 

06BE 1 74FF 060E 
06C0 70F0 

06C1 1 7402 068F 
06C3 70E1 
06C4 1 4400 0609 



DC 


/0109 


DC 


/9200 


DC 


/0127 


DC 


*-* 


DC 


*-* 



SPACE 39 
DC /0127 
SCNT 
SAVE3 

* 

******* ************************* ************ 

* TEST ROUTINE 4 
******************************************** 

* THIS ROUTINE EXECUTES SPACE COMMANDS IN 

* INTERRUPT WITH THE PRINTER ON. CHECK IS MADE 

* FOR SPACE RESPONSE AND FOR PROPER DSW 

******************************************** 

* 



TST4 



T04A 



* 
T04A1 



T04B 
* 



BSI 
DC 

LDX 
STX 

STX 

LDX 

LD 

STO 

LD 

SRT 

STO 

SLT 

SRA 

STO 

LO 

STO 

LDX 

LDX 

BSI 

BSI 
DC 

BSI 

MDX 
MDX 

MDX 
MDX 
BSI 



INTLZ 
/021E 

-12 
T3CTL 



L 
13 



LOOP 

T3CTL 
L3 T3CTL&13 

T04B 
L3 T3CTL614 

8 

LPCNT 

16 

8 

SAVE 3 

SAVE 3 
L SPCSW 

1 1 
L2 /8200 
L IDLE 

L PMSG 

*— * 

L LOCK 

L LPCNT, -1 
T04A1 

L T3CTL.2 

T04A 
L CNTRL 



GO INITIALIZE ROUTINE 
SPACE TEST -PRINTER ON 



SET TEST CONTROL 

SET LOOP ADDRS 

LD CONTROL 

LD MSG. CONTROL 

LD NO. OF LOOPS & SPACES 



SAVE NUMBER OF SPACES 



LO NUMBER OF 
SET TO SPACE 



SPACES 

IN INTRPT 



PRINT 1132 MSG 



CK FOR LOCK ON FUNCTION 



ADV CONTROL 



GO TO CONTROL RTN 



******************************************** 

* TEST ROUTINE 5 
******************************************** 

* THIS ROUTINE PRINTS A ROTATING PATTERN. THE 

* PATTERN IS GENERATED BY FLOATING A BIT ACROSS 

* THE PRINT BUFFER. 



GO INITIALIZE ROUTINE 
RIPPLE PATTERN TEST 



06C6 1 4400 08BD 


TST5 


BSI 


L 


INTLZ 


06C8 0408 




DC 




/0408 



06C9 61CF 
06CA 1 6D00 0990 

06CC 6132 
06CD 690E 

06CE I 6C00 0AC5 



LDX 



1 -49 



STX LI RIPL361 



T05A LDX 
STX 



STX 



1 50 

1 LINES 

LOOP 



SET EMIT CHAR CNT 
SET LINE COUNT 

SET LOOP ADDRS 



32C02740 
32C02750 
32C02760 
32C02770 
32C02780 
32C02790 
32C02800 
32C02810 
32C 02820 
32C02830 
32C02840 
32C02850 
32C02860 
32C02870 
32C02880 
32C02890 
32C02900 
32C02910 
32C02920 
32C02930 
32C02940 
32C02950 
32C02960 
32C02970 
3 2C 029 80 
32C02990 
32C03000 
32C03010 
32C03020 
32C03030 
32C03040 
32C03050 
32C03060 
32C03070 
32C03080 
32C03090 
32C03100 
32C03110 
32C03120 
32C03130 
32C03140 
32C03150 
32C03160 
32C03170 
32C03180 
32C03190 
32C03200 
32C03210 
32C03220 
32C03230 
32C03240 
32C03250 
32C03260 
3 2C 032 70 
32C03280 
32C03290 
32C 03300 
32C03310 
32C03320 
32C03330 
32C03340 
32C03350 
32C 03360 
32C03370 
32C 03380 
32C03390 
32C03400 
32C03410 



GO PRINT ONE RIPPLE LINE 
CK FOR LOCK ON FUNCTION 

ADV CHAR FOR NX T SCAN 
SAFETY NOP 
ADV LINE CNT 



GO TO CONTROL RTN 
LINE COUNT 
LOOP COUNT 



* 

* 

* THIS ROUTINE PRINTS LINES OF ONE CHAR 

* UNTIL ALL 48 CHARACTERS HAVE BEEN PRINTED 



06D0 


1 


4400 


0993 


T05C 


BSI 


L 


RIPL 


06D2 


1 


4400 


09E9 


♦ 


BSI 


L 


LOCK 


06D4 


1 


7401 


099D 


T05D 


MDX 


L 


RIPL3£l,l 


06D6 





1000 






NOP 






06D7 


1 


74FF 


06DC 




MDX 


L 


LINES, -1 


06D9 





70F6 




* 


MDX 




T05C 


06DA 


1 


4400 


0609 


* 
LINES 


BSI 


L 


CNTRL 


06DC 





0000 




DC 







6DD 





0031 




N049 


DC 




49 


06DE 





0000 




LPCNT 


DC 







06DF 





0032 




N050 


DC 




50 



TEST ROUTINE 6 



0709 1 4400 08BD 

070B 8021 

070C 6164 

070D 6 9CE 



GO INITIALIZE ROUTINE 
ALL CHARACTERS 



SET CHAR CNT 
SET LOOP ADDRS 

SET EMIT LOOP CNT 



SET DSW S/B 
SET IDLE CNT 



XRl#EMIT TABLE POSITION 
CHECK IF CHARACTER IS 
TO BE PRINTED 
YES IF BRANCH 

SKIP IF INTRPT CNT#1 

AFTER 50 CONSECUTIVE 
EMITS - SPACE 
THEN CONTINUE 

SET PRINT BUFR TO ONES 
SET SCAN CNT 

CK FOR LJCK ON FJNCTION 

ADV TO NXT CHAR 

GO TO CONTROL RTN 



******************************************** 

* TEST ROUTINE 7 
******************************************** 

* THIS ROUTINE PRINTS LINES OF ALL ONE CHARACTER 

* 

TST7 BSI L INTLZ GO INITIALIZE ROUTINE 



06E0 


1 


4400 


08B0 


TST6 


BSI 


L 


INTLZ 


06E2 





0808 




* 
T06A 


DC 




/0808 


06E3 





61D0 




LDX 


1 


-48 


06E4 





690A 






STX 


1 


T06DGI 


06E5 


1 


6C00 


0AC5 


* 
T06B 


STX 


L 


LOOP 


06E7 





6132 




LDX 


1 


50 


06E8 





69F5 




* 
T06C 


STX 


1 


LPCNT 


06E9 





6600 


8200 


LDX 


L2 


/8200 


06EB 





6101 






LDX 


1 


1 


06EC 


1 


4400 


08E1 


& 


BSI 


L 


IDLE 


06EE 





6 500 


0000 


T06D 


LDX 


LI 


*-* 


06F0 


1 


C400 


0C10 




LD 


L 


EMIT 


06F2 


1 


9500 


OCFO 




S 


LI 


CHAR643 


06F4 


1 


4C18 


06FD 


* 


BSC 


L 


T06E.&- 


06F6 


1 


74FF 


0B14 




MDX 


L 


ICNT.-l 


06F8 





70EE 






MDX 




T06B 


06F9 


1 


74FF 


06DE 




MDX 


L 


LPCNT, -1 


06FB 





70ED 






MDX 




T06C 


06FC 





7002 




* 
T06E 


MDX 




T06E62 


06FD 


1 


4400 


09DF 


BSI 


L 


Al 


06FF 





6101 






LDX 


1 


1 


0700 


1 


4400 


08D6 




BSI 


L 


PRINT 


0702 


I 


4400 


09E9 


* 


BSI 


L 


LOCK 


0704 


1 


7401 


06EF 




MDX 


L 


T060&1.1 


0706 





70E0 






MDX 




T06B 


0707 


1 


4400 


0609 


* 
* 


BSI 


L 


CNTRL 



DC 

LCX 
STX 



/8021 

1 100 
1 LINES 



STRESS TEST 
SET LINE COUNT 



32C03420 

32C03430 

32C03440 

32C03450 

32C03460 

32C03470 

32C03480 

32C03490 

32C03500 

32C03510 

32C03520 

32C03530 

32C03540 

32C03550 

32C03560 

32C03570 

32C03580 

32C03590 

32C03600 

32C03610 

32C03620 

32C03630 

32C0 3640 

32C03650 

32C03660 

32C03670 

32C03680 

32C03690 

32C03700 

32C03710 

32C03720 

32C03730 

32C03740 

32C03750 

32C03760 

32C03770 

32C03780 

32C03790 

32C03800 

32C03810 

32C03820 

32C03830 

32C03840 

32C 03850 

32C03860 

32C03870 

32C 03880 

32C03890 

32C03900 

32C03910 

32C03920 

32C03930 

32C03940 

32C03950 

32C03960 

32C03970 

32C03980 

32C 03990 

32C04000 

32C04010 

32C04020 

32C04030 

32C04040 

32C04050 

32C04060 

32C04070 

32C 04080 

32C04090 
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32C04100 






070E 1 6C00 0AC5 






STX 


L 


LOOP 


SET LOOP ADDRS 


32C04U0 






0710 1 4400 09DF 


T07A 


BSI 


L 


Al 


SET PRINT AREA TO ONES 


32C04120 






0712 6101 






LDX 


1 


1 


SET SCAN CNT 


32C04130 


0758 1 6680 


07DA 


0713 1 4400 08D6 






BSI 


L 


PRINT 


GO PRINT 


32C04140 


075A 1 C400 


070C 


0715 6110 






LDX 


1 


16 


SET FOR 16 IDLES 


32C04150 


075C 1200 




0716 6600 8200 






LDX 


L2 


/8200 


SET OSM S/B 


32C04160 


075 D 1 E400 


07DC 


0718 1 4400 08E1 


* 




BSI 


L 


IDLE 




32C04170 
32C04180 


075F 1 4C20 
0761 1 6680 


076 A 
07DB 


71A 1 4400 09E9 


* 




BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


32C04190 
32C04200 


0763 C077 

0764 F075 




071C 1 74FF 06DC 






MOX 


L 


LINES, -1 


UPDATE LINE COUNT 


32C 04210 


0765 6A74 




071E 70F1 






MDX 




T07A 




32C04220 


0766 1 4C20 


075 8 


071F I 4400 0609 


* 




BSI 


L 


CNTRL 


GO TO CONTROL RTN 


32C04230 
32C 04240 


768 1 7401 
76 A 1 7401 


070A 
07DB 




******* I************************************* 


32C04250 








* 


INITIALIZATION FOR ROUTINES 8,9, AND A 


32C04260 


76C 1 4400 


09E9 




**************************** **************** 


32C 04270 


076E C068 






* 


THIS ROUTINE IDENTIFIES THE SEQUENCE OF PUNCHES 


32C04280 


076F 1 4C18 


0774 




* 
*- 


IN 


THE CHANNEL CONTROL 


TAPE. 


32C04290 
32C04300 


0771 1 74FF 
0773 70CB 


06DE 














—._ 






* 












32C04310 






0721 0000 


IN89J 


i DC 




*-* 




32C04320 


0774 C068 




0722 C06C 






LD 




SU89A 




32C04330 


0775 1 F400 


0C05 


0723 1 4C20 0785 






BSC 


L 


I89AX.Z 


BR IF INITIALIZED 


32C04340 


0777 D060 




0725 6869 






STX 




SW89A 




32C04350 






0726 I 4400 08BD 






BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


32C04360 


0778 6500 


0000 


0728 7000 


* 




DC 




/7000 




32C04370 
32C 04380 


077A I 4428 
077C 1 7401 


0A55 
0779 


0729 6500 0080 






LDX 


LI 


176 


SET FOR 176 SPACES 


32C04390 


077E C059 




0728 6982 






STX 


1 


LPCNT 




32C04400 


77F 1001 




072C 1810 






SRA 




16 




32C 04410 


0780 D057 




072D 610F 
072E 1 D500 07CE 






LDX 
STO 


1 
LI 


15 
CH12S-1 




32C04420 
32C04430 


0781 1 4C20 


0778 


0730 7 IFF 






MDX 


1 


-I 




32C04440 






0731 70FC 

0732 6101 






MDX 
LDX 


1 


*-4 
1 




32C04450 
3 2C 04460 


0783 1810 

0784 D052 




0733 6945 






STX 


1 


Tosoei 




32C04470 






0734 1 6DO0 07DA 






STX 


LI 


SHIFT 




32C04480 


0785 1 4400 


0907 


0736 1 6000 070B 






STX 


LI 


SHFT2 




32C04490 


0787 1 OCOO 


0B14 


0738 1 C400 09C6 
73 A 1 D400 07D7 


* 
*- 




LD 
STO 


L 
L 


K8000 
SEQSM 


SET SEQ SM 


32C04500 
32C04510 
32C04520 
32C04530 


0789 1 ECOO 
078B 1008 
078C 1 4CA0 
78E 70F6 


0BF4 
0721 












~ 






* 
*— 


SPACE TO CHANNELS 




32C04540 i 
32C04550 


078F 0000 






















* 












3 2C 04560 






073C 1 4400 0957 






BSI 


L 


PMSG 


MSG- SPACE TO CHANNEL 


32C04570 






073E 9C00 


* 




DC 




/9C00 


MSG CONTROL 


32C045 80 
32C04590 






073F 1 6C00 0AC5 


T08A 


STX 


L 


LOOP 


SET LOOP ADDRS 


32C04600 






0741 1 4400 094 A 






BSI 


L 


STOP 


STOP THE PRINTER 


32C04610 






743 1 4400 0907 






BSI 


L 


SPACE 




32C04620 






0745 1 OCOO 0B14 






XIO 


L 


SENSE-1 


RECORD CHANL PUNCH IF 


32C04630 






0747 1 ECOO 0BF4 


* 




OR 


L 


WAS 


DETEC IN INTRPT 
OR MAINLINE 


32C04640 
32C04650 


0790 1 4400 
0792 E401 


088D 


0749 1008 






SLA 




8 




32C04660 


0793 408D 




074A 1 4C18 076C 


* 




BSC 


L 


T08B,C- 


BR IF CHANL BIT OFF 


32C04670 
32C04680 


0794 6202 

0795 I 6E00 


06DE 


074C 1 4400 07DE 






BSI 


L 


CHMSG 


PRINT CHANL ID MSG 


32C04690 


0797 1 4400 


0907 


074E 8500 


* 




DC 




/8500 




32C04700 
32C04710, 


0799 1 4400 
0798 ACOO 


0957 


074F 1 ECOO 07DD 






OR 


L 


VCHNL 


RECORD EACH CHANNEL 


32C04720 


079C 62FF 




0751 1 0400 07DD 






STO 


L 


VCHNL 


DETECTED 


32C04730 


079D 6 A3 A 




0753 1 C400 0707 






LD 


L 


SEQSW 




32C04740 






0755 1001 






SLA 




1 




32C04750 


079E 1 6C00 


0AC5 


0756 I 4C08 076C 


* 




BSC 


L 


T08B,£ 




32C04760 
32C04770 


07A0 1 6 580 


07DA 
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PROG ID 032C-0 
PAGE 4 


DATE 25JUN71 15DEC71 
EC NO. 571152 571154 



* AFTER SECOND CHANNEL, CHECK FIRST 16 CHANNELS 

* FOR REPEAT OF CHANNEL SEQUENCE. 

* 



T08A1 



T08A2 

* 
T08B 



* 
T08C 



* 
T08D 



* 
I89AX 



LDX 

LD 

SLA 

AND 

BSC 

LDX 

LD 

EOR 

STX 

BSC 

MDX 

MDX 

BSI 

LD 

BSC 

MOX 
MDX 

LD 

EOR 

STO 

LOX 

BSI 

MOX 

LD 

SLA 

STO 

BSC 



SRA 

STO 

BSI 
XIO 
OR 
SLA 

BSC 
MDX 



12 

L 
2 

L 
L 
12 



LI 

L 



SHIFT 

LTSEQ 



LTSEQ 

T08A2.Z 

SHFT2 

SHFT2 

SHIFT 

SHIFT 

T08A1.Z 

SHIFT, I 

SHFT2.1 

LOCK 
SEQSM 
T08C6- 
LPCNT.-l 

T08A 

VCHNL 
KFFOO 
TEMP8 

*-* 

ERR12,&Z 

T080£l,l 

TEMP8 

1 

TEMP8 

T08D.Z 



16 
SEQSM 

SPACE 

SENSE-1 

MAS 

8 

IN89A.Z 

I39AX 



XR 2#CHAN BEFORE REPEAT 
LOAD LAST SEQUENCE 

CHECK FOR REPEAT 
ZERO IF NOT REPEAT 
BR IF REPEAT 



BR FOR 2ND CHECK 



CK LOCK SM 



DEC LOOP CNT 



XRlfUCHANNEL NUMBER 
PRINT MISSING CHAN MSG 
ADV TO CK NEXT CHAN 

SHIFT TO NEXT CHAN 

BR IF MORE ERRORS 



ADVANCE TO THE NEXT 
CHANNEL PUNCH BEFORE 
STARTING TEST ROUTINE 



SM89A DC *-* 

* 

******* ********************* ************* ## ^^ 

* TEST ROUTINE 8 

******* *************************************„, 

* THIS TEST CHECKS THAT EACH CHANNEL 

* PUNCH MILL GENERATE A SKIP INTERRUPT. 



* 

* 
TST8 



T08E 

* 



BSI 

DC 

BSI 

LDX 

STX 

BSI 

BSI 

DC 

LOX 

STX 

STX 

LDX 



L INTLZ 
/E401 
IN89A 
2 2 
L2 LPCNT 
L SPACE 
L PMSG 
/ACOO 
2 -1 
2 TEMP8 



INITIALIZE 



L 
II 



LOOP 
SHIFT 



SET TEMP8 TO ALL BITS 

SET LOOP ADDRS 
LD SHIFT FACTOR 



32C04780 

32C 04790 

32C04800 

32C04810 

32C 04820 

32C04830 

32C 04840 

32C04850 

32C04860 

32C 04870 

32C04880 

32C04890 

32C04900 

32C04910 

32C04920 

32C04930 

32C04940 

32C04950 

32C04960 

32C049 70 

32C04980 

3 2C 049 90 

32C0 5000 

32C05010 

32C05020 

32C05030 

32C05040 

32C05050 

32C05060 

32C05070 

32C05080 

32C05090 

32C05100 

32C05110 

32C05120 

32C05130 

32C05140 

32C05150 

32C05160 

32C05170 

32C05180 

32C05190 

32C05200 

32C05210 

32C05220 

32C05230 

32C05240 

32C05250 

32C05260 

32C 05270 

32C05280 

32C05290 

32C05300 

32C05310 

32C05320 

32C05330 

32C05340 

32C05350 

3 2C 05 360 

32C05370 

32C05380 

32C05390 

32C05400 

32C05410 

32C05420 

32C05430 

3 2C 05440 

32C05450 
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Vy 
^ 



07A2 6908 

07A3 1 4400 094A 
07A5 1810 

7A6 6600 5000 

07A8 1 4400 0929 



07AA 
07AC 
07AE 
7B0 
07B1 
07B2 
07B3 
7B4 
07B6 
07B7 
07B9 
07BA 
07BB 
07BC 
07BE 



6500 0000 

1 6680 07DA 
1 C400 0BF4 
1008 

6308 
1340 

10A0 

1 C700 07CE 

1AC0 

1 EFOO 07CE 
19C0 
1280 
E01C 

4418 0A67 
0019 



7BF 1 C400 0BF4 
07C1 1008 
07C2 401B 
07C3 8500 
07C4 1 6580 07AB 

7C6 7 IFF 
07C7 700A 

07C8 1 4400 09E9 
07CA I 74FF 060E 
07CC 7003 

07CD I 4400 0609 



07CF 





0000 


07D0 





0000 


0701 





0000 


7D2 





0000 


7D3 





0000 


7D4 





0000 


07D5 





0000 


0706 





0000 


0707 





0000 


07D8 





0000 


07D9 





0000 


70A 





0000 


07DB 





0000 


7DC 





0000 


0700 





0000 



7DE 0000 
07DF 1 4C18 07FB 
07E1 D0F7 
07E2 6107 
07E3 1140 
07E4 1001 



T08F 

* 



* 
T08X1 



STX 

BSI 
SRA 
LOX 
BSI 

LDX 

LOX 

LD 

SLA 

LDX 

SLCA 

SLT 

LD 

RTE 

OR 

RTE 

SLT 

A NO 

BSI 

STO 

LD 

SLA 

BSI 

DC 
LDX 

MDX 
MDX 

BSI 

MDX 
MOX 

BSI 



1 T08X1£1 

L STOP 

16 
L2 /5000 
L SKIP 

LI *-* 
12 SHIFT 
L WAS 
8 
3 8 
3 
32 
L3 CH12S-1 

2 

L3 CH12S-1 

1 

2 
TEMP8 

L ERR13.&- 
TEMP8 

L MAS 

8 

CHMSG 

/8500 
II T08X1C1 

I -1 

T08F 

L LOCK 
L LPCNT.-l 
T08E 

L CNTRL 



STO XRl 

STOP THE PRINTER 
SET SKIP TO SW 
SET BUSY DSW S/ 3 



RESTORE XRl 
LD DSH 

IDENTIFY CODE 

LD SEQUENCE FOR THIS CHAN 

RTE BY SHIFT FACTOR 

CK FOR PROPER SEQ 
BR IF SEQ ERR 

LD DSW 

MSG- CHANNEL X 



CK FOR LOCK ON FUNCTION 

DEC LOOP COUNT 

BR IF NOT FINISHED 



* 

* 

* 

* 

CH12S 

CH9SQ 

CH6SQ 

CH5SQ 

CH4SQ 

CH3SQ 

CH2SQ 

CH1SQ 

SEQSW 

TEMP8 

SHIFT 
SHFT2 
LTSEQ 
VCHNL 

* 

* 

* 
CHMSG 



CHANNEL SEQUENCE TABLE 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 



*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 



SEQ SW 



BIT SET FOR EACH CHAN DET 



PRINT CHANNEL MESSAGE 



DC 

BSC 

STO 

LDX 

SLCA 

SLA 



*-* 

CHM2.S- 

TEMP861 
1 7 
1 

1 



SAVE CHANNEL CODE 
IDENTIFY BIT 



DATE 

EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32C05460 


07E5 


1 


4C20 


0A7O 


32C05470 










32C05480 


07E7 





COEF 




3 2C 05490 


07E8 


1 


EOOO 


07CF 


32C05500 


07EA 


1 


D500 


07CF 


32C05510 


07EC 





DOEF 




32C05520 


7ED 





C0E9 




32C05530 


07EE 





1801 




32C05540 


7EF 





D0E7 




32C05550 










32C05560 


07F0 


1 


C500 


07FF 


32C05570 


07F2 


1 


0400 


0E8E 


32C05580 


07F4 


1 


C480 


07DE 


32C05590 


7F6 





D002 




32C05600 


07F7 


1 


4400 


0957 


32C05610 


07F9 





0000 




32C05620 










32C05630 


07FA 





CODE 




32C05640 


07FB 


1 


7401 


07DE 


32C05650 


07FD 


1 


4C80 


07DE 


32C05660 










32C05670 


07FF 





F1F2 




32C05680 


0800 





F900 




32C05690 


0801 





F600 




32C05700 


0802 





F500 




32C05710 


0803 





F400 




32C05720 


0804 





F300 




32C05730 


0805 





F200 




3 2C 05740 


i 0806 





F100 




32C05750 










32C05760 










32C05770 










32C05780 










32C05790 










32C05800 










32C05810 










32C05820 










32C05830 










32C05840 


0807 


1 


4400 


08BD 


32C05850 


0809 





202D 




32C05860 


080A 





202D 




32C05870 


080B 


1 


4400 


0721 


32C 05880 










32C05890 


080D 


1 


C400 


09C6 


32C05900 


080F 





D0C8 




32C05910 










32C05920 


0810 


1 


6C00 


0AC5 


32C05930 


0812 


1 


4400 


0907 


32C05940 


0814 


1 


C400 


05E1 


32C05950 


0816 





1008 




32C0 5960 


0817 


1 


4C20 


081D 


32C05970 










32C05980 


0819 





COBE 




32C05990 


081A 





E0C2 




32C06000 


081B 


1 


4C18 


0820 


32C06010 










32C06020 


081D 





40C0 




32C06030 


081E 





AOOO 




32C06040 


081F 


1 


4400 


094A 


32C 06050 










32C06060 


0821 





C0B7 




32C06070 


0822 





6600 


5000 


32C36080 


0824 


1 


4400 


0929 


32C06090 










32C06100 










32C06110 


0826 


1 


C400 


0BF4 


32C06120 


0828 





1008 




32C06130 


829 





40B4 




PROG ID 032C-0 


DATE 25JUN71 


150EC71 


PAGE 5 


EC NO. 571152 


571154 



CHM1 

* 

CHM2 



BSC 

LD 

OR 

STO 

STO 

LD 

SRA 

STO 

LD 

STO 

LD 

STO 

BSI 

DC 

LD 

MOX 

BSC 



CHTBL DC 
DC 

DC 

DC 

DC 

DC 

DC 

DC 
* 

************ 
* 
************ 

* THIS ROUT 

* ORDER, ST 

* OFF OURIN 
* 

* 

TST9 



ERR14.Z 

SEQSW 

CH12S 

CH12S 

LTSEQ 

SEQSW 

1 

SEQSW 

CHTBL 

PMG26 

CHMSG 

CHM1 

PMSG 

*-* 

TEMP8K1 
CHMSG, 1 
CHMSG 

/FIF2 

/F900 
/F600 
/F500 
/F400 
/F300 
/F200 
/F100 



ERR IF M3RE THAN I BIT 
LD SEQ SW 



LD SEQ SW 
ADV SEQ 



LD MSG 



PRINT 1132 MSG 
MSG CONTROL 



12 
9 
6 
5 
4 
3 
2 
1 



******************************** 

TEST ROUTINE 9 
******************************** 
INE WILL SKIP TO EACH CHANNEL IN 
ARTING WITH CHANNEL ONE. PRINTER IS 
G THE SKIP OPERATION. 



T09A 



* 
T09B 



BSI 

DC 
DC 
BSI 

LD 

STO 

STX 

BSI 
LD 
SLA 
BSC 

LD 

AND 

BSC 

BSI 

DC 

BSI 

LD 

LDX 

BSI 



LD 

SLA 

BSI 



L INTLZ 
/202D 
/202D 

L IN89A 

L K8000 
TEMP8 



LOOP 

SPACE 

SW2 

8 

T09B.Z 



TEMP8 

VCHNL 

L T09C&- 

CHMSG 
/AOOO 
L STOP 

TEMP8S1 
L2 /5000 
L SKIP 



WAS 

8 

CHMSG 



GO INITIALIZE ROUTINE 
MSG CONTROL 
MSG CONTROL 



SET LOOP ADDRS 

LD SELECT CHANNEL SWS 

BR IF SW ENTRY 

LD SKIP SEQ SW 
CHECK FOR VALID CHNL 



MSG- SKIP TO X 
MSG CONTROL 
STOP THE PRINTER 

LO SKIP SEQ SW 
SET BUSY DSW S/B 



LD DSW 

LOOK AT CHANNEL BITS 

MSG- CHANNEL X 



32C06140 

32C06150 

32C 06160 

32C06170 

32C06180 

3 2C 06 190 

32C06200 

32C06210 

32C06220 

32C06230 

32C06240 

32C06250 

32C06260 

32C 06270 

32C06280 

32C06290 

32C06300 

32C06310 

32C06320 

32C06330 

32C06340 

32C 06350 

32C06360 

32C06370 

32C 06380 

32C06390 

32C06400 

32C06410 

32C06420 

32C06430 

32C 06440 

32C06450 

32C06460 

32C06470 

32C06480 

32C 06490 

32C06500 

32C06510 

32C06520 

32C06530 

32C06540 

32C06550 

32C06560 

32C06570 

32C 06580 

32C06590 

32C06600 

32C06610 

32C06620 

32C06630 

32C06640 

32C06650 

3 2C 066 60 

32C06670 

32C06680 

32C06690 

32C06700 

32C06710 

32C06720 

32C06730 

32C06740 

32C06750 

32C06760 

32C06770 

32C06780 

32C06790 

32C06800 

32C 06810 
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082A 


8500 








DC 




/8500 


MSG CONTROL 


32C06820 










* THE COL 


UMN 


NUMBER MUST BE ENTEREO IN SWITCHES 


32C07500 






082B 


I 4400 


09E9 






BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


32C06830 










* 1- 


7, AND THE CHARACTER ID IN SWITCHES 8-15. 


32C07510 












* 




LD 




TEMP8 


LD SKIP SEQ SW 


32C06840 
32C06850 










* PRINTING WILL START 

* . . ., 


WHEN SWITCH IS TURNED ON. 


32C07520 
32C07530 






082D 


COAA 




TO"»i» 


























082E 


1801 








SRA 




1 


SHIFT FOR NEXT CHANNEL 


32C06860 










* 










32C07540 






082F 


D0A8 








STO 




TEMP8 




32C06870 


086D 


1 


4400 


08BD 


TSTB 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


32C07550 






0830 


1808 








SRA 




8 




32C06880 


086F 





0000 






DC 




/OOOO 




32C07560 






0831 


I 4C20 


0812 






BSC 


L 


T09A.Z 


LOOP IF NOT ZERO 


32C06890 










* 










32C07570 






0833 


I 4400 


0609 


* 




BSI 


L 


CNTRL 




32C06900 
32C06910 


0870 
0872 



1 


4480 
08B8 


0163 




BSI 
DC 


I 


LOG 
SETUP 


PRINT SET UP MSG 


32C07580 
32C07590 












******************************************** 


32C06920 










* 










32C07600 












* 








TEST ROUTINE A 


32C06930 


0873 





083C 




TOBA 


XIO 




RBSWS 


READ THE BIT SWS 


32C07610 












******************************************** 


3 2C 06940 


0874 





C03F 






LD 




BSWS 




32C07620 












* 


THIS ROUTINE MILL ! 


SKIP TO EACH CHANNEL IN 


32C06950 


0875 


1 


4C28 


087D 




BSC 


L 


TOBB.SZ 


USE SWS IF SW ZERO ON 


32C07630 












* 


ORDER, 


STARTING WITH CHANNEL ONE. PRINTER IS 


32C06960 










* 










32C07640 












* 


ON 


DURING 


THE SKIP 


OPERATION. 


32C06970 


0877 


1 


6 700 


0873 




LDX 


L3 


TOBA 


LOOP UNTIL SW ZERO ON 


32C07650 












A 












32C06980 
32C06990 


0879 


1 

1 


6F00 


05E6 




STX 

BSC 


L3 

L 


MLSCFCl 
WAIT4 




32C07660 
32C07670 












* 












087B 


4C00 


0B09 










0835 


1 4400 


08BD 


TSTA 


BSI 


L 


INTLZ 


GO INITIALIZE ROUTINE 


32C07000 










* 










32C07680 






0837 


102E 








DC 




/102E 


MSG CONTROL 


32C07010 


087D 





1001 




TOBB 


SLA 




1 


REMOVE SW ZERO 


32C07690 






0838 


1 4400 


0721 


* 




BSI 


L 


IN89A 




32C07020 
32C07030 


087E 
087F 






1801 
1888 






SRA 
SRT 




1 
8 


PUT 8-15 IN EXT 


32C07700 
32C07710 






083A 


I C400 


09C6 






LD 


L 


K8000 




32C07040 


0880 





D034 






STO 




PCOLM 


STO COLUMN NO. SWS 1-7 


32C07720 






083C 


D09B 




* 




STO 




TEMP8 




32C07050 
32C07060 


0881 
0882 






1888 
1098 






SRT 
SLT 




8 
24 




32C07730 
32C07 740 






083D 


I 6 COO 


0AC5 






STX 


L 


LOOP 


SET LOOP ADDRS 


32C07070 


0883 





D035 






STO 




CHID 


STO CHAR ID 


32C07750 






083F 


1 4400 


0907 


TOAA 


BSI 


L 


SPACE 




32C07080 


0884 


1 


4C18 


08AA 




BSC 


L 


TOBF.&- 


BYPASS PRINT UNLESS A 


32C07760 






0841 


1 C400 


05E1 






LD 


L 


SW2 


LD SELECT CHANNEL SWS 


32C07090 










* 








VALIO CHARACTER ID 


32C07770 






0843 


1008 








SLA 




8 




32C07100 










* 










32C07780 






0844 


1 4C2 


084A 


* 




BSC 


L 


TOAB.Z 


BR IF SW ENTRY 


32C07110 
32C07120 


0386 
0888 


1 




6C00 
6132 


0AC5 




STX 

LOX 


L 
1 


LOOP 
50 


SET LOOP ADDRS 
SET EMIT LOOP CNT 


32C07 790 
32C07800 






0846 


C091 








LD 




TEMP8 


LD SKIP SEQ SW 


32C07130 


0889 


1 


6D00 


060E 




STX 


LI 


LPCNT 




32C07810 






0847 


E095 








AND 




VCHNL 


CHECK FOR VALID CHNL 


32C07140 










* 










32C07820 






0848 


1 4C18 


0863 


* 




BSC 


L 


TOAC, 6- 




32C07150 
32C07160 


088B 
088D 






6600 
6101 


8200 


TOBC 


LDX 
LDX 


L2 

1 


/8 200 
1 


SET DSW S/B 
SET IDLE CNT 


32C 07830 
32C07840 






084 A 


4093 




TOAB 


BSI 




CHNSG 


MSG- SKIP TO X 


32C07170 


088 E 


1 


4400 


08E1 




BSI 


L 


IDLE 




32C07850 






084B 


ADOO 








DC 




/ADOO 


MSG CONTROL 


32C07180 










* 










32C07860 












* 












32C07190 


0890 


1 


C400 


0C10 


T08D 


LO 


L 


EMIT 


CHECK IF CHARACTER IS 


32C078 70 






084C 


6101 








LOX 


1 


1 




32C07200 


0892 





9026 






S 




CHID 


TO BE PRINTED 


32C07880 






084D 


6600 


8200 






LDX 


L2 


/8200 




32C07210 


0893 


1 


4C18 


089C 




BSC 


L 


TOBE,£- 


YES IF BRANCH 


32C 07890 






084F 


1 4400 


08EI 






BSI 


L 


IDLE 


GO START THE PRINTER 


32C 07220 










* 










32C07900 












* 












32C07230 


0895 


1 


74FF 


0B14 




MDX 


L 


ICNT.-l 


SKIP IF INTRPT CNT#1 


32C07910 






0851 


6500 


03E8 






LDX 


LI 


1000 


SET IOLCT TO KEEP 


32C07240 


0897 





70DB 






MDX 




TOBA 


BR IF MISSED AN EMIT 


32C07920 






0853 


1 6D00 


0C03 


* 




STX 


LI 


IDLCT 


PRINTER GOING 


32C07250 
32C07260 


0898 
089A 


1 




74FF 
70F0 


06DE 




MDX 

MDX 


L 


LPCNT, -I 
TOBC 


LOOP FOR 50 SEQUENTIAL 
EMITS 


32C07930 
32C07940 






0855 


1 C400 


0709 






LD 


L 


TEMP8&1 


LD SKIP SEQ SW 


32C07270 


089B 





700E 






MDX 




TOBF 


SPACE IF NO MATCH 


32C07950 






0857 


6600 


5200 






LDX 


L2 


/5200 


SET BUSY DSW S/ 3 


32C07280 










* 










32C07960 






0859 


1 4400 


0929 


* 




BSI 


L 


SKIP 




32C07290 
32C07300 


089C 
089D 






C018 
1890 




TOBE 


LD 
SRT 




PCOLM 
16 


LD COL NO. 


3 2C 079 70 
32C07980 






085B 


1 C400 


0BF4 






LD 


L 


WAS 


LD DSW 


32C07310 


089E 





A817 






D 




X16 




32C07990 






085D 


1008 








SLA 




8 


LOOK AT CHANNEL BITS 


32C07320 


089F 


1 


DCOO 


08B2 




STD 


L 


TEMPB 




32C08000 






085E 


1 4400 


07DE 






BSI 


L 


CHMSG 


MSG- CHANNEL X 


32C07330 


08A1 


1 


6580 


08B3 




LDX 


U 


TEMPB6.1 


XR1#BUF WORD BIT POSITION 


32C08010 






0860 


8500 








DC 




/8 500 


MSG CONTROL 


32C07340 


08A3 


1 


6680 


08B2 




LDX 


12 


TEMPB 


XR2#BUF WORD NUMBER 


32C08020 






0861 


1 4400 


09E9 


* 




BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


32C07350 
32C07360 


08A5 


1 


C400 


09C6 


* 


LD 


L 


K8000 




32C08030 
32C08040 




V 


0863 


1 C400 


07D8 


TOAC 


LD 


L 


TEMP8 


LD SKIP SEQ SW 


3 2C07370 


08A7 





1900 






SRA 


1 







32C08050 




v ~" 


0865 


1801 








SRA 




1 


SHIFT FOR NEXT CHANNEL 


32C07380 


08A8 





EA20 






OR 


2 


32 




32C08060 






0866 


1 D400 


07D8 






STO 


L 


TEMP8 




32C07390 


08A9 





D220 






STO 


2 


32 


SET BIT IN BUFFER 


32C08070 




k_ 


0868 


1808 








SRA 




8 




32C07400 










* 










32C08080 




0869 


1 4C20 


083F 






BSC 


L 


TOAA.Z 


LOOP IF NOT ZERO 


32C07410 


08AA 





6101 




TOBF 


LDX 


1 


1 


SET SCAN CNT 


32C08090 






086B 


1 4400 


0609 






BSI 


L 


CNTRL 




32C07420 


08AB 


1 


4400 


08D6 




BSI 


L 


PRINT 




32C08100 




Vw 








* 












32C0743Q 


08AD 


1 


4400 


09E9 




BSI 


L 


LOCK 


CK FOR LOCK ON FUNCTION 


32C08110 










******************************************** 


32C07440 










* 










32C08120 












* 








TEST ROUTINE B 


32C07450 


08AF 





70C3 






MDX 




TOBA 




32C08130 




^ 








******************************************** 


32C07460 










* 










32C08140 










* 


THIS ROUTINE ENABLES BIT SWITCH CONTROL OF THE 


32C07470 


08B0 




0000 






BSS 


E 







32C08150 












* 


CHARACTER 


AND THE 


COLUMN TO BE PRINTED. ONLY 


32C07480 


08B0 


1 


08 B4 




RBSWS 


DC 




BSWS 




32C08160 




^ 








* 


ONE CHARACTER WILL 


BE PRINTED ON EACH LINE. 


32C07490 


08B1 





3A00 






DC 




/3A00 


IOCC TO READ BIT SWS 


32C08170 




DATE 


25JUN71 


15DEC71 














PROG ID 032C-0 


DATE 25JUN71 15DEC71 












PROG ID 


032C-0 


EC NO. 


571152 


571154 
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^ 



08B2 


0000 


TEMPB 


DC 


*-* 


08B3 


0000 




DC 


*-* 


08B4 


0000 


3SWS 


DC 


*-* 


08B5 


0000 


PCOLM 


DC 


*-* 


08B6 


0010 


X16 


DC 


16 


08B7 


0030 


K0030 


DC 


/0030 


08B8 


0002 


SETUP 


DC 


2 


08B9 


0000 


CHID 


DC 


*-* 


08BA 


0000 




DC 





08BB 


1 ODBF 




DC 


ABSH 


08BC 


0000 




DC 






PRINT COL STORED HERE 



******************************************** 

* INITIALIZE SUBROUTINE 

******************************************** 

* 



STOP THE PRINTER 



08BD 





0000 




INTLZ DC 




*-* 


08BE 


1 


4400 


094 A 


8SI 


L 


STOP 


08C0 


1 


4400 


09CC 


BSI 


L 


CLEAR 


08C2 


1 


D400 


0AC5 


STO 


L 


LOOP 



08C4 1 4400 0B33 

08C6 4040 

08C7 403F 

08C8 1 C480 

08CA 1 4C18 

08CC 0002 

08CD 1 4400 

08CF 0000 

08D0 4036 

08D1 4035 



08D2 I 7401 
0804 1 4C80 



BSI 



READY 



SET PRINT BUF TO ZERO 
RESET LOOP AODRS 



CK FOR READY 







BSI 




SPACE 






* 


BSI 




SPACE 




08BD 


LD 


I 


INTLZ 


LD MSG CONTROL 


08D2 


£ 


BSC 


L 


INT2i&- 


BR IF MSG CONT 






STO 




INT1 


SET CONTROL 


0957 




BSI 


L 


PMSG 


PRINT 1132 MSG 




INT1 

* 


DC 




*-* 


MSG CONTROL 




BSI 




SPACE 






* 


BSI 




SPACE 




08BD 


INT2 


MDX 


L 


INTLZ, 1 




08BD 




BSC 


I 


INTLZ 


RETURN 



******************************************** 

* PRINT SUBROUTINE 

************************ ******************* * 

* 



SET FOR PRINT 
SET FOR PRINT OSW 



******************************************** 

* IDLE SUBROUTINE 

******************************************** 

* 



08D6 


0000 




PRINT 


DC 




*-* 


08D7 


1 C400 


05E2 




LD 


L 


SW3 


0809 


1 D400 


0C03 




STO 


L 


IOLCT 


08DB 


6600 


8200 




LDX 


L2 


/8200 


08DD 


400A 






BSI 




PRCOM 


080E 


4028 






BSI 




SPACE 


08DF 


1 4C80 


08D6 




BSC 


I 


PRINT 



08E1 





0000 




IDLE 


DC 




*-* 




08E2 


1 


6000 


0C03 




STX 


LI 


IDLCT 




08E4 





6100 






LDX 


1 







08E5 





4002 






BSI 




PRCOM 




08E6 


1 


4C80 


08E1 


* 


BSC 


I 


IDLE 






* 






PRINT C 


OMMO 




* 










08E8 





0000 




PRCOM 


DC 




*-* 




08E9 


1 


6000 


0BF6 




STX 


LI 


SCNCT 





SET IDLE CNT 



SET SCNCT FOR IDLE 



32C08180 
32C08190 
32C08200 
32C08210 
32C08220 
32C08230 
32C08240 
32C08250 
32C08260 
32C08270 
32C08280 
32C08290 
32C08300 
32C08310 
32C08320 
32C08330 
32C08340 
32C08350 
32C08360 
32C08370 
32C08380 
32C08390 
32C08400 
32C08410 
32C08420 
32C08430 
32C08440 
32C08450 
32C08460 
32C08470 
32C08480 
32C08490 
32C08500 
32C08510 
32C08520 
32C08530 
3 2C 08 540 
32C08550 
3 2C 08 560 
32C08570 
32C08580 
32C08590 
32C08600 
32C08610 
32C08620 
32C08630 
32C08640 
32C08650 
32C08660 
32C08670 
32C08630 
32C08690 
32C08700 
32C08710 
32C08720 
32C08730 
32C08740 
32C08750 
32C08760 
32C08770 
32C 08780 
32C08790 
32C08800 
32C 08810 
32C08820 
32C08830 
32C08840 
32C08850 



08EB 


1 


6E00 


OCOO 


* 


STX 


L2 


EXPCT 


08ED 


1 


OCOO 


0B14 


PRC1 


XIO 


L 


SENSE-1 


08EF 


1 


D400 


0AD7 




STO 


L 


DSWW 


08F1 





1003 






SLA 




3 


08F2 


I 


4C10 


08F7 




BSC 


L 


PRC2,- 


08F4 


1 


4400 


0A8C 




BSI 


L 


ERR17 


08F6 





70F6 




* 


MDX 




PRCl 


08F7 


1 


4400 


0B4D 


PRC2 


BSI 


L 


FORMS 


08F9 


1 


6600 


0D95 




LDX 


L2 


APRT 


08FB 


1 


6E00 


OACA 




STX 


L2 


OPSW 


08FD 





6700 


0200 




LDX 


L3 


/0200 


08FF 


1 


6F00 


0B16 




STX 


L3 


TBDSW 


0901 


1 


OCOO 


09C4 




XIO 


L 


STPRT-1 


0903 


1 


4400 


OAEO 




BSI 


L 


WAIT 


0905 


1 


4C80 


08E8 




BSC 


I 


PRCOM 



SENSE DSW 
STO IN MSG 

BR IF CARG NOT BUSY 
PRINT ERR MSG 



SET LAST OP SW 
BUSY DSW S/B 
SAVE BUSY DSW S/B 
START THE PRINTER 
WAIT FOR INTERRUPT 



******************************************** 

* SPACE SUBROUTINE 

******************************************** 

* 



0907 





0000 




SPACE 


DC 




*-* 




0908 





4041 






BSI 




STOP 


STOP THE PRINTER 


0909 


1 


C400 


OAEO 




LD 


L 


WAIT 




090B 


1 


4C18 


0919 




BSC 


L 


SPCl,£- 


BR ON FIRST SPACE 


090D 





6116 






LDX 


1 


/16 


ERROR NUMBER 


090E 


1 


OCOO 


OB 14 




XIO 


L 


SENSE-1 


SENSE DSW 


0910 


1 


D400 


OADE 




STO 


L 


CHWAS61 




0912 


1 


F400 


OADD 




EOR 


L 


CHWAS 


CHECK FOR CHANGE 


0914 





1008 






SLA 




8 


IN CHANNEL BITS 


0915 


1 


4420 


0A85 




BSI 


L 


ERR16.Z 


ERROR IF CHANGE 


0917 


1 


4400 


OB 40 


♦ 


BSI 


L 


FORMS 




0919 





6600 


2000 


SPC1 


LDX 


L2 


/2000 




091B 


1 


6E00 


0C01 




STX 


L2 


EXPCT61 


SET EXPCT FOR SPACE 


091D 


1 


6600 


0D8B 




LDX 


L2 


ASPC 




091F 


1 


6E00 


OACA 




STX 


L2 


OPSW 


SET LAST OP SW 


0921 


1 


OCOO 


OBFA 




XIO 


L 


STSPA-1 


START SPACE 


0923 


1 


C400 


09CB 




LD 


L 


K1000 


LD CARRIAGE BUSY BIT 


0925 


1 


4400 


OAEO 


* 


BSI 


L 


WAIT 


WAIT FOR INTERRUPT 


0927 


1 


4C80 


0907 


BSC 


I 


SPACE 


RETURN 



******************************************** 

* SKIP 

******************************************** 

* 



0929 





0000 




092A 





D01D 




092B 


1 


6E00 


0C01 


092D 


1 


4400 


0B4D 


092F 





6210 




0930 





6A18 




0931 


1 


C400 


09CB 


0933 


1 


ECOO 


OCOO 


0935 


1 


0400 


OCOO 


0937 


1 


6600 


0D92 


0939 


I 


6E00 


OACA 


093B 


1 


OCOO 


09C6 


093D 


1 


C400 


09CB 


093F 


1 


4400 


OAEO 


0941 





4008 




0942 


1 


OCOO 


0B14 


0944 





1003 




0945 


1 


4C90 


0929 


0947 





70FA 





SKIP 



SKP1 



DC 

STO 

STX 

BSI 

LDX 

STX 

LD 

OR 

STO 

LDX 

STX 

XIO 

LD 

BSI 

BSI 
XIO 
SLA 
BSC 
MDX 



*-* 
SKPTO 
L2 EXPCT&l 



FORMS 
16 

SKCNT 
K1000 
EXPCT 
EXPCT 
ASKP 
L2 OPSW 
L STCAR- 
L K1000 
L WAIT 

STOP 
L SENSE- 

3 
I SKIP,- 

SKPl 



L 
2 
2 

L 
L 
L 
L2 



SET CHANNEL CODE IN SKPTO 
SET FOR SKIP INTRPT 



SET FOR MAX OF 16 SKIPS 

SET FOR SKIP WITH 

PRINTER ON 
SET LAST OP SW 

FOR SKIP 
START SKIP 
LD CARRIAGE BUSY BIT 



SENSE OSW 
LOOP HERE UNTIL 
CARRIAGE BUSY GOES OFF 



32C08860 

32C08870 

32C08880 

32C 08890 

32C08900 

32C08910 

32C08920 

32C08930 

32C08940 

32C08950 

32C08960 

32C08970 

32C08980 

32C08990 

32C09000 

32C09010 

32C09020 

32C09030 

32C09040 

32C09050 

32C 09060 

32C09070 

32C09080 

32C09090 

32C09100 

32C09110 

32C 09120 

32C09130 

32C 09140 

32C09150 

32C09160 

32C 09170 

32C09180 

32C09190 

32C 09200 

32C09210 

32C09220 

32C 09230 

32C09240 

32C09250 

32C 09260 

32C09270 

32C09280 

32C09290 

32C09300 

32C09310 

32C 09320 

32C09330 

32C09340 

32C09350 

32C09360 

32C 09370 

32C09380 

32C09390 

32C09400 

32C09410 

32C 09420 

32C09430 

32C09440 

32C 09450 

32C09460 

32C09470 

32C 09480 

32C09490 

32C09500 

32C09510 

32C09520 

32C 09530 



DATE 
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032C-0 
7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 FUNCTION TEST 



PART NO. 5889422 
PAGE 8 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1132 FUNCTION TEST 



PART NO. 5889422 
PAGE 8A 













* 










32C09540 


0988 





6310 






0948 





0000 




SKPTO 


DC 




*-* 


SKIP TO CONTROL 


32C 09550 


0989 


I 


6F00 


0C03 




0949 





0000 




SKCNT 


DC 




*-* 


SKIP COUNT 


32C09560 
32C09570 


098B 
098D 


1 

1 


6 COO 
4400 


09CA 
08E8 












******************************************** 


32C09580 




















* 






STOP THE 


PRINTER 


32C09590 


098F 


1 


7401 


0957 












******************************************** 


32C09600 


0991 


1 


4C80 


0957 












* 










32C09610 












094A 





0000 




STOP 


DC 




*-* 




32C09620 












094B 


1 


ocoo 


0BF2 




XIO 


L 


STPPT-1 


STOP PRINTER 


32C 09630 












0940 





1810 






SRA 




16 




32C 09640 












094E 


1 


D400 


OBFA 




STO 


L 


EMTSW 


RESET 1ST EMIT SW 


32C09650 












0950 


1 


D400 


OCOO 




STO 


L 


EXPCT 




32C 09660 


0993 





0000 






0952 


1 


0400 


0B16 




STO 


L 


TBDSW 




32C 09670 


0994 





6132 






0954 


1 


4C80 


094A 


* 


BSC 


I 


STOP 


RETURN TO CALLING RTN 


32C09680 
32C09690 


0995 


1 


6D00 


060E 




0956 





0002 




RT2EX 

* 


DC 




/0002 


NON-ZERO CONSTANT 


32C09700 
32C09710 


0997 

0999 






6600 
6101 


8200 












******************************************** 


32C 09720 


099 A 


1 


4400 


08E1 












* 






PRINT 1132 MESSAGE SUBROUTINE 


32C09730 




















******************************************** 


32C09740 


099C 





6 700 


0000 












* 










32C09750 


099E 


1 


C700 


0CF1 




0957 





0000 




PMSG 


DC 




*-* 




32C09760 


09A0 


1 


9400 


0C10 




0958 


1 


C400 


05DF 




LD 


L 


SMO 


DO NOT PRINT IF 


32C09770 


09A2 


1 


4C18 


09AC 




095A 





100D 






SLA 




13 


BYPASS MESSAGE SWITCH 


32C09780 


09A4 


1 


74FF 


0B14 




095B 


1 


4C28 


0985 


* 


BSC 


L 


PMS4.6Z 


IS ON 


32C09790 
32C 09800 


09A6 





70ED 






0950 





40EC 




* 


BSI 




STOP 




32C09810 
32C09820 


09A7 
09A9 


1 




74FF 
70ED 


06DE 




095 E 





10A0 






SLT 




32 




32C 09830 


09AA 





1810 






095F 


1 


C480 


0957 




LD 


I 


PMSG 


LD MESSAGE CONTROL 


32C09840 


09AB 





7001 






0961 





610E 






LDX 


1 


14 




32C09850 












0962 





4828 






BSC 




£Z 


CK FOR EXTENDED TABLE 


32C09860 


09AC 





C019 






0963 





710F 






MDX 


1 


15 




32C09870 


09AD 





61F0 






0964 





1001 






SLA 




1 




32C09880 


09AE 





62F8 






0965 





005E 






STO 




SAVE 




32C 09890 


09AF 





7301 






0966 


1 


6700 


ODE 5 




LDX 


L3 


BUF 


XR3fBUFFER ADORS 


32C09900 


09B0 





7005 






0968 





7001 




* 


MDX 




PMS161 




32C09910 
32C09920 


09B1 
09B2 






63CE 
6BEA 






0969 





7301 




PMS1 


MDX 


3 


1 


PUT SPACE IN MSG 


32C09930 


09B3 





1801 






096 A 





C059 






LD 




SAVE 


LD MESSAGE CONTROL 


32C 09940 


09B4 





7101 






096B 





1140 






SLCA 


1 





SCAN CONTROL 


32C09950 


09B5 





7302 






096C 


1 


4C18 


0985 




BSC 


L 


PNS4,S- 


BR IF CONTROL ZERO 


32C09960 












096 E 





F057 






EOR 




K8000 




32C 09970 


09B6 


1 


6F00 


0BF2 




096F 





0054 






STO 




SAVE 


SAVE CONTROL FOR NXT SCAN 


32C09980 


09B8 


1 


6D00 


0B06 




0970 


1 


C500 


0E05 




LD 


LI 


PMTAB 


LD MSG ADDRS 


3 2C 09990 


09BA 


1 


6E00 


0BD8 


w- 


0972 





D001 




* 


STO 




*£1 




32C 10000 

32010010 


09BC 

09BD 






6176 
D400 


0020 




0973 





C400 


0000 


PMS2 


LD 


L 


*-* 


LD MSG CHAR 


32C10020 


09BF 


1 


4400 


08D6 


v_- 


0975 





F053 






EOR 




TERM 


CK FOR TERMINATOR 


32C 10030 


09C1 


1 


4C80 


0993 




0976 


1 


4C18 


0969 


* 


BSC 


L 


PMS1.6- 


BR IF TERM 


3 2C 10040 
32C10050 


09C4 




0000 




^__. 


0978 





F050 






EOR 




TERM 


RESTORE CHAR 


32C 10060 


09C4 





0000 






0979 





18C8 






RTE 




8 


SHIFT OUT 2ND CHAR 


32C10070 


09C5 





3480 






097 A 





1008 






SLA 




8 




32C10080 


09C6 





8000 




-~ 


097B 





D300 




* 


STO 


3 





STO CHAR IN BUF 


32C10090 
32C10100 


09C7 
09C8 






3404 
FFFF 






097C 





1090 






SLT 




16 


BRING IN 2N0 CHAR 


32C10110 


09C9 





FFFF 




■^ 


097D 


1 


4C18 


0981 




BSC 


L 


PMS3.6- 


BR IF ZERO 


32C10120 


09CA 





0000 






097F 





7301 






MDX 


3 


1 


ADV BUF ADDRS 


32C10130 


09CB 





1000 




, 


0980 





D300 




* 


STO 


3 





STO CHAR IN BUF 


32C 10140 
32C10150, 












0981 





7301 




PMS3 


MDX 


3 


1 




32C10160 












0982 


1 


7401 


0974 




MDX 


L 


PMS261.1 


ADV MSG ADDRS 


32C10170 










^ 


0984 





70EE 




* 


MDX 




PMS2 




32C10180 
32C10190 












0985 





6131 




PMS4 


LDX 


1 


49 


LD SCAN CNT 


32C 10200 










^ 


0986 





6600 


8200 




LDX 


L2 


/8200 


LD EXPECTED INTRPT DSW 


32C10210 










^ DATE 


25JUN71 15DEC71 












PROG ID 032C-0 


DATE 25JUN71 15DEC71 


EC NO. 


571152 


! 571154 












PAGE 8 


EC NO. 571152 


! 571154 





LDX 


3 


16 


SET FOR 16 IDLES 


32C 10220 






STX 


L3 


IDLCT 


BEFORE SPACE 


32C10230 






STX 


L 


MSGSW 


SET MSG SW 


32C 10240 






BSI 


L 


PRCOM 


GO PRINT MSG 


32C 10250 




* 










32C10260 




PMS5 


MDX 


L 


PMSG.l 




32C 10270 






8SC 


I 


PMSG 


RETURN 


32C10280 




* 










32C10290 




******************************************** 


3 2C 10300 




* 






RIPPLE PATTERN SUBROUTINE 


32C 10310 




******************************************** 


32C10320 




* 










32C 10330 




RIPL 


DC 




*-* 




3 2C 10340 




RIPL1 


LDX 


1 


50 


SET EMIT LOOP CNT 


32C10350 






STX 


LI 


LPCNT 




3 2C 10360 




* 










32C10370 




RIPL2 


LDX 


L2 


/8200 


SET DSW S/B 


32C10380 






LDX 


I 


1 


SET IDLE CNT 


32C10390 






BSI 


L 


IDLE 




32C10400 




* 










32C10410 




RIPL3 


LDX 


L3 


*-* 


COMPARE START SCAN 


3 2C 10420 






LD 


L3 CHAR 6,49 


CHAR WITH LAST 


32C10430 






S 


L 


EMIT 


EMIT CHAR 


32C 10440 






BSC 


L 


RIPL4.6- 


LOOP IF NOT EQUAL 


32C 10450 






MDX 


L 


ICNT.-l 


SKIP IF INTRPT CNT#1 


32C10460 






MDX 




RIPL1 




32C10470 




* 










32C10480 






MDX 


L 


LPCNT, -1 


IF AFTER 50 CONSECUTIVE 


32C 10490 






MDX 




RIPL2 


EMITS A MATCH IS NOT 


32C 10500 






SRA 




16 


FOUND, LEAVE SPACE 


32C10510 






MDX 




RIPL461 


THEN CONTINUE 


32C10520 




* 










32C 10530 




RIPL4 


LD 




K8000 


SET BUFFER WITH FIRST BIT 


32C10540 






LDX 


1 


-16 


SET SHIFT REGISTER 


32C10550 






LDX 


2 


-8 


SET STORAGE REGISTER 


32C10560 






MDX 


3 


1 




32C10570 






MDX 




RIPL5 




3 2C 10580 






LDX 


3 


-50 




3 2C 10 590 






STX 


3 


RIPL361 


RESET EMIT CHAR CNT 


32C10600 






SRA 




1 


SHIFT LAST LINE 


32C 10610 






MDX 


1 


1 


IN PATTERN 


32C10620 






MDX 


3 


2 




32C10630 




* 










3 2C 10640 




RIPL5 


STX 


L3 


BLANK 


SET FOR PATTERN SPACE 


32C 10650 






STX 


LI 


PI5£1 




32C10660 






STX 


L2 


PI661 




32C 10670 






LOX 


1 


118 


SET SCAN COUNT 


32C10680 






STO 


L 


32 


SET 1ST 8UFR WORD 


32C10690 






BSI 


L 


PRINT 


GO PRINT 


32C 10700 






BSC 


I 


RIPL 




32C10710 




* 










32C10720 






BSS 


E 







32C10730 




SAVE 


DC 




*-* 




32C10740 




STPRT 


DC 




/3480 


START PRINTER 


32C10750 




K8000 


DC 




/aooo 




32C10760 




STCAR 


DC 




/3404 


START CARRIAGE 


32C10770 




ONES 


DC 




/FFFF 




32C 10780 




TERM 


DC 




/FFFF 




32C 10790 




MSGSW 


DC 




*-* 


PRINTER MSG SW 


32C10800 




K1000 


DC 




/1000 




32C 10810 




* 










32C10820 




******************************************** 


32C10830 




* 






CLEAR BUFFER SUBROUTINE 


32C 10840 




******************************************** 


32C10850 




* THIS SUBROUTINE CLEARS 32-39 AND 


32C10860 




* SETS BIT 15, LOC 39. 

* ... _ .- .. .. 




32C 10870 
32C10880 
















* 










32C10890 

PROG ID 
PAGE 


032C-0 
8A 



v_ 
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09CC 





0000 




CLEAR 


DC 









09CD 





63F8 






LDX 


3 


-8 


PRINT AREA 


09CE 





10A0 






SLT 




32 




09CF 





DFOO 


0028 


CLIO 


STD 


L3 


40 




0901 





7302 






MOX 


3 


2 




0902 





70FC 






MDX 




CLIO 




09D3 





6301 






LOX 


3 


1 


SET SCAN C 


09D4 





6F00 


0027 




STX 


L3 


39 




09D6 


1 


D400 


09CA 




STO 


L 


MSGSM 


RESET MSG 


3908 





63E0 






LDX 


3 


-32 




09D9 


I 


0700 


0E05 


CL20 


STO 


L3 


BUF£32 




09D8 





7301 






MDX 


3 


1 




090C 





70FC 






MOX 




CL20 




09DD 


1 


4C80 


09CC 




BSC 


I 


CLEAR 





09DF 


0000 




Al 


DC 





09E0 


63F8 






LDX 


3 -8 


09E1 


1 CCOO 


09C8 




LDD 


L ONES 


09E3 


OFOO 


0028 


A110 


STD 


L3 40 


09E5 


7 302 






MDX 


3 2 


09E6 


70FC 






MDX 


A110 


09E7 


I 4C80 


09DF 




BSC 


I Al 



******************************************** 
* SET PRINT BUFFER TO ONES 

******************************************** 

* 



SET PRINT 

AREA TO ALL ONES 



LEAVE 

******************************************** 
* LOCK ON FUNCTION ROUTINE 

******************************************** 

* 



LO SWO 

COMB WITH MONITOR SWO 

CK LOCK ON FNC SW 

BR IF NOT LOCK ON FNC 

LOOP ON LAST FUNCTION 



******************************************** 
* ERROR MESSAGE SETUP 

******************************************** 

* 



09E9 


0000 




LOCK 


DC 




*-* 


09EA 


1 C400 


050F 




LD 


L 


SWO 


09EC 


EC80 


0166 




OR 


I 


ERLCK 


09EE 


100A 






SLA 




10 


09EF 


1 4C90 


09E9 




BSC 


I 


LOCK, 


09FI 


1 4C80 


0AC5 




BSC 


I 


LOOP 



09F3 0000 

09F4 6101 

09F5 6260 

09F6 1 CCOO 0A94 

09F8 1 4400 0AB4 

09FA 1 4C80 09F3 

09FC 0000 

09F0 6102 

09FE 6600 0180 

OAOO 1 CCOO 0A96 

0A02 1 4400 0AB4 

0A04 1 4C80 09FC 

0A06 6103 

0A07 6220 

0A08 1 CCOO 0A98 

OAOA 1 7400 0C01 

OAOC 7003 

OAOD 1 7400 0B14 

OAOF 7004 

0A10 1 4400 0A84 

0A12 1 4C80 OAEO 



DC 

LDX 

LDX 

LDD 

BSI 

BSC 

DC 

LDX 

LOX 

LDD 

BSI 

BSC 

LDX 
LOX 
LOO 

MDX 
MDX 
MDX 
MOX 



ERR3X BSI 
BSC 

* 



ERR1 



* 
ERR 2 



* 
ERR 3 



*-* 

1 

/0060 

MSG1 

ETYPE 

ERR1 



*-* 
1 2 
L2 /0180 
L MSG2 
L ETYPE 
1 ERR2 



3 

/0020 
MSG3 

EXPCT61 

ERR3X 

ICNT 

ERR4 

ETYPE 
WAIT 



STATIC DSW ERR 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 
GO PRINT MSG 
RETURN 

BUSY DSW ERR 
SET MSG NO. 
SET DATA CONTROL 
LO ALPHA MSG 
GO PRINT MSG 
RETURN 

NO INTRPT 

SET OATA CONTROL 

LD ALPHA MSG 



CK FOR EXPCT SPACE/SKIP 
BR IF SPACE/SKIP 
CK FOR SOME INTRPTS 
BR IF SOME 

GO PRINT MSG 
RETURN 



v_ 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32C10900 


0A14 6104 


ERR4 


LDX 


1 4 


32C10910 


0A15 1 CCOO 0A9A 




LDD 


L MSG4 


32C10920 


0A17 70F8 




MDX 


ERR3X 


32C10930 




* 






32C 10940 


0A18 0000 


ERR5 


DC 


*-* 


32C 10950 


0A19 6105 




LDX 


1 5 


32C10960 


0A1A 6600 0600 




LDX 


L2 /0600 


3 2C 109 70 


0A1C C87F 




LOD 


MSG5 


32C10980 


0A1D 1 4400 0AB4 




BSI 


L ETYPE 


32C 10990 




* 






32C11000 


0A1F 1 74FF 0B14 




MDX 


L ICNT,-1 


32CH010 


0A21 7001 




MDX 


*6l 


32C11020 


0A22 700A 




MDX 


ERR5X 


32CU030 




* 






32C11040 


0A23 1 C400 0B17 




LD 


L EBITS 


32C11050 


0A25 1 4C28 0A46 




BSC 


L ERR9.CZ 


32C11060 


0A27 1001 




SLA 


1 


32C11070 


0A28 1 4C28 0A50 




BSC 


L ERR11.&Z 


32C11080 


0A2A 1001 




SLA 


1 


32C11090 


0A2B 1 4C28 0A4B 




BSC 


L ERRIO.CZ 


32C11100 




* 






32CU110 


0A2D I 4C80 0A18 


ERR5X 


BSC 


I ERR5 


32CU120 




* 






32C1U30 


0A2F 0000 


ERR6 


DC 


*-* 


32C1U40 


0A30 6106 




LDX 


1 6 


32C11150 


0A31 6203 




LDX 


2 /0003 


32C11160 


0A32 C86B 




LDD 


MSG6 


32C11170 


0A33 1 4400 0AB4 




BSI 


L ETYPE 


32C11180 


0A35 1 4C80 0A2F 




BSC 


I ERR6 


32C11190 




* 






32C11200 


0A37 0000 


ERR7 


DC 


*-* 


32C11210 


0A38 6107 




LDX 


1 7 


32C11220 


0A39 6208 




LDX 


2 /0008 


32CU230 


0A3A C865 




LDD 


MSG7 


32C11240 


0A3B 1 4400 0AB4 




BSI 


L ETYPE 


32C11250 


0A3D 1 4C80 0A37 




BSC 


I ERR7 


32CU260 




* 






32C11270 


0A3F 0000 


ERR8 


DC 


*-* 


32C11280 


0A40 6108 




LOX 


1 8 


32C11290 


0A41 6218 




LDX 


2 /0018 


32C11300 


0A42 C85F 




LDD 


MSG8 


32C11310 


0A43 4070 




BSI 


ETYPE 


32C11320 


0A44 1 4C80 0A3F 




BSC 


I ERR8 


32C11330 




* 






32C11340 


0A46 6109 


ERR 9 


LDX 


1 9 


32C11350 


0A47 6200 




LDX 


2 


32C11360 


0A48 C85B 




LOD 


MSG9 


32C11370 


0A49 4 06 A 




BSI 


ETYPE 


32CU380 


0A4A 7 0E2 




MDX 


ERR5X 


32C11390 




* 






32C11400 


0A4B 6110 


ERR 10 


LOX 


1 /10 


32C11410 


0A4C 6200 




LOX 


2 


32C 11420 


0A4O C858 




LOD 


MSG 10 


32C11430 


0A4E 4065 




BSI 


ETYPE 


32C11440 


0A4F 7 ODD 




MDX 


ERR5X 


32CU450 




* 






32C11460 


OA50 6111 


ERR 11 


LDX 


1 /ll 


32C11470 


0A51 6200 




LDX 


2 


32C11480 


0A52 C855 




LOD 


MSG11 


32C11490 


0A53 4060 




BSI 


ETYPE 


32C11500 


0A54 70D8 




MDX 


ERR5X 


32CU510 




* 






32C11520 


0A55 0000 


ERR12 


DC 


*— * 


32C11530 


0A56 1 C500 0A5E 




LD 


Ll CHNUM-1 


32C11540 


0A58 D07B 




STO 


CHANL 


32C11550 


0A59 6112 




LDX 


1 /12 


32CU560 


0A5A 6204 




LDX 


2 /0004 


32C11570 


0A5B C84E 




LDD 


MSG12 


PROG ID 032C-0 


DATE 25JUN71 15DEC71 








PAGE 9 


EC NO. 571152 571154 









PRINTER STOPPED 
LO ALPHA MSG 



LEVEL 1 DSW ERR 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 
GO PRINT MSG 

CK FUR MULT INTRPTS 



LD DSW ERROR BITS 

BR IF PRINT RESPONSE ON 

BR IF SKIP RESPONSE ON 

BR IF SPACE RESPONSE ON 

RETURN 

EMIT BIT FAILURE 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 
GO PRINT MSG 
RETURN 

EMIT IMVALIO 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 
GO PRINT MSG 
RETURN 

EMIT SEU ERR 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 
GO PRINT MSG 
RETURN 

PRINTER DID NOT TURN OFF 
SET FOR NO DATA 
LD ALPHA MSG 
GO PRINT MSG 



MULT SPACE INTRPTS 
SET FOR NO OATA 
LD ALPHA MSG 
GO PRINT MSG 



MULT SKIP INTRPTS 
SET FOR NO DATA 
LD ALPHA MSG 
GO PRINT MSG 



MISSING CHANNEL 
LO CHANNEL NO. 
SET IN MSG 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 



32C11580 

32C11590 

32C11600 

32C11610 

32C11620 

32C11630 

32C11640 

32C11650 

32C11660 

32C11670 

32C11680 

32C11690 

32C 11700 

32C11710 

32C11720 

32C11730 

32C11740 

32C11750 

32C11760 

32C11770 

32C11780 

32CU790 

32C11800 

32C11810 

32C11820 

32C11830 

32C11840 

32C11850 

32C11860 

32C11870 

32CU880 

32C11890 

32CU900 

32C11910 

32C11920 

32C11930 

32C11940 

32C 11950 

32C11960 

32C11970 

32C119 80 

32C11990 

32C12000 

32C12010 

32C12020 

32C12030 

32C 12040 

32C12050 

32C12060 

32C12070 

32C12080 

32C 12090 

32C12100 

32C12110 

32C12120 

32C12130 

32C12140 

32C12150 

32C12160 

32C12170 

32C12180 

32C12190 

32C12200 

32C 12210 

32C12220 

32C12230 

32C12240 

32C12250 
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0A5C 4057 
0A5D 1 4C80 0A55 



0A5F 
OA60 
0A61 
0A62 
0A63 
0A64 
0A65 
0A66 



0001 
0002 
0003 
0004 
0005 
0006 
0009 
OOOC 



0A67 0000 

0A68 6113 

0A69 6200 

0A6A C841 

0A6B 4048 

0A6C 1 C400 09C8 

0A6E I 4C80 0A67 

0A70 6114 
0A71 6220 
0A72 1 C400 0709 
0A74 1808 
0A75 006 1 
0A76 C837 
0A77 403C 
0A78 1 4C00 07FB 



0A7A 
0A7B 
0A70 
0A7F 
0A8O 
0A81 
0A82 
0A83 
0A85 
0A86 
0A88 
0A89 
0A8A 



0000 

6600 0801 

C400 0BF4 

E05F 

D051 

C82E 

4031 

4C80 0A7A 

0000 

6600 1800 

C827 

402A 

1 4C80 0A85 



0A8C 0000 
0A80 6117 
0A8E 6220 
0A8F C822 
0A9O 402 3 
0A91 1 4C80 0A8C 







0A94 




0000 






0A94 


1 


0022 


\ , 




0A95 


1 


0D28 






0A96 


1 


0022 






0A97 


1 


0031 


^ 




0A98 


1 


0041 






0A99 


1 


0D44 






0A9A 


1 


0D4B 


'>w 




0A9B 


1 


0052 






0A9C 


1 


0022 






0A9D 


1 


0039 


O 




0A9E 


1 


0060 






0A9F 





0000 






OAAO 


1 


006F 


^_> 




0AA1 





0000 






0AA2 


1 


0022 






0AA3 


1 


0D76 


v^ 




0AA4 


1 


004E 


Vw 


OATE 


25JUN71 15DEC71 




EC NO. 


571152 


! 571154 



BSI 
BSC 

CHNUM DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

ERR 13 OC 
LOX 
LDX 
LDD 
BSI 
LD 
BSC 

ERR14 LDX 
LDX 
LO 
SRA 
STO 
LOD 
BSI 
BSC 

* 

ERR 15 DC 
LDX 
LD 
AND 
STO 
LDD 
BSI 
BSC 

ERR 16 OC 
LOX 
LDD 
BSI 
BSC 

ERR 17 DC 
LDX 
LDX 
LOO 
BSI 
BSC 



MSG1 



MSG2 



MSG3 



MSG4 



MSG5 



MSG6 



MSG7 



MSG8 



MSG9 



BSS 

DC 
DC 

DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



ETYPE 
I ERR12 

1 
2 
3 
4 
5 
6 
9 
12 



GO PRINT MSG 
RETURN 



*-* 
/13 



MSG13 

ETYPE 

ONES 

ERR13 

/14 

/0020 

TEMP8K1 

8 

DSWW 

MSG14 

ETYPE 

CHM2 



*-* 
L2 /0801 
L MAS 
KOOFF 
ERM4 
MSG15 
ETYPE 
I ERR15 

*-* 

L2 /1800 

MSG15 

ETYPE 

I ERR 16 



*-* 

1 /17 

2 /0020 
MSG17 
ETYPE 

I ERR17 

E 

AWAS 

ASDSW 

AM AS 

ABDSM 

ADSW 

ANINT 

A DPR 

ASTPO 

AMAS 

A0SM1 

AEBF 

/OOOO 

AEMT 

/OOOO 

AMAS 

AESER 

APRTR 



CHANNEL SEQ ERR 
SET MSG NO. 
SET DATA CONTROL 
LD ALPHA MSG 
GO PRINT MSG 

RETURN 

MULT CHANNEL BITS 

LD INVALID CHANNEL CODE 



LD ALPHA MSG 
GO PRINT MSG 
RETURN 

CHANNEL SENSE ERR 

SET DATA CONTROL 

LD INTRPT OSW 

MASK ALL BUT CHAN BITS 

STO IN MSG 

LD ALPHA MSG 

GO PRINT MSG 

RETURN 



WAS S/B 
STATIC DSM 

MAS S/B 

BUSY DSM ERR 

DSM 

NO INTRPT 

DSM PRINTER 

STOPPED 

MAS S/B 

LEVI DSM ERR 

EMIT BIT FAILURE 

EMIT INVALD 

MAS S/B 

EMIT SEQ ERR 
PRINTER 



32C12260 

32C12270 

32C 12280 

32C12290 

32C12300 

32C12310 

32C12320 

32C12330 

32C 12340 

32C12350 

32C12360 

32C12370 

32C12380 

32C 12390 

32C12400 

32C12410 

32C12420 

32C12430 

32C12440 

32C 12450 

32C12460 

32C12470 

32C12480 

32C12490 

32C12500 

32C12510 

32C12520 

32C12530 

32C12540 

32C12550 

32C12560 

32C12570 

32C12580 

3 2C 12590 

32C12600 

32C12610 

3 2C 12620 

32C12630 

32C12640 

32C12650 

32C12660 

32C12670 

32C12680 

32C12690 

32C12700 

32C12710 

32C12720 

32C 12730 

32C 12740 

32C12750 

32C12760 

32C12770 

32C12780 

32C12790 

32C12800 

32C12810 

32C12820 

32C12830 

32C12840 

32C12850 

32C12860 

32C12870 

32C12880 

32C12890 

32C12900 

32C12910 

32C12920 

32C12930 



PROG ID 
PAGE 



0AA5 


1 


0057 


0AA6 


1 


0088 


0AA7 


1 


0047 


0AA8 


1 


0D8F 


0AA9 


1 


0D47 


OAAA 


1 


0D7F 


OAAB 





OOOO 


OAAC 


1 


0D83 


OAAD 


1 


0D7A 


OAAE 


1 


0DA8 


OAAF 





OOOO 


OABO 


1 


0083 


OABl 


1 


00A2 


0AB2 


1 


0D41 


0AB3 


1 


ODOD 



0AB4 OOOO 
0AB5 6917 
0AB6 6A18 
0AB7 D818 
0AB8 1 4400 094A 



OABA 
OABC 
0A8D 
OABF 
OACO 
0AC1 



1 7400 OACO 
7005 

4480 0162 

1 0AC6 
OOOO 
68FE 



0AC2 4480 0162 
0AC4 I OACD 
0AC5 OOOO 

0AC6 1 4C80 0AB4 
0AC8 8000 
0AC9 1 00B6 
OACA OOOO 



OACC 




0001 


OACD 





OOOO 


OACE 





0004 


OACF 





OOOO 


OADO 





OOOO 


0AD1 





OOOO 


0AD2 





OOOO 


0AD3 





OOOO 


0AD4 





OOOO 


0AD5 





OOOO 


0AD6 





OOOO 


0AD7 





OOOO 


0A08 





OOOO 


0A09 





OOOO 


OADA 





OOOO 


OAOB 





OOOO 


OADC 





OOOO 


OADD 





OOOO 


OADE 





OOOO 


OADF 





OOFF 



DC 
MSG10 DC 

DC 
MSG11 DC 

DC 
MSG12 DC 

DC 
MSG13 DC 

OC 
MSG14 DC 

DC 
MSG15 DC 

DC 
MSG17 DC 

DC 

************ 

* 

************ 

* 

ETYPE DC 

STX 

STX 

STD 

BSI 



A ONTO 

AMSP 

A I NT 

AMSK 

AINT 

AMC 

/OOOO 

ACHAN 

ASER 

AINVC 

/OOOO 

ACHAN 

ASNER 

ADSW 

ACBSY 



DID NOT TURN OFF 

MULT SPACE 

INTRPT 

MULT SKIP 

INTRPT 

MISSING CHANNEL 

CHANNEL 
SEQ ERR 
INVALD CHANNEL CODE 

CHANNEL 
SENSE ERR 



**************** **************** 

PRINT ERROR MESSAGES 
******************************** 



*-* 

1 TABLE 

2 TABLE&2 
ALPHA 
STOP 



MDX L 

MDX 

BSI I 

DC 
OPMSW DC 

STX 
* 
ETYP1 BSI I 

DC 
LOOP OC 
* 

ETYP2 BSC I 

DC 

DC 
OPSW DC 

* 

* ERROR MESSAGE TABLE 

* 

* 



OPMSW 
ETYP1 
ERROR 
ETYP2 

*-* 
OPMSW 

ERROR 

TABLE 


ETYPE 
/8000 
ALOP 
*~* 



BSS 
TA8LE DC 

DC 

DC 
ALPHA DC 
ERM3 DC 
* 
ERM4 OC 

DC 
CHANL DC 
EMTWS DC 
EMTSB DC 
DSWM DC 
DSWS8 DC 
BDSW DC 

OC 
IDSW DC 

DC 
CHWAS OC 

DC 
KOOFF DC 
* 



1 

*-* 

/0004 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

/OOOO 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

/OOFF 



SET ID IN MESSAGE TABLE 
STO DATA WORO CNTRL 

STOP THE PRINTER 



PRINT LAST OP 

MUST BE ZERO FOR OP MSG 

LOOP ON ERROR 

RETURN 



MESSAGE NUMBER 

HEX/DECIMAL SW 

DATA WORD ID 

1ST ALPHA MESSAGE ADDRESS 

2ND ALPHA MESSAGE ADDRESS 

MOOIFIERS 

STORE ERR CHANNEL 
STORE EMIT WAS 
STORE EMIT S/B 
STORE DSM MAS 
STORE OSM S/B 
BUSY DS« WAS 
BUSY QSrf S/B 
INTRPT OSW MAS 
INTRPT DSM S/B 
CHANNEL DSM MAS 
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DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32C 12940 

32C12950 

32C12960 

32C 12970 

32C129 80 

32C12990 

32C13000 

32C13010 

32C13020 

32C 13030 

32C13040 

32C 13050 

32C 13060 

32C13070 

32C 13080 

32C130 90 

32C13100 

32C13110 

32C13120 

32C13130 

32C13140 

32C13150 

32C13160 

32C13170 

32C13180 

32C13190 

32C 13200 

32C13210 

32C13220 

32C13230 

32C13240 

32C13250 

32C 13260 

32C13270 

32C13280 

32C13290 

32C13300 

32C13310 

32C13320 

32C13330 

32C 13340 

32C13350 

32C13360 

32C13370 

32C13380 

32C13390 

3 2C 13400 

32C13410 

32C13420 

32C 13430 

32C 13440 

32C13450 

32C 13460 

32C13470 

32C13480 

32C 13490 

32C13500 

32C13510 

32C13520 

32C13530 

3 2C 13540 

32C13550 

32C13560 

32C 13570 

32C13580 

32C13590 

32C13600 

32C13610 
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1132 FUNCTION TEST 



PART 
PAGE 



NO. 



5889422 
11A 



******* ***************** 

* INTERRUPT 

************************ 

* 



OAEO 





0000 




0AE1 





E334 




0AE2 





D0F7 




0AE3 





0830 




0AE4 


1 


7400 


0956 


0AE6 





7002 




0AE7 


1 


E400 


0C07 


0AE9 


1 


E400 


0C06 


OAEB 





OOED 





WAIT 



OAEC 1010 
OAED 0002 
OAEE 0025 
OAEF D027 
OAFO 1 0400 OCOO 

0AF2 6500 1000 
0AF4 6923 

0AF5 1 6500 OAFE 
0AF7 1 7400 05E6 
0AF9 700F 

OAFA 1 6000 05E5 
OAFC 4480 0161 

OAFE 1 74FF 0B18 
OBOO 70F4 

0BO1 0812 
0B02 0004 
0B03 C0D6 
0B04 F0D4 
0BO5 1 4420 09FC 

0BO7 1 4C00 0A06 

0BO9 1 C400 05 EO 

OBOB 4488 0161 

OBOO 1 9 400 500 

OBOF 4498 0161 

0B11 I 4400 0609 

0814 0000 
0814 0000 
0B15 3700 
0B16 0000 
0817 0000 
0B18 0000 



0819 COCO 
081A FOBE 
0B1B 1 4420 09FC 

0810 C0F9 
OBIE 1 4420 0A18 

0B20 1 C400 OCOO 

0B22 0001 

0B2 3 4420 0000 



DC 

OR 

STO 

XIO 

MDX 

MOX 

AND 

AND 

STO 

SLA 

STO 
STO 
STO 
STO 

LDX 
STX 



WAIT1 LOX 
MOX 
MOX 

* 

WAIT2 STX 
BSI 

* 

WAIT3 MOX 
MOX 

* 

X 10 

STO 

LD 

ECR 

BSI 

* 

BSC 



*-* 

T8DSU 

BDSW61 

SENSE-1 

RT2EX.0 

*<-2 

K7700 

K7F00 

BDSW 

16 

OPMSW 
ICNT 
EBITS 
CKESW 



LI /1000 
1 WCNT 

LI WAIT3 

L MLSCFtl 
WAIT4 

LI MLSCF 
I START 

L WCNT,-1 
WAIT1 

SENSE-! 
OSWW 
B0SW61 
BDSW 
L ERR2.Z 



ERR3 



WAIT4 


LD 


L 


SHI 




BSI 


I 


START, & ( 




S 


L 


RIO l 




BSI 


I 


START, &- 1 


♦ 


BSI 


L 


CNTRL 




BSS 


E 





ICNT 


DC 




*-* 


SENSE 


DC 




/3700 


TBDSM 


DC 




*— * 


EBITS 


DC 




*-* 


WCNT 


DC 




*-* 


* 








* ENTER HERE 


AFTER INTERI 


* 








RTRN 


LD 




BDSW&l I 




EOR 




BDSW 


* 


SSI 


L 


ERR2,Z 


LD 




EBITS ' 




BSI 


L 


ERR5.Z 


* 










LD 


L 


CKESW 




STO 




*&1 




BSI 


L 


*-*,Z 



******************** 

WAIT ROUTINE 
******************** 



BUILO BUSY OSW S/8 
SET IN S/B 
SENSE BUSY OSW 
CHECK FOR RTN 2 
SKIP IF NOT RTN 2 
MASK BITS AND 4 
MASK BIT 
SAVE BUSY OSW 



RESET ICNT 
RESET EBITS 
RESET CKESW 

SET INTERRUPT 
WAIT CNT 



CK FOR INTERRUPT 

BR IF INTERRUPT OCCURED 

SET RETURN ADDRESS 
GO TO MONITOR 

OECREMENT WAIT CNT 



SENSE HO INTRPT OSW 
SET IN MSG 
LO BUSY OSW S/3 
COMPARE WITH BUSY DSW 
BR IF BUSY OSW ERR 

GO PRINT NO INTRPT MSG 



CK FOR RTN SELECT 
CK FOR NEW ROUTINE 
BR IF NOT NEW RTN 



SENSE WITHOUT RESET 
INT OSW ER BITS 



LD BUSY DSW S/8 
COMPARE WITH BUSY DSW 
BR IF BUSY DSW ERR 

CK FOR INTRPT OSW ER 



BR IF EMIT ERR 



32C 13620 
32C13630 
32C 13640 
32C13650 
32C13660 
32C13670 
32C13680 
32C13690 
32C13700 
32C13710 
32C13720 
32C 13730 
32C13740 
32C13750 
32C13 760 
32C13770 
32C13780 
32C 13790 
32C13800 
32C13810 
32C13820 
32C13830 
3 2C 13840 
32C13850 
32C13860 
32C13870 
32C13880 
32C13890 
32C 13900 
32C13910 
32C 13920 
32C13930 
32C13940 
32C 13950 
32C 13960 
32C13970 
32C 139 80 
32C13990 
32C14000 
32C14010 
32C14020 
32C14030 
32C140 40 
32C140 50 
32C14060 
32C 14070 
32C14080 
32C 14090 
32C14100 
32C14110 
32C14120 
32C14130 
32C14140 
32C 14150 
32C14160 
32C14170 
32C14180 
32C14190 
32C14200 
32C14210 
32C14220 
32C14230 
3 2C 14240 
32C14250 
32C 14260 
32C14270 
32C14280 
32C14290 



0825 


08EE 






XIO 




SENSE-1 


0B26 


E0B8 






AND 




KOOFF 


0B27 


D0B5 






STO 




CHWAS 


0B28 


1 F400 


0BF4 




EOR 


L 


WAS 


0B2A 


1002 






SLA 




2 


0B2B 


1 4C10 


0B31 


* 


BSC 


L 


RTRN1,- 


0B2O 


1006 




SLA 




6 


82E 


6115 






LDX 


1 


/15 


082F 


1 4420 


0A7A 




BSI 


L 


ERR15.Z 



0B31 1 4C80 OAEO 



MASK ALL BUT CHAN BITS 

STO IN ERR MSG 

COMPARE WITH INTRPT DSW 

BR UNLESS AFTER SPACE 

LOOK AT CHANNEL 8ITS 
LO MSG NUMBER 
BR IF NOT EQUAL 



RTRN1 BSC I WAIT 

* 
******************************************** 

* CHECK READY 
******************************************** 

* THIS SUBROUTINE CHECKS THE OSW FOR 

* READY CONDITIONS 

* 



0B33 0000 




REAOY 


DC 




*-* 




0B34 61FD 






LOX 


1 


-3 




0B35 692D 






STX 


1 


DLYCT 




0B36 0800 




RDY1 


XIO 




SENSE-1 


SENSE DSW 


0B37 1 E400 


0C05 




AND 


L 


KFFOO 


CK BITS 0-7 


0B39 009D 






STO 




DSWW 


STORE DSW IN MSG TABLE 


0B3A I 4C98 


0B33 




BSC 


I 


READY, 6- 


REAOY IF BRANCH 


083C E025 






AND 




ROYMK 


MSK NRDY BIT 


0B3D 1 7403 


0B63 




MDX 


L 


DLYCT, 3 




0B3F 7007 






MDX 




RDY2 





0B40 1 4420 09F3 

0B42 4480 0163 
0B44 1 0B64 

0B45 1810 
0B46 D01C 
0B47 1 6500 0B36 
0B49 1 6D00 05E6 
0B4B 1 4C00 0B09 



RDY2 



BSI 

BSI 

DC 

SRA 
STO 
LOX 
STX 

BSC 



L ERR1.Z 

I LOG 
STM 

16 

DLYCT 
LI RDY1 
LI MLSCF&l 
L WAIT4 



TYPE ERROR MESSAGE 

TYPE 

MESSAGE 

SET TO OELAY FOR 
TEN SECONOS 



CK ROUTINE SELECT SWS 



0840 0000 
0B4E 61F0 
0B4F 6913 
0B50 08C3 
0B51 1005 
0B52 1 4C90 0B40 

0B54 1 7403 0B63 

0B56 7005 

0857 4480 0163 

0B59 1 0B64 

085A 1810 
0B5B D007 



0B5C I 6500 0B50 
035E I 6D00 05E6 



******************************************** 

* FORM CHECK 
******************************************** 

* THIS SUBROUTINE CHECKS FOR A FOR* CHECK 

* AFTER A SPACE OR SKIP COMMAND 

* 

FORMS DC 

LDX 

STX 
F0RM1 XIO 

SLA 

BSC 
* 

MOX 

MDX 

BSI 

DC 
* 

SRA 

STO 
* 
* 
F0RM2 LOX 

STX 



*-* 
1 -3 
1 DLYCT 

SENSE-1 

5 

FORMS, - 

DLYCT, 3 
F0RM2 
LOG 
STM 

16 
DLYCT 



LI F0RM1 
LI MLSCF&l 



BR IF NO FORMS CK 



TYPE 
MESSAGE 

SET TO OELAY FOR 
TEN SECONOS 



32C14300 
32C 14310 
32C14320 
32C14330 
3 2C 14340 
32C14350 
32C14360 
32C 14370 
32C14380 
32C14390 
32C14400 
32C14410 
32C14420 
32C 14430 
32C14440 
32C 14450 
3 2C 14460 
32C14470 
32C 14480 
32C14490 
32C14500 
32C14510 
32C14520 
32C14530 
32C14540 
32C14550 
32C14560 
32C14570 
32C14580 
32C14590 
32C14600 
32C14610 
32C 14620 
32C14630 
32C14640 
32C 146 50 
32C14660 
32C14670 
32C14680 
32C14690 
32C14700 
32C14710 
32C14720 
32C14730 
32C14740 
32C14750 
32C14760 
32C14770 
32C 14780 
32C14790 
32C14800 
32C14810 
32C14820 
32C14830 
32C 14840 
32C14850 
32C14860 
32C 14870 
32C14880 
32C14890 
32C 14900 
32C14910 
32C14920 
32C 14930 
32C14940 
32C14950 
32C14960 
32C14970 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 
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11 



OATE 
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DATE 
EC NO. 



0B60 


1 


4C00 


0B09 


* 


BSC 


L 


WAIT4 


CK ROUTINE SELECT SMS 


32C149 80 
32C14990 


0B9C 
0B9E 


1 



74FF 
7072 


0C03 


HI 


MOX 
MDX 


L 


IDLCT.-l 
SKINT 


DEC IDLE CNT 


32C 15660 
32C15670 




0862 





FBOO 




ROYMK 


DC 




/FBOO 




32C15000 










* 










32C15680 




0B63 





0000 




OLYCT 

* 


DC 







DELAY COUNTER 


32C15010 
32C15020 










*— — — 










32C 15690 
32C15700 






* 






IDLE CNT#0 


, SET TO RETURN 




0B64 





0001 




STM 


DC 




1 


MESSAGE NUMBER 


32C 15030 










* _ 










32C15710 
32C15720 




0B65 





0000 






DC 




/OOOO 


HEX/DECIMAL SW 


32C15040 










* 












0B66 





0001 






DC 




/0001 


DATA WORD ID 


32C15050 


0B9F 





1810 






SRA 




16 




32C15730 




0B67 


1 


ODBC 






DC 




ANROY 




32C 15060 ; 


OBAO 





6310 






LOX 


3 


16 


SET FOR 16 EMITS 


32C15740 




0B68 





0000 






DC 









32C15070 


0BA1 


1 


7400 


0C09 




MDX 


L 


SPCSW.O 


CK SPACE-PRINT ON SW 


32C15750 




0B69 





1132 




* 


DC 




/1132 


MACHINE TYPE 


32C15080 
3 2C 15090 
32C15100 


0BA3 
0BA4 






7003 

D065 




* 


MDX 
STO 




PI2 

RTRNS 


SET TO RETURN TO MAINLN 


32C15760 
32C15770 
32C15780 












******************************************** 


32C15110 


0BA5 





6B65 






STX 


3 


STPCT 


THEN TURN PRINT OFF 


32C15 790 












* 






INTERRUPT 


ROUTINE 


32C15120 


0BA6 





706A 






MDX 




SKINT 




32C 15800 












**************************** **************** 

* 


32C15130 
32C15140 










* 










32C15810 
32C15820 
32C 15830 




0B6A 





0000 




PIRT 


DC 




*-* 




32C15150 










* 






SPACE WITH 


PRINTER ON 




0B6B 





C008 






LD 




RT2SM 


GET RTN 2 SWITCH 


32C15160 










*__ 










32C15840 
32C15850 




0B6C 


1 


4C08 


0B75 




BSC 


L 


PIRTltC 


BCH IF SW NOT SET 


32C15170 










* 












0B6E 


1 


OCOO 


0BF4 




XIO 


L 


SRSET-l 


SENSE AND RESET DSW 


32C15180 


0BA7 


1 


74FF 


0C09 


PI2 


MOX 


L 


SPCSW.-l 


DEC SPACE COUNT 


3 2C 15860 




0B70 





1010 






SLA 




16 


CLEAR ACC AND 


32C15190 


0BA9 





1000 






NOP 








32C15870 




0B71 





D002 






STO 




RT2SW 


* RTN 2 SWITCH 


32C15200 


OBAA 





6860 






STX 


3 


STPCT 




32C15880 




0B72 


I 


4C80 


0B6A 




BSC 


I 


PIRT 


RETURN WITHOUT CHECKING 


32C15210 


OBAB 





C063 






LD 




K1200 




32C15890 












* 










32C15220 


OBAC 


I 


ECOO 


OB 16 




OR 


L 


TBDSW 


BIULD BUSY DSW 


32C15900 




0B74 





0000 




RT2SW 


DC 




*-* 


RTN 2 SWITCH 


32C15230 


OBAE 


1 


D400 


OADA 




STO 


L 


BDSW61 




32C15910 




0B75 









PIRT1 


EOU 




* 




3 2C 15240 


OBBO 





6700 


2200 




LDX 


L3 


/2200 


SET EXPECTED SPACE 


32C 15920 




0875 


1 


6E0O 


0C43 




STX 


L2 


I0UT2E.1 


SAVE XR2 


32C15250 


0BB2 





6B4E 






STX 


3 


EXPCTS1 


RESPONSE OSW 


32C15930 




0B77 





1810 






SRA 




16 




32C 15260 


0BB3 





6700 


9200 




LDX 


L3 


/9 200 


SET EXPECTED EMIT 


32C15940 




0878 


1 


D400 


0C02 




STO 


L 


EXPCTS2 




32C15270 


0BB5 





6B4A 






STX 


3 


EXPCT 


RESPONSE DSW 


32C15950 




087 A 





6 700 


05DC 




LDX 


L3 


1500 


RESET INTERRUPT 


32C15280 


0BB6 


1 


6600 


0D99 




LDX 


L2 


ASPIN 




32C15960 




0B7C 





6B9B 






STX 


3 


WCNT 


WAIT COUNTER 


32C 15290 


0BB8 


1 


6E00 


OACA 




STX 


L2 


OPSW 


SET LAST OP SW 


32C 15970 




0B7D 


1 


7401 


0B14 


* 


MDX 


L 


ICNT.l 


CNT INTERRUPTS 


32C15300 
32C15310 


OBBA 





083F 




* 


XIO 




STSPA-1 


SPACE 


32C15980 
32C15990 




0B7F 


I 


OCOO 


0BF4 




XIO 


L 


SRSET-i 


SENSE AND RESET DSW 


32C 15320 










* 










32C 16000 




0S81 





D072 






STO 




MAS 


SAVE DSW 


32C15330 


OBBB 


1 


OCOO 


OB 14 




XIO 


L 


SENSE-! 


SENSE BUSY DSW 


32C16010 




0B82 


1 


0400 


OCOA 




STO 


L 


RTRNS 




32C15340 


OBBD 





E048 






AND 




K7F00 


MASK EMIT RESPONSE AND 


32C16020 




0B84 


1 


4C10 


0C11 




BSC 


L 


SKINT, - 


BR IF NOT PRINT RESP 


32C 15350 










* 








CHANNEL BITS 


32C 16030 












* 

*— 










32C15360 
32C15370 


OBBE 
OBCO 


1 
1 


0400 
4C00 


0AD9 
0C42 




STO 
BSC 


L 
L 


BDSW 
I OUT 2 


SAVE BUSY DSW 


32C 16040 
32C16050 


























* 
*„— — . 






READ EMIT 


INTERRUPT 


32C15380 
32C15390 


0BC2 


L 


74FF 


0BF6 


* 
PI3 


MDX 


L 


SCNCT, -1 


DEC SCAN CNT 


32C 16060 
32C16070 


























* 










32C15400 


0BC4 





7006 






MDX 




PI4 


GO SET UP PRINT BUFFER 


32C16080 




0886 





0871 




PINT 


XIO 




ROEMT 


REAO EMIT 


32C 15410 










* 










32C16090 
32C16100 
32C16110 




0B87 






C078 
DO 79 






LD 
STO 




EXPCT 
EXPCT62 


BUILO EXPECTED DSW 


32C15420 
32C15430 










* — 












0888 


* 






END OF PRINT 




0B89 


1 
I 


C400 
4420 


0956 
OC53 




LD 

BSI 


L 
L 


RT2EX 
CKEMT.Z 


CHECK FOR RTN 2 
BCH IF NOT RTN 2 


32C15440 
32C15450 










*—- — . — 










32C16120 
32C16130 




0B8B 


* 




















* 










32C 15460 


0BC5 


1 


4400 


09CC 




BSI 


L 


CLEAR 


SET BUFFER TO ZERO 


32C16140 




0B80 





C068 






LD 




SCNCT 


CHECK FOR PRINT 


32C 15470 


0BC7 





6 700 


8200 




LDX 


L3 


/8200 


SET EXPCT FOR 


32C16150 




0B8E 


1 


4C30 


0BC2 


* 


BSC 


L 


PI3.Z- 


BR IF PRINT 


32C15480 
32C 15490 


0BC9 

OBCA 







6B36 
7046 






STX 

MDX 


3 


EXPCT 
SKINT 


NORMAL PRINT DSW 


32C16160 
32C16170 




0B90 





C072 






LO 




IDLCT 


CK FOR IDLE 


32C15500 










* 










32C16180 




0B91 


1 


4C20 


0B9C 




BSC 


L 


PI1.Z 


BR IF IDLE 


32C15510 










^ 










32C16190 
32C 16200 












* 










32C 15520 










* 






SET UP PRINT BUFFER 




0B93 


1 




74FF 
707B 


OCOB 




MDX 
MDX 


L 


STPCT, -1 

SKINT 




32C15530 
32C15540 










*— — 










32C16210 
32C16220 




0B95 


* 




















* 










32C15550 
32C15560 


OBCB 





10A0 




PI4 


SLT 




32 




32C 16230 






















OBCC 


1 


C400 


09CA 




LO 


L 


MSGSW 


CK MSG SW 


32C 16240 












* 

* 






STOP PRINTER 


32C15570 
32C15580 


OBCE 
OBDO 


1 


4C20 


0CA5 




BSC 


L 


MSCAN.Z 


IF SW ON- GO SET UP MSG 


32C16250 






















I 


6780 


05 El 




LDX 


I 3 


SW2 




32C 16260 












* 










32C15590 


0BD2 





1811 






SRA 




17 




32C16270 




0B96 





D069 






STO 




EXPCT 




32C1560Q 


0BD3 





73FF 






MDX 


3 


-1 




32C16280 




0B97 


1 


D400 


0B16 




STO 


L 


TBOSW 




32C15610 


0B04 





70FD 






MDX 




*-3 




32C 16290 




0899 





D060 






STO 




EMTSH 


RESET 1ST EMIT SW 


32C15620 


0BD5 





6 700 


0000 


PI5 


LDX 


L3 


*-* 


INITIALIZED TO -16 


32C16300 




0B9A 





0857 






XIO 




STPPT-1 


STOP PRINTER 


32C15630 


0BD7 





6600 


0000 


PI6 


LDX 


L2 


*-* 


INITIALIZED TO -8 


32C16310 




0B9B 





7075 




* 


MDX 




SKINT 




32C 15640 
32C15650 


0BD9 
OBDA 






C228 
18C1 






LD 
RTE 


2 


40 
1 


LD WORD TO SHIFT 
SHIFT BIT 


32C16320 
32C16330 




25JUN71 15DEC71 












PROG ID 032C-0 
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PROG ID 


032C-0 


571152 
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DATE 
EC NO. 



OBDB 





D228 






STO 


2 


40 




32C16340 


0C15 





COEB 






LD 




EXPCT&l 


LD EXPCT SKIP DSW 


32C17020 




OBDC 





7301 






MDX 


3 


1 


DECREMENT WORD CNT 


32C16350 


0C16 





E8EB 






OR 




EXPCT&2 


BUILO EXPECTED OSW 


32C17O30 




OBDO 





7007 






MDX 




PI7 




32C16360 


0C17 





DOEA 






STO 




EXPCT62 




32C17040 




OBDE 





7201 






MDX 


2 


1 


AOV TO NEXT WORD 


32C16370 


0C18 


1 


7400 


0948 




MDX 


L 


SKPTO 


CK SKIP TO 


32C17050 




OBDF 





7001 






MDX 




*tl 




32C16380 


0C1A 





7001 






MOX 




SKIN1 




32C17060 




OBEO 





70E4 




* 


MDX 




PI363 


FINISHED- STOP PRINT 


32C 16390 
32C16400 


0C1B 





7003 




* 


MDX 




SKIN2 




32C17070 
32C 170 80 




0BE1 





63F0 






LOX 


3 


-16 


RESET SHIFT CNT 


32C16410 


0C1C 


I 


74FF 


0949 


SKIN1 


MDX 


L 


SKCNT.-l 


STOP CARRIAGE AFTER 16 


32C17090 




0BE2 





1090 






SLT 




16 




32C 16420 


0C1E 





7003 






MOX 




SKIN3 


SKIP INTRPTS WITHOUT 


32C17100 




0BE3 





D600 


0028 




STO 


L2 


40 


SET NEXT WORO 


32C 16430 










* 








A MATCH 


32C17110 












* 










32C16440 


0C1F 


1 


OCOO 


0BF6 


SKIN2 


XIO 


L 


STPCA-1 


STOP CARRIAGE 


32C17120 




0BE5 





C022 




PI7 


LD 




K0001 




32C16450 


0C21 





7016 






MDX 




SPIN2 




32C17130 




0BE6 





EC 00 


0027 




OR 


L 


39 


RESTORE SCAN COMP BIT 


32C16460 










* 










3 2C 17140 




0BE8 





D400 


0027 




STO 


L 


39 




32C16470 


0C22 





C0D1 




SKIN3 


LD 




WAS 




32C17150 




OBEA 





6BEB 






STX 


3 


PI5£1 


SAVE XR 3 


32C16480 


0C23 





1008 






SLA 




8 


COMPARE PRESENT CHANNEL 


32C17160 




OBEB 





6AEC 






STX 


2 


PI661 


SAVE XR2 


32C16490 


0C24 


1 


F400 


0948 




EOR 


L 


SKPTO 


WITH DESIRED 


32C17170 




OBEC 


1 


7401 


0BF2 




MDX 


L 


BLANK, I 


WHEN ZERO- PUT BLANK 


32C16500 


0C26 


1 


4C20 


0C42 




BSC 


L 


I0UT2.Z 


BR IF NOT EQUAL 


32C17180 




OBEE 





7022 




* 


MDX 




SKINT 


IN PATTERN 


32C16510 
32C16520 


0C28 





70F6 




* 

* 


MDX 




SKIN2 




32C17190 
32C17200 
32C17210 




OBEF 





63CF 






LDX 


3 


-49 


PUT BLANK 


32C 16530 




















OBFO 





6B01 






STX 


3 


BLANK 


IN PATTERN 


32C 16540 










* 






SPACE INTERRUPT 


32C17220 
32C17230 




0BF1 





70D9 






MDX 




PI4 




32C16550 










' 




















* 










32C16560 










* 










32C17240 












■Qr.. _ __ i. 










32C16570 
32C16580 


0C29 
0C2A 






COCA 
1002 




SPINT 


LD 
SLA 




WAS 
2 




32C172 50 
32C17260 






* CONSTANTS AND STORAGE 
























32C 16590 
32C16600 


0C2B 
0C2D 


L 




4C10 
6310 


0C3B 




BSC 
LDX 


L 

3 


IOUT,- 
16 


BR IF NOT SPACE 

SET TO HOLD PRNTR ON 


32C17270 
32C17280 






* 










/ 


0BF2 




0000 






BSS 


E 







32C16610 


0C2E 





C0D2 






LD 




EXPCTSl 


LD EXPCT SPACE DSW 


32C17290 




0BF2 





0000 




BLANK 


DC 




*-* 


PATTERN BLANK CNT 


32C16620 


0C2F 





E8D2 






OR 




EXPCTG2 


BUILD EXPECTED DSW 


32C17300 




0BF3 





3440 




STPPT 


DC 




/3440 


STOP PRINTER 


32C16630 


0C30 





E0D3 






AND 




KEFOO 




32C17310 




0BF4 





0000 




WAS 


DC 




*-* 


INTERRUPT OSW 


3 2C 16640 


0C31 





DODO 






STO 




EXPCT62 




32C17320 




0BF5 





3701 




SRSET 


DC 




/3701 


SENSE AND RESET DSW 


32C16650 


0C32 





C0D6 






LD 




SPCSW 


CK SPACE-PRINT ON SW 


32C17330 




0BF6 





0000 




SCNCT 


DC 




*-* 


SCAN COUNT 


32C16660 


0C33 


1 


4C20 


0BA7 




BSC 


L 


P12.Z 


BR IF ON 


32C17340 




0BF7 





3402 




STPCA 


DC 




/3402 


STOP CARRIAGE 


32C16670 










* 










32C17350 




0BF8 


1 


0C10 




RDEMT 


DC 




EMIT 


READ COUNTER 


32C16680 


0C35 





COCE 




SPIN1 


LD 




KEFOO 




32C17360 




0BF9 





3200 






DC 




/3200 


SCANNED 


32C16690 


0C36 





E0C9 






AND 




EXPCT 


REMOVE CARRIAGE BUSY 


32C17370 




OBFA 





0000 




EMTSW 


oc 




*-* 


FIRST EMIT SW 


32C 16700 


0C37 





D0C8 






STO 




EXPCT 




32C17380 




OBFB 





3401 




STSPA 


DC 




/3401 


START SPACE 


32C16710 


0C38 





1810 




SPIN2 


SRA 




16 




32C17390 




OBFC 





0000 




ANDEM 


DC 




*-* 




32C16720 


0C39 





00C7 






STO 




EXPCTJU 


RESET SKIP/SPACE EXPCT 


32C 17400 




OBFD 





0000 




OREM 


DC 




*-* 




32C16730 


0C3A 





7003 






MOX 




I0UT1 




32C17410 




OBFE 





BFOO 




ANDOR 


DC 




/BFOO 


EMIT CK CONSTANT 


32C16740 










* 










32C17420 
32C17430 




OBFF 





0000 






DC 




/OOOO 




32C16750 










*————" 












OCOO 





0000 




EXPCT 


DC 




*-* 


EXPECTED INTRPT DSW 


32C16760 
32C16770 










* 






RETURN FROM INTERRUPT 


32C17440 
32C17450 




0C01 





0000 






DC 




*— * 
























0C02 





0000 






DC 




*-* 




32C16780 










* 










32C17460 




0C03 





0000 




IDLCT 


DC 




«-* 


IDLE COUNT 


32C16790 


0C3B 





COCE 




IOUT 


LO 




RTRNS 




32C17470 




0C04 





EFOO 




KEFOO 


DC 




/EFOO 




32C16800 


0C3C 


1 


4C28 


0C42 




BSC 


L 


I0UT2.Z& 


GO RTRN IF NOT PRINT 


32C 17480 




OC05 





FFOO 




KFFOO 


DC 




/FFOO 




32C 16810 










* 










32C 17490 




0C06 





7F0O 




K7F00 


DC 




/7F00 




32C16820 


0C3E 


1 


6700 


0B19 


I0UT1 


LDX 


L3 


RTRN 




32C17500 




0C07 





7 700 




K7700 


OC 




/7700 




32C16830 


0C40 


1 


6F00 


05E6 




STX 


L3 


MLSCF&l 


SET MLSCF 


32C17510 




OC08 





0001 




K0001 


DC 




/0001 




32C16840 










* 










32C17520 




0C09 





0000 




SPCSW 


DC 




*-* 


SPACE WITH PRINT ON SW 


32C16850 


0C42 





6600 


0000 


I OUT 2 


LDX 


L2 


*-* 


RESTORE XR2 


32C17530 




OCOA 





0000 




RTRNS 


DC 




*-* 




32C16860 


0C44 


1 


7400 


0817 




MDX 


L 


EBITS 


SKIP IF NO DSW ER 


32C17540 




OCOB 





0000 




STPCT 


OC 




*-* 


STOP PRINTER COUNT 


32C16870 


0C46 





700A 






MDX 




I OUT 3 




32C17550 




OCOC 





0000 




CHARC 


DC 




*-* 


TEMPORARY STORAGE 


32C16880 










* 










32C17560 




OCOD 





0000 




CKESW 


DC 




*-* 


ERROR SWITCH 


32C 16890 


0C47 





COAC 






LD 




WAS 


LD DSW 


32C17570 




OCOE 





0000 




EMTCT 


OC 




*-* 


EMIT COUNTER 


32C16900 


0C48 


1 


D400 


OADB 




STO 


L 


IDSW 


STO DSW WAS 


32C17580 




OCOF 





1200 




K1200 


DC 




/1200 




32C16910 


0C4A 





F0B7 






EOR 




EXPCT62 


COMPARE -UTH EXPECTED DSW 


32C 17590 




0C10 





0000 




EMIT 


DC 




*-* 




32C16920 


0C4B 





E0B8 






AND 




KEFOO 




32C17600 












* 










32C16930 


0C4C 


1 


D400 


0B17 




STO 


L 


EBITS 


SAVE ER BITS 


32C17610 












•Jr n 










32C16940 
32C16950 


0C4E 
0C4F 




1 


F0A5 
D400 


OADC 




EOR 
STO 


L 


WAS 
IDSW61 


BUILD OSW S/B 
STO DSW S/B 


32C 17620 
32C17630 






* 






SKIP INTERRUPT 












* 













32C16960 


0C51 


1 


4C80 


0B6A 


I0UT3 


BSC 


I 


PIRT 




32C17640 












* 










32C16970 










* 










32C17650 




0C11 





C0E2 




SKINT 


LD 




MAS 


LD DSW 


32C 16980 










♦a****************************************** 


32C17660 




0C12 





1001 






SLA 




1 




32C16990 










* 






CHECK EMIT 




32C17670 




0C13 


1 


4C10 


0C29 




BSC 


L 


SPINT,- 


BR IF NOT SKIP 


32C17000 










*#****************************************** 


32C 17680 












* 










32C17010 










* THIS SUBROUTINE FINDS 


THE FIRST CHARACTER 


32C17690 




25JUN71 15DEC71 












PROG ID 032C-0 


OATE 25JUN71 


150EC71 












PROG ID 


032C-0 


571152 571154 












PAGE 13 


EC NO. 571152 ! 


571154 












PAGE 


13A 



w 
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* EMITTED 

* 



IN THE TABLE 



^ 
^ 
Sw 



DATE 
EC NO. 



0C53 0000 
0C54 COBS 
0C55 1 4CA0 0C53 
0C57 COBS 
0C58 I 0400 0AD5 

0C5A 1 7400 OBFA 
0C5C 7038 



0C5D 
0C5E 
0C5F 
0C60 
0C61 
0C62 
0C63 
0C64 
0C65 

0C67 
0C68 
0C6A 
0C6B 
0C6D 
0C6E 
0C6F 
0C71 
0C72 

OC73 
0C74 
0C75 
0C76 
0C77 
0C79 

0C7B 
0C7D 
0C7E 
0C80 
0C81 
0C83 
0C85 
0C87 
0C89 
0C8A 
0C8B 
0C8D 
0C8E 
OC90 
0C92 
0C94 



C0B2 
E89E 
009D 
COAF 
E09A 
D099 
F099 
FOAO 
4C20 0C7B 

63D0 

C700 OCFO 
90A5 

4C18 0C73 
7301 
70F9 

6700 0A37 
6B9B 
7006 



6886 
7301 
7001 

63D0 

1 6F00 OCOC 
I 4C80 0C53 



74FF 
70C4 
6 700 
6B8C 



1 CCOO 



1 DCOO 

1 CCOO 

I DCOO 

6364 

6B83 

OCOO 

1810 

D400 

D400 

D400 

70A9 



OCOE 

0A2F 

OBFC 
0AD2 
OBFE 
OBFC 



0BF2 

OCOO 
0B16 
OBFA 



0C95 
0C97 
0C99 



6780 OCOC 
C700 OCFO 



D400 0AD6 
0C9B 1 9400 0C10 
0C9D 1 4C18 0C73 

6 700 0A3F 



0C9F 
0CA1 



1 6F00 OCOO 



25JUN71 
571152 



15DEC71 
571154 



CKEMT DC 
10 
BSC 
LO 
STO 



MDX 
MOX 

* 

LD 

OR 
STO 
LO 
A NO 
STO 
EOR 
EOR 
BSC 
* 

LDX 
CKEMl LD 
S 

BSC 
MDX 
MDX 
LDX 
STX 
MOX 

CKEM2 STX 
MOX 
MDX 
LDX 

CKEM3 STX 

CKEM4 BSC 

* 

CKEM5 MDX 
MDX 
LDX 
STX 
LDD 
STD 
LDO 
STD 
LDX 
STX 
XIO 
SRA 
STO 
STO 
STO 
MDX 



*-* 
CKESW 
CKEMT, Z 
EMIT 
EMTWS 

L EMTSW 
CKEM6 

EMIT 
OREM 
OREM 
EMIT 
ANDEM 
ANDEM 
OREM 
KFFOO 
L CKEM5.2 

3 -48 
L3 CHAR£48 

EMIT 
L CKEM2.E- 
3 1 
CKEMl 
L3 ERR7 
3 CKESW 
CKEM4 

EMTSH 
3 1 

CKEM3 
3 -48 
L3 CHARC 
I CKEMT 

L EMTCT.-l 

I0UT2 
L3 ERR6 

3 CKESW 
L ANDEM 
L ERH4 
L ANDOR 
L ANDEM 

3 100 

3 EMTCT 
L STPPT-1 

16 

L EXPCT 

L TBOSW 

L EMTSW 

I0UT1 



STO EMIT HAS 

CK FOR FIRST EMIT 
BR IF NOT FIRST 



CK FOR MISSING EMIT BITS 
FFOO IF OK 

CK FOR SHORTED EMIT BITS 

0000 IF OK 

CK FOR EMIT BITS OK 

CONT IF ALL EMIT BITS OK 

FIND FIRST CHARACTER 

EMITTED IN 

SEQUENCE TABLE 
FOUND IF BR 
GO TO NEXT TABLE ENTRY 



RESET 1ST SCAN SW 
DECREMENT XR FOR NEXT CHAR 

AND SAVE 
IF XR3 » 0, RESET 



CNT 100 EMITS 
THEN SKIP 

SET ER SH FOR ER 6 
LD ERROR CODE 
SET IN MESSAGE 
REINITIALIZE EMIT 
CHECK HORD 

RESET EMIT CK CNT 
STOP PRINTER 



RESET 1ST EMIT SW 



* THIS SUBROUTINE CHECKS THE CHARACTER EMITTED 
*.-..? T "_ THE TABLE OF CHARACTERS IN THE PROPER SEQ 



CKEM6 LDX 
LD 
STO 
S 

BSC 
LOX 
STX 



13 CHARC 
L3 CHAR648 
L EMTSB 
L EMIT 
L CKEM2,£- 
L3 ERR8 
L3 CKESW 



RESET XR3 AND CHECK IF 

CHAR EMITTED 

STO EMIT S/B 

IS IN THE PROPER SEQUENCE 

YES, IF BRANCH 

SET ERROR SH 



32C17 700 

32C17710 

32C17 720 

32C17730 

32C17740 

32C17750 

32C 17760 

32C17770 

32C17780 

32C17 790 

32C17800 

32C17810 

32C17820 

32C17830 

32C 17840 

32C 17850 

32C17860 

32C17870 

32C17880 

32C17890 

32C17900 

32C17910 

32C17920 

32C17930 

32C17940 

32C17950 

32C17960 

32C17970 

32C 17980 

32C 17990 

32C18000 

32C18010 

32C18020 

32C18030 

32C18040 

32C18050 

32C 18060 

32C18070 

32C18080 

32C18090 

32C18100 

32C18110 

32C18120 

32C18130 

32C18140 

32C18150 

32C18160 

32C18170 

32C18180 

32C18190 

32C18200 

32C18210 

32C18220 

32C 18230 

32C18240 

32C18250 

32C18260 

32C18270 

32C18280 

32C18290 

32C18300 

32C18310 

32C 18320 

32C18330 

32C18340 

32C18350 

32C18360 

32C18370 



PROG ID 
PAGE 



0CA3 1 4C80 0C53 



BSC I CKEMT 



*************** ************* j,***********^^ 

* MESSAGE SET UP 

******* *****************************♦»****,„, 

* THIS SUBROUTINE SCANS THE PRINTER MESSAGE 

* AND SETS THE PRINT BUFFER FOR THE NEXT EMIT. 









* 






0CA5 


63E0 




MSCAN LOX 


3 -32 


0CA6 


10A0 






SLT 


32 


0CA7 


DCOO 


0020 


* 


STD 


L 32 


0CA9 


6200 




LDX 


2 


OCAA 


1 4C20 


OCAF 


MSI 


BSC 


L MS2.Z 


OCAC 


7201 






MDX 


2 1 


OCAD 


I C400 


09C6 


* 
MS2 


LD 


L K8000 


OCAF 


DOOF 




STO 


TEMP 


OCBO 


1 C700 


0E05 




LD 


L3 BUF632 


0CB2 


1 F400 


0C10 




EOR 


L EMIT 


0CB4 


1 4C20 


0CB9 




BSC 


L MS3.Z 


0CB6 


C008 






LD 


TEMP 


0CB7 


EA1F 






OR 


2 31 


0CB8 


D21F 




* 
MS3 


STO 


2 31 


0CB9 


C005 




LD 


TEMP 


OCBA 


1801 






SRA 


1 


OCBB 


7301 






MDX 


3 1 


OCBC 


70ED 






MDX 


MSI 


OCBD 


1 4C00 


0C3B 




BSC 


L I OUT 



OCBF 0000 



OCCO 0017 
0CD1 0017 
0CE2 0015 



SET TO SCAN BUFFER 



CK FOR NEXT BUF WORD 



SAVE MSG CHAR POSITION 
LD NEXT MSG CHARACTER 
COMPARE CHAR HI TH EMIT 
BR IF NOT EQUAL 
IF EQUAL SET BIT IN 
PRINT BUFFER 



SHIFT TO NEXT MSG 

CHAR POSITION 
ADV TO ^EXT CHAR 



* 

TEMP DC *-* 

* 

******* *******************:„**** ^m.m,,,,,,,,^ 

* EMIT CHARACTERS 

******* *************************, M ,*****^. (1 ^ 

* THIS IS THE TABLE OF CHARACTERS IN THE 

* PROPER SCAN EMIT SEQUENCE 

^ , 

CHAR 



EBC 
EBC 
EBC 



.X 
./ 

.6 



Z B 
£ K 
9 = 



U 1 3 5 7 
E H Y A C 
♦ * J L N 



8 * • ) ( 
F I T V 2 4 

P R G X . 



0CF1 

0CF2 

0CF3 

0CF4 

0CF5 

0CF6 

0CF7 

0CF8 

0CF9 

OCFA 

OCFB 

OCFC 

OCFD 

OCFE 

OCFF 

ODOO 

0D01 

OD02 

0D03 

0D04 

0D05 

0D06 

0D07 



F100 
F200 
F300 
F400 
F500 
F600 
F700 
F800 
F900 
FOOO 
7E00 
5B00 

4 BOO 
7D00 
6B00 
5D00 
6000 
4D00 
4E00 
6100 

5 COO 
5000 
D100 



CHARF DC 
DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



/FlOO 

/F200 

/F300 

/F400 

/F500 

/F600 

/F700 

/F800 

/F900 

/FOOO 

/7E00 

/5800 

/4B00 

/7DO0 

/6B00 

/5D00 

/6000 

/4D00 

/4E00 

/6100 

/5C00 

/5000 

/DiOO 



2 
3 

4 
5 
6 
7 
8 
9 

# 
* 



£ 

/ 
* 
£ 
J 



032C-0 
14 



DATE 
EC NO. 



25JUN71 
571152 



15DEC71 
571154 



32C18380 

3 2C 18390 

3 2C 18400 

32C18410 

32C 18420 

32C18430 

32C 18440 

32C 18450 

32C18460 

32C18470 

32C18480 

32C18490 

3 2C 18500 

32C18510 

32C18520 

32C18530 

32C18540 

32C18550 

3 2C 18560 

32C 18570 

32C18580 

32C 18590 

32C18600 

32C18610 

32C18620 

32C18630 

32C18640 

32C18650 

32C18660 

32C18670 

32C 18680 

32C18690 

32C 18 700 

32C18710 

32C18720 

32C18730 

32C 18740 

32C18750 

32C 18760 

32C18770 

32C18780 

32C18790 

32C18800 

32C18810 

32C18820 

32C18830 

32C18840 

32C18850 

32C18860 

32C18870 

32C18880 

32C18890 

3 2C 18900 

32C 18910 

32C18920 

32C 18930 

32C18940 

32C18950 

32C18960 

32C18970 

3 2C 18980 

32C18990 

32C19000 

32C19010 

32C19020 

32C19030 

3 2C 19040 

32C19050 



PROG 10 
PAGE 



032C-0 
14A 
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0D08 





D200 


0D09 





D300 


OOOA 





D400 


ODOB 





D500 


ODOC 





D600 


000 D 





D700 


ODOE 





D800 


OOOF 





D900 


0D10 





C500 


0D11 





C700 


0D12 





E600 


0D13 





E700 


0D14 





E800 


0D15 





E900 


0016 





C100 


0017 





C200 


0D18 





C300 


0D19 





C400 


001A 





C600 


0D1B 





C800 


0D1C 





C900 


001D 





E200 


0D1E 





E300 


0D1F 





E400 


0020 





E500 


002 1 





F100 





0022 


923E 




0023 


9A21 




0D24 


219A 




0D25 


BCIA 




026 


2100 




002 7 


FFFF 




0D28 


2184 




0029 


9A9E 




002A 


3E9E 




0D2B 


221E 




002C 


2132 




002D 


9A92 




0D2E 


2136 




002F 


6262 




0030 


FFFF 




0D31 


2184 




0032 


1A82 




0033 


9AA6 




0034 


2132 




0D35 


9A92 




003 6 


2136 




0037 


6262 




0038 


FFFF 




0D39 


2184 




003 A 


5E36 




003B 


B6FC 




003C 


2132 




0030 


9A92 




003E 


2136 




003F 


6262 




0040 


FFFF 




0D41 


329A 




0042 


9221 


DATE 


25JUN71 15DEC71 


EC NO. 


571152 571154 



DC 


/D200 


K 


OC 


/0 300 


L 


DC 


/D400 


M 


OC 


/D500 


N 


DC 


/D600 





DC 


/D700 


P 


DC 


/D800 


Q 


DC 


/0900 


R 


DC 


/C500 


E 


OC 


/C700 


G 


OC 


/E600 


W 


OC 


/E700 


X 


OC 


/E800 


Y 


DC 


/E900 


L 


DC 


/C100 


A 


DC 


/C200 


B 


DC 


/C300 


C 


DC 


/C400 


D 


DC 


/C600 


F 


DC 


/C800 


H 


DC 


/C900 


I 


DC 


/E200 


S 


DC 


/E300 


T 


OC 


/E400 


U 


OC 


/E500 


V 


DC 


/F100 


I 


* 

******* ****************** 


* 


ALPHA ! 


•ASSSk- 


************************* 


* 

AWAS DC 


/923E 




OC 


/9A21 




DC 


/219A 




DC 


/BCIA 




DC 


/2100 




DC 
* 
ASDSW DC 


/FFFF 




/2184 




DC 


/9A9E 




DC 


/3E9E 




DC 


/221E 




DC 


/2132 




DC 


/9A92 




DC 


/2136 




DC 


Z6262 




OC 
* 
ABOSW DC 


/FFFF 




/2184 




DC 


/1AB2 




OC 


/9AA6 




DC 


/2132 




DC 


/9A92 




DC 


/2136 




DC 


/6262 




OC 
* 
ADSWl OC 


/FFFF 




/2184 




DC 


/5E36 




DC 


/B6FC 




DC 


/2132 




DC 


/9A92 




OC 


/2136 




DC 


/6262 




DC 
* 
ADSW OC 


/FFFF 




/329A 




OC 


/9221 





WAS S/B 



STATIC OS* ERR 



BUSY OS* ERR 



LEVI DSW ERR 



DSW 



32C 19060 


0043 FFFF 


32C19070 




32C19080 


0044 2121 


3 2C 19090 


0045 8476 


32C19100 


0046 5221 


32C19110 




32C19120 


0D47 2276 


32C19130 


0048 9E62 


32C19140 


0049 569E 


32C19150 


0D4A FFFF 


32C19160 




32C19170 


004B 329A 


32C19180 


0D4C 9221 


32C19190 


004D 2184 


32C19200 




32C19210 


0D4E 5662 


32C 19220 


0D4F 769E 


32C19230 


0D50 6 200 


32C19240 


0051 FFFF 


32C19250 




32C19260 


0D52 9A9E 


32C19270 


0D53 5256 


32C19280 


0054 5636 


32C19290 


0D55 3200 


32C19300 


0056 FFFF 


3 2C 193 10 




32C19320 


0D57 3222 


32C19330 


0058 3221 


3 2C 19340 


0D59 7652 


32C19350 


005A 9E21 


32C19360 


005B 9EB2 


32C19370 


005C 6276 


32C19380 


005D 2152 


32C 19390 


0D5E 1212 


32C19400 


0D5F FFFF 


32C19410 




32C 19420 


0D60 5256 


32C19430 


0061 3676 


32C19440 


0062 219A 


32C19450 


0063 2652 


32C19460 


0064 629E 


32C19470 


0065 2184 


32C 19480 


0D66 3672 


32C19490 


0067 229E 


32C19500 


0D68 211A 


32C19510 


0D69 229E 


32C19520 


0D6A 2112 


3 2C 195 30 


0D6B 3E22 


32C 19540 


006C 5EB2 


32C19550 


006D 6236 


32C19560 


0D6E FFFF 


32C19570 




32C19580 


006F 3672 


32C 19590 


0070 229E 


32C19600 


0071 2184 


32C19610 


0D72 2276 


32C19620 


0D73 B63E 


32C19630 


0D74 5E32 


32C 19640 


0075 FFFF 


32C19650 




32C19660 


0D76 2184 


32C 19670 


0077 3672 


32C19680 


0078 229E 


32C19690 


0D79 2100 


32C 19700 


0D7A 9A36 


32C19710 


0D7B 6621 


32C19720 


007C 3662 


32C19730 


007D 6200 
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OC 
* 
ANINT DC 

DC 

DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 



* 
AINT 



* 
ADPR 



APRTR DC 
DC 
DC 
DC 

* 

ASTPD OC 
DC 
DC 
DC 
DC 

* 

ADNTO OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 



* 
AEBF 



OC 
DC 
DC 
UC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
OC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
OC 



AESER DC 
OC 
DC 
OC 
DC 
DC 
DC 
DC 



* 
AEMT 



ASER 



/FFFF 

/2121 
/8476 
/5221 

/2276 
/9E62 
/569E 
/FFFF 

/329A 
/9221 
/2184 

Z5662 
/769E 

/6200 
/FFFF 

/9A9E 
/5256 
/5636 
/3200 
/FFFF 

/3222 
/3221 
/7652 
/9E21 
/9EB2 
/6276 
/2152 
/1212 
/FFFF 

/5256 
/3676 
/219A 
/2652 
/629E 
/2184 
/3672 
/229E 
/211A 
/229E 
/2112 
/3E22 
/5EB2 
/6236 
/FFFF 

/3672 
/229E 
/2184 
/2276 
/B63E 
/5E32 
/FFFF 

/2184 
/3672 
/229E 
/2100 
/9A36 
/6621 
/3662 
/6200 



NO INTRPT 



OSW -PRINTER 



PRINTER 



STOPPED 



010 NOT TURN OFF 



EMIT BIT FAILURE 



EMIT INVALO 



EMIT SEQ ERR 



3 2C 19740 

32C19750 

32C19760 

32C19770 

32C 19780 

32C19790 

32C 19800 

32C19810 

32C19820 

32C19830 

32C19 840 

32C19850 

32C19 860 

32C19870 

32C19880 

32C 19890 

32C19900 

32C19910 

32C19920 

32C19930 

32C19940 

32C19950 

32C19960 

32C19970 

32C19980 

32C19990 

32C20000 

32C20010 

32C20020 

32C20030 

32C20040 

32C20050 

3 2C 20060 

32C20070 

32C20080 

32C20090 

32C20100 

32C20110 

32C20120 

32C20130 

32C20140 

32C20150 

32C20160 

32C20170 

32C20180 

32C20190 

32C20200 

32C20210 

32C20220 

32C20230 

32C20240 

32C20250 

32C20260 

32C20270 

32C20280 

32C20290 

32C20300 

32C20310 

32C20320 

32C20330 

32C20340 

32C20350 

32C20360 

32C20370 

32C20380 

32C20390 

32C20400 

32C20410 
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0D7E FFFF 




0D7F 7222 




0D8O 9A9A 




0D81 2274 




0D82 1621 




0D83 1E26 




0D84 3E76 




0D85 7636 




0D86 5E00 




0D87 FFFF 




0088 72B2 




0D89 5E9E 




0D8A 2100 




0D8B 9A56 




0D8C 3E1E 




0D8D 3600 




0D8E FFFF 




008F 72B2 




0090 5E9E 




0D91 2100 




0092 9A5A 




0D93 2256 




0D94 FFFF 




0D95 5662 




0D96 2276 




009T 9100 




0D98 FFFF 




0D99 9A56 




009A 3E1E 




0D9B 34«4 




009C 21S6 




0D90 6222 




0D9E 769E 




009F 2152 




ODAO 7600 




0DA1 FFFF 




0DA2 9A36 




0DA3 769A 




00A4 3621 




0DA5 3662 




0OA6 6200 


•_ 


00A7 FFFF 




0DA8 923E 




0DA9 9A21 




ODAA 2184 




0DA8 2276 




ODAC B63E 




ODAD 5E32 




OOAE 2 HE 


1 


OOAF 263E 




ODBO 7676 




00B1 365E 


1 


0DB2 211E 




0DB3 5232 




0DB4 3600 


^ 


00B5 FFFF 




00B6 095E 


w 


0DB7 3E9A 


^ 




DATE 


25JUN71 150EC71 


EC NO. 


571152 571154 



DC 



AMC 



OC 
OC 
DC 
DC 
ACHAN OC 
OC 
DC 
BC 
DC 



* 
AMSP 



* 
ASPC 



* 
AMSK 



ASKP 



* 
APRT 



DC 

DC 
OC 

OC 
DC 
DC 
DC 

DC 
DC 
OC 

DC 
DC 
OC 

DC 
OC 
OC 
DC 



ASPIN DC 
DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 

* 

ASNER DC 
DC 

DC 
DC 
DC 

OC 

* 

AINVC DC 
DC 

DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
OC 
DC 



* 
ALOP 



DC 
DC 



/FFFF 

, /7222 
/9A9A 
/2276 
/1621 
/1E26 
/3E76 
• 7636 
/5E00 
/FFFF 

/72B2 
/5E9E 
/2100 

/9A56 
/3E1E 
/3600 
/FFFF 

/72B2 
/5E9E 
/2100 

/9A5A 
/2256 
/FFFF 

/5662 
/2276 
/9E00 
/FFFF 

/9A56 
/3E1E 
/3684 
/2156 
/6222 
/769E 
/2152 
/7600 
/FFFF 

/9A36 
/769A 
/3621 
Z3662 
/6200 
/FFFF 

/923E 
/9A21 
/2184 
/227b 
/B63E 
/5E32 
/211E 
/263E 
/7676 
/365E 
/211E 
/5232 
/3600 
/FFFF 

/095E 
/3E9A 



MISSING CHANNEL 



MULT SPACE 



SPACE 



MULT SKIP 



SKIP 



PRINT 



SPACE- PRINT ON 



SENSE ERR 



WAS -INVALO CHANNEL CODE 



LAST OP- 



32C20420 


00B8 9E21 


32C20430 


0089 5256 


32C20440 


OOBA 8421 


32C20450 


ODBB FFFF 


32C20460 




32C20470 


ODBC 7662 


32C 20480 


ODBD 32A6 


32C20490 


ODBE FFFF 


32C20500 




32C2051O 


OOBF 9A36 


32C20520 


ODCO 9E21 


32C20530 


0DC1 9A92 


32C20540 


0OC2 21FC 


32C20550 


0OC3 8404 


32C20560 


0DC4 2112 


32C20570 


0DC5 5262 


32C20580 


0DC6 211E 


32C20590 


0DC7 525E 


32C20600 


0DC8 21E4 


32C20610 


0DC9 84FC 


32C20620 


ODCA F421 


32C20630 


ODCB 1252 


32C20640 


OOCC 6221 


32C20650 


ODCO 1E26 


32C20660 


ODCE 3E62 


32C20670 


OOCF 8141 


32C20680 


ODOO 9EB2 


32C20690 


0001 62 76 


32C20700 


0DD2 2152 


32C20710 


00D3 7621 


32C20720 


0DD4 C421 


32C20730 


0DD5 9E52 


32C20740 


0DD6 2 19 A 


32C20750 


00D7 9E3E 


32C20760 


OD08 629E 


32C20770 


0DD9 2156 


32C20780 


ODDA 6222 


32C20790 


OODB 769E 


32C20800 


ODOC FFFF 


32C20810 




3 2C 208 20 


ODOO 2184 


32C20830 


ODDE 1E3E 


32C 20840 


OODF 6262 


32C20850 


ODEO 223E 


32C20860 


0DE1 1636 


32C20870 


0DE2 211A 


32C20880 


00E3 9AA6 


32C20890 


0DE4 FFFF 


32C20900 




32C20910 




32C20920 




32C20930 




32C20940 




32C20950 


0DE5 0020 


32C20960 




32C20970 


0E05 1 0E7B 


32C 20980 


0E06 1 0E7E 


32C 20990 


0E07 1 0E76 


32C21000 


0E08 1 0E67 


32C21010 


0E09 1 0E6A 


32C21020 


OEOA 1 0E6E 


32C21030 


OEOB 1 0E23 


32C21040 


OEOC 1 0E29 


32C21050 


OEOO 1 0E33 


32C21060 


OEOE 1 0E36 


32C21070 


OEOF I 0E39 


32C21080 


OEIO 1 0E45 


32C21090 


0E11 1 0E64 
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EC NO. 571152 571154 





OC 


/9E21 




OC 


Z5256 




DC 


/8421 




DC 


/FFFF 


* 






ANRDY OC 


/7662 




DC 


/32A6 


* 


DC 


/FFFF 


ABSW 


DC 


/9A36 




DC 


/9E21 




OC 


/9A92 




DC 


/21FC 




OC 


/84D4 




OC 


/2112 




DC 


/5262 




DC 


/2UE 




OC 


/525E 




DC 


/21E4 




DC 


/84FC 




OC 


/F421 




OC 


/1252 




DC 


/6221 




DC 


/1E26 




DC 


/3E62 




DC 


/8141 




DC 


/9EB2 




DC 


/6276 




DC 


/2152 




DC 


/7621 




DC 


/C421 




DC 


/9E52 




DC 


/219A 




DC 


/9E3E 




OC 


/629E 




DC 


/2156 




DC 


/6222 




DC 


/769E 


$ 


DC 


/FFFF 


ACBSY 


DC 


/2184 




DC 


/1E3E 




DC 


Z6262 




DC 


/223E 




DC 


/1636 




DC 


/211A 




DC 


/9AA6 


* 


DC 


/FFFF 


******************** 


* 




PRINTE 


***** 

* 

BUF 


*************** 


ass 


32 


PMTAB 


DC 


PMG16 




DC 


PMG17 




DC 


PMGI5 




DC 


PMG11 




DC 


PMG12 




DC 


PMG13 




DC 


PMG01 




DC 


PMG02 




DC 


PMG03 




OC 


PMG04 




DC 


PMG05 




OC 


PMG06 




DC 


PMG10 



NRDY 



SET SM 1-7 TO COL 



8-15 FOR CHAR 



TURN ON TO START PRINT 



CARRIAGE BSY 



PRINTER MSG BUFFER ANO TABLE 

********************* 

PRINTER MSG BUFFER 
PRINTER MESSAGE TABLE 



*w 



32C21100 

32C21110 

32C21120 

32C21130 

32C21140 

32C2H50 

32C21160 

32C2H70 

32C21180 

32C21190 

32C21200 

32C21210 

32C21220 

32C21230 

32C21240 

32C21250 

32C21260 

32C21270 

32C21280 

32C21290 

32C21300 

32C21310 

32C21320 

32C21330 

32C21340 

32C21350 

32C21360 

32C21370 

32C21380 

32C21390 

32C21400 

32C21410 

32C21420 

32C21430 

32C21440 

32C21450 

32C21460 

32C21470 

32C21480 

32C21490 

32C21500 

32C21510 

32C21520 

32C21530 

32C21540 

32C21550 

32C21560 

32C21570 

32C21580 

32C21590 

32C21600 

32C21610 

32C21620 

32C21630 

32C21640 

32C21650 

32C21660 

32C21670 

32C21680 

32C21690 

32C21700 

32C21710 

32C21720 

32C21730 

32C21740 

32C21750 

32C21760 

32C21770 
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0E12 


1 


0E61 




0E13 


1 


0E58 




0E14 


1 


0E67 




0E15 


1 


0E82 




0E16 


1 


0E84 




0E17 


1 


0E86 




0E18 


1 


0E88 




0E19 


1 


0E51 




0E1A 


1 


0E8A 




0E1B 


1 


0E8C 




0E1C 


1 


0E8E 




0E1D 


1 


0E90 




0E1E 


1 


0E71 




0E1F 


1 


0E80 




0E20 


1 


0E6A 




0E21 


1 


0E6E 




0E22 


1 


0E5E 




0E23 





D9E3 




0E24 





F100 




0E25 





0000 




0E26 





C5D4 




0E27 





C9E3 




0E28 





FFFF 




0E29 





D9E3 




0E2A 





F200 




0E2B 





0000 




0E2C 





E2C3 




0E2D 





C1D5 




0E2E 





0000 




0E2F 





C3C8 




0E30 





C5C3 




0E31 





D200 




0E32 





FFFF 




0E33 





D9E3 




0E34 





F300 




0E35 





FFFF 




0E36 





09E3 




0E37 





F400 




0E38 





FFFF 




0E39 





D9E3 




0E3A 





F500 




0E3B 





0000 




0E3C 





D9C9 




0E3D 





D7D7 




0E3E 





03C5 




0E3F 





0000 




0E40 





D7C1 




0E41 





E3E3 




0E42 





C5D9 




0E43 





D500 




0E44 





FFFF 




0E45 





09E3 




0E46 





F600 




0E47 





0000 




0E48 





C1D3 




0E49 





D300 




0E4A 





0000 




0E4B 





C3C8 




0E4C 





C1D9 




0E4D 





C1C3 




0E4E 





E3C5 




0E4F 





D9E2 


DATE 


25JUN71 150EC71 


EC NO. 


571152 571154 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

PMGOl DC 
DC 
DC 
DC 
DC 
DC 

* 

PMG02 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

PMG03 DC 
DC 
DC 

* 

PMG04 OC 
DC 
DC 

PMG05 DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 

* 

PMG06 DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



PMG09 
PMG8I 
PMG11 
PMG19 
PMG20 
PMG21 
PMG22 
PMG07 
PMG24 
PMG25 
PMG26 
PMG27 
PMG14 
PMG18 
PMG12 
PMG13 
PMG08 

/D9E3 
/F100 
/OOOO 
/C5D4 
/C9E3 
/FFFF 

/D9E3 
/F200 
/OOOO 
/E2C3 
/C1D5 
/OOOO 
/C3C8 
/C5C3 
/D200 
/FFFF 

/D9E3 
/F300 
/FFFF 

/09E3 
/«=400 
/FFFF 

/D9E3 
/F500 
/OOOO 
/D9C9 
/D7D7 
/D3C5 
/OOOO 
/D7C1 
/E3E3 
/C5D9 
/0500 
/FFFF 

/D9E3 
/F600 
/OOOO 
/C1D3 
/D300 
/OOOO 
/C3C8 
/C1D9 
/C1C3 
/E3C5 
/D9E2 



RTl EMIT 



RT2 SCAN CHECK 



RT3 



RT4 



RT5 RIPPLE PATTERN 



RT6 ALL CHARACTERS 



32C21780 


0E50 





FFFF 




DC 


/FFFF 




32C21790 








* 








32C21800 


0E51 





D9E3 


PMG07 


DC 


/D9E3 


RT7 STRESS 


32C21810 


0E52 





F700 




DC 


/F700 




32C21820 


0E53 





OOOO 




DC 


/OOOO 




32C21830 


0E54 





E2E3 




DC 


/E2E3 




32C21840 


0E55 





D9C5 




DC 


/D9C5 




32C21850 


0E56 





E2E2 




DC 


/E2E2 




32C21860 


0E57 





FFFF 




DC 


/FFFF 




32C21870 








* 








32C21880 


0E58 





C9D5 


PMG8I 


DC 


/C9D5 




32C21890 


0E59 





C9E3 




DC 


/C9E3 




32C21900 


0E5A 





C9C1 




DC 


/C9CI 




32C21910 


0E5B 





D3C9 




DC 


/D3C9 




32C21920 
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SAVE 


09C4 


096 5 096A 


096F 














SAVE3 


0690 


067A 067B 


06B0 


06B1 












SCNCT 


0BF6 


08E9 0B8D 


0BC2 














SCNT 


069C 


06 7C 06 7F 
















SENSE 


0B15 


0745 0787 


08E0 


090E 


0942 


0AE3 


0B01 0B25 0B36 0B50 OBBB 




SEQSM 


07D7 


073A 0753 


076E 


0784 


07E7 


07ED 


07EF 






SETUP 


08B8 


0872 
















SHFT2 


07DB 


0736 0761 


0763 


07 6 A 












SHIFT 


070A 


0734 0758 


0764 


0765 


0768 


07 AO 


07AC 






SKCNT 


0949 


0930 0C1C 
















SKINT 


0C11 


0B84 0B95 


0B9B 


0B9E 


08A6 


OBCA 


OBEE 






SKIN1 


0C1C 


0C1A 
















SKIN2 


0C1F 


0C1B 0C28 














DATE 


25JUN71 15DEC71 














EC NO. 


571152 571154 



















SKIN3 


0C22 


0C1E 




















SKIP 


0929 


07A8 


0824 


0859 0945 
















SKPTO 


0948 


092 A 


0C18 


0C24 
















SKP1 


0942 


0947 




















SPACE 


0907 


067D 


0743 


0785 0797 


0812 


0B3F 


08C6 


08C7 


03D0 08J1 08DE 0927 






SPCSW 


0C09 


06B2 


03A1 


0BA7 0C32 
















SPCl 


0919 


0908 




















SPINT 


0C29 


0C13 




















SPIN1 


0C35 






















SPIN2 


0C38 


0C21 




















SRSET 


0BF5 


066 4 


0B6E 


0B7F 
















START 


0161 


0622 


OAFC 


OBOB OBOF 
















STCAR 


09C7 


09 3B 




















STM 


0B64 


0B44 


0B59 


















STOP 


094A 


0741 


07A3 


081F 08BE 


0908 


0941 


0954 


0950 


0AB8 






STPCA 


0BF7 


0C1F 




















STPCT 


OCOB 


0B93 


0BA5 


OBAA 
















STPPT 


0BF3 


094B 


0B9A 


0C8B 
















STPRT 


09C5 


0901 




















STRT 


05F4 


05E3 


05 E4 


















STSPA 


OBFB 


0921 


OBBA 


















SVKB 


01BD 






















SWO 


05DF 


0958 


09EA 


















SW1 


05E0 


060 A 


0612 


0B09 
















SW2 


05EI 


05F6 


0814 


0841 OBDO 
















SM3 


05E2 


0603 


08D7 


















SW89A 


078F 


05F9 


0722 


0725 
















TABLE 


OACD 


0AB5 


0AB6 


0AC4 
















TBDSW 


0B16 


08FF 


0952 


0AE1 0B97 


OBAC 


0C90 












TEMP 


OCBF 


OCAF 


0CB6 


0CB9 
















TEMPB 


08B2 


089F 


08A1 


08A3 
















TEMP8 


07D8 


0777 
083C 


077E 

0846 


0780 079D 
0855 0863 


07BB 

0866 


07BE 
0A72 


07E1 


07FA 


080F 0819 0821 0820 082F 






TERM 


09C9 


0975 


0978 


















TSTA 


0835 


06 2F 




















TSTB 


086D 


0630 




















TST1 


0631 


0626 




















TST2 


0645 


0627 




















TST3 


0667 


0628 




















TST4 


069E 


0629 




















TST5 


06C6 


062A 




















TST6 


06E0 


062B 




















TST7 


0709 


062C 




















TST8 


0790 


062D 




















TST9 


0807 


062 E 




















TOAA 


083F 


0869 




















TOAB 


084A 


0844 




















TOAC 


0863 


0848 




















TOBA 


0873 


0877 


0897 


08AF 
















TOBB 


087D 


0875 




















TOBC 


088B 


089A 




















TOBD 


0890 






















TOBE 


089C 


0893 




















TOBF 


08AA 


0884 


089B 


















T01A 


0639 


0642 




















T02A 


064F 


0663 




















T03A 


066E 


068C 




















T03A1 


067B 


0689 




















T03B 


0684 


0672 




















T03C 


067D 


0681 




















T04A 


06A5 


06C3 




















T04A1 


06B1 


06C0 




















T04B 


06BB 


06A9 




















T05A 


06CC 






















T05C 


0600 


06D9 




















T05D 


06D4 






















T06A 


06E3 






















T06B 


06E7 


06F8 


0706 














PROG ID 


032C-0 


DATE 25JUN71 15DEC71 














PROC 


PAGE 


20 


EC NO. 571152 571154 
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T06C 


06E9 


06FB 














T06D 


06EE 


06E4 


0704 












T06E 


06FD 


06F4 


06FC 












T07A 


0710 


071E 














T08A 


073F 


0773 














T08A1 


0758 


0766 














T08A2 


076A 


075F 














T08B 


076C 


074A 


0756 












T08C 


0774 


076F 














T08D 


0778 


0733 


077C 


0781 










T08E 


07A0 


07CC 














T08F 


07A2 


07C7 














T08X1 


07AA 


07A2 


07C4 












T09A 


0812 


0831 














T09B 


0810 


0817 














T09C 


0820 


081B 














T3CTL 


068F 


066B 


066E 


0670 


0673 


068A 06A2 06A5 


06A7 06AA 


06C1 


VCHNL 


07DD 


074F 


0751 


0774 


081A 


0847 






WAIT 


OAEO 


05F7 


0903 


0909 


0925 


093F 0A12 0B31 






HAITI 


0AF5 


OBOO 














WAIT2 


OAFA 
















WAIT3 


OAFE 


0AF5 














WAIT4 


0B09 


087B 


0AF9 


0B4B 


0B60 








MAS 


0BF4 


0747 
0C4E 


0789 


07AE 


07BF 


0826 085 B 0A70 


0B28 0331 


OCll 


WCNT 


0B18 


0AF4 


OAFE 


0B7C 










X16 


0886 


089E 














END OF 


ASSEMBLY 
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TABLE OF CONTENTS 



PARAGRAPH PAGE 

1. PURPOSE 1 

2. PREREQUISITES 1 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. OPERATING PROCEDURE 1A 

3.1 PROGRAM LOADING 

3.2 PROGRAM OPERATION 

3.2.1 PROGRAM CONTROL - FUNCTION 

3.2.2 TEST ROUTINE SELECTION - FUNCTION 1 

3.3 HALTS 

3.3.1 NORMAL HALTS 

3.3.2 ERROR HALTS 

3.4 TERMINATION 

3 . 5 RESTART 

4. PRINTOUTS 3 

4.1 STATUS MESSAGES 

4.2 ERROR MESSAGES 

5. COMMENTS 5A 

5.1 TEST PROCEDURE 

5.1.1 TEST ORGANIZATION 

5.1.2 ERROR CHECKING 

5.2 ROUTINE DESCRIPTION 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

5.2.2 NORMAL TEST ROUTINES 

5.2.3 OPTIONAL TEST ROUTINES 

5.2.4 TEST SUBROUTINES 

5.2.5 ERROR CONTROL ROUTINES 

5.2.6 INTERRUPT ROUTINES 

6. APPENDIX 9 

6.1 STANDARD PUNCH PATTERN 



1. PURPOSE 

THE 1442 CARD READ/PUNCH DIAGNOSTIC PROGRAM CHECKS THE. 
OPERATING PERFORMANCE OF THE 1442 CARD READ/PUNCH. 

2. PREREQUISITES 

2.ikkk PROGRAM PREREQUISITES 
1130 DIAGNOSTIC MONITOR II. 



2.2""- EQUIPMENT PREREQUISITES 

THE FOLLOWING EQUIPMENT IS REQUIRED. 

A. 1131 CENTRAL PROCESSING UNIT (CPU) WITH PROGRAM LOAD FROM 
CARD OR PAPER READER. 

B. 1442 CARD READ/PUNCH MOD 6 OR 7 . 

C. AT LEAST 1400 WORDS OF AVAILABLE CORE STORAGE. 



OPERATING PROCEDURE 

THESE OPERATING PROCEDURES APPLY TO SINGLE PROGRAM OPERATION ONLY. 
FOR OVERLAP OPERATION REFER TO SECTION 3.2.3 OF THE 1130 DIAGNOSTIC 
MONITOR II DOCUMENTATION. 



3.1 K!! " PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 
DETAILS. 



SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 
SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO SPECIFY OPTIONS BEFORE RUNNING. 

IF HALTED AFTER LOADING, SELECT PROGRAM 

OPTIONS THEN TURN OFF HALT SWITCH OR 

FOLLOW NORMAL RESTART PROCEDURE (SECTION 3.5). 



3. 


LOAC 


I DIAGNOSTIC MONITOR AND THIS PROGRAM. 


4. 


SELECT 


PROGRAM OPTIONS, IF DESIRED. 


3.2--" Ji 


PROGRAM 


OPERATION. 


3.2.1 


PROGRAM 


CONTROL OPTIONS - FUNCTION 


' 1. 


SET 


SWITCHES 0-7 TO 01. 


2. 


SET 


SWITCHES 8-15 AS DESIRED. 




SW 




FUNCTION 




8 




RESTART 




9 




SINGLE CYCLE CONTROL AND ROUTINE START MESSAGE 




10 




LOCK ON FUNCTION 




11 




LOOP PROGRAM 




12 




LOOP ON ERROR 




13 




BYPASS ERROR PRINTOUT 




14 




HALT ON ERROR 




15 




HALT 



PRESS INT REQ KEY ON CONSOLE. 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE MILL LOOP UNTIL A NEW ROUTINE IS SELECTED. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO *tl. 

B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



2. 
3.2.3 

1. 



RTN 



DESCRIPTION 



1 


PUNCH AND FEED 


. NORMAL ROUTINES- 


2 


READ ROTATE PATTERN 


. THE PROGRAM STARTS WITH 


3 


PUNCH *0 COLUMNS 


. ROUTINE 1, RUNS EACH 


H 


PUNCH FLIPPED PATTERN 


. ROUTINE IN SEQUENCE 


5 


READ FLIPPED PATTERN 


. THEN TERMINATES AFTER 


6 * CLUTCH TEST 


. ROUTINE 6. 


7 : 


* PUNCH FROM SWITCHES 


. OPTIONAL ROUTINES 


8 


GANG PUNCH 


. THESE ROUTINES RUN 
. ONLY IF SELECTED. 



* = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 

C. PRESS INT REQ KEY ON CONSOLE. 

TO RESET ROUTINE SELECTION SET AS IF SELECTING ROUTINE ZERO. 

OPTIONAL CONTROL 

SELECT CLUTCH DELAY 

IN THE CLUTCH TEST CRTN 6) THE DELAY BETWEEN START READ COMMANDS 
CAN BE SPECIFIED BY THE SWITCHES. TO DO THIS, SET SWITCHES 0-7 
TO 81, 8-15 FOR THE DESIRED DELAY, THEN PRESS THE INTERRUPT 
REQUEST KEY. EACH BINARY INCREMENT SET IN THE SWITCHES INCREASES 
THE DELAY BY 8 MILLISECONDS. 

2. PUNCH FROM SWITCHES 

ROUTINE 7 WILL PUNCH ALL CARDS WITH THE PATTERN SET IN SWITCHES 
0-11. AFTER THE ROUTINE IS SELECTED, FOLLOW INSTRUCTIONS IN THE SET 
UP MESSAGE. THE NUMBER OF COLUMNS TO BE PUNCHED CAN BE SPECIFIED BY 
A SWITCH ENTRY WITH THE SWITCHES SET TO 81XX WHERE XX EQUALS THE 
NUMBER OF COLUMNS IN HEX. 

3. MODIFY PUNCH DATA 

ROUTINE 9 WILL READ IN ONE CARD AND REPLACE THE PUNCH DATA TABLE WITH 
THE DATA PATTERN PUNCHED IN THAT CARD. THE PROGRAM WILL THEN 
AUTOMATICALLY RESTART FROM ROUTINE 1. 
sasssasssa 



3.3 5t "" PROGRAM HALTS 
3.3.1 NORMAL HALTS 



•HALT NO 
•<B REG) 


DESCRIPTION 


RESTART 
ACTION 


. 3001 
. 3002 


PROGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 


PRESS START 

DISPLAY MODE-PRESS STARt! 
RUN MODE-PRESS START 









3.3.2 ERROR HALTS 



.HALT NO 
.(B REG) 


DESCRIPTION 


RESTART 
ACTION 


. 30F1 


CHECK SUM ERROR ON FIRST 


RELOAD \ 


. 30F2 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD \ 


. 30F3 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD \ 


. 30F<I 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS ! 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30F6 


MONITOR DID NOT LOAD 


RELOAD ! 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD \ 


. 30F8 


READER NOT READY \ 


MAKE READER READY ! 


. 30F9 . 


INVALID INTERRUPT WHICH WILL . 
NOT RESET 


PRESS RESET AND START '. 


. 30FA . 


CONSOLE PRINTER HANG UP - ! 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER '. 



DATE 
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EC NO. 
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571036 
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3. •*"■ 



PROGRAM TERMINATION 



IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 
AT THE END OF ROUTINE 6. ROUTINE 7,8 AND 9 WILL RUN ONLY IF 
SELECTED. 

IF ANY ROUTINE IS SELECTED THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 



A0F00 0OOR AAAA 

ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



3.5« : 



A0F01 0O0R AAAA 



LOAD BLANKS 



RESTART 



1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 



LOAD THE 1442 HOPPER WITH BLANK CARDS THEN PRESS 1442 
START. 



A0F02 000R AAAA 



LOAD FROM STK2 



PRINTOUTS 
ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 
(MESSAGE) 



APPNN OORR AAAA 

OR 

EPPNN OORR AAAA 



LOAD THE CARDS IN STACKER 2 (PUNCHED BY PREVIOUS ROUTINE) 
IN THE 1442 HOPPER, THEN PRESS 1442 START. THIS DECK WAS 
PUNCHED WITH A ROTATING PATTERN. IT MUST BE LOADED IN THE 
SAME ORDER AS PUNCHED. THERE MUST BE NO CARDS MISSING FROM 
THE DECK. 



A0F03 000R AAAA 



LOAD ANY PATTERN PLUS BLANKS 



WHERE A IDENTIFIES STATUS MESSAGES 

E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 

ORIGINATED BY MONITOR OR OF FOR MESSAGES ORIGINATED BY 
THIS PROGRAM. 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



IF ROUTINE 8 - THE PATTERN IN THE FIRST CARD WILL BE PUNCHED 
IN THE FOLLOWING BLANK CARDS. 

IF ROUTINE 9 - THE ROTATE DATA TABLE WILL BE REPLACED BY THE 
PATTERN IN THE FIRST CARD. THE ROUTINE WILL THEN RESTART THE 
PROGRAM AT ROUTINE ONE. 



A0F04 0006 AAAA 



LD GANG PUNCHED CARDS 



4.1«* 



STATUS MESSAGES 



LOAD ANY GANG PUNCHED DECK. THIS DECK CAN BE PUNCHED BY ROUTINE 
8. THE FIRST CARD WILL BE READ AND ALL FOLLOWING CARDS 
COMPARED TO IT. 



A0000 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



A0F05 000R AAAA 



NRDY 



PRESS 1«*"*2 START 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



THIS MESSAGE WILL BE PRINTED IF THE 1442 IS NOT READY FOR ANY 
REASON. THE PROGRAM WILL LOOP WAITING FOR READY. TO CONTINUE, 
CLEAR ANY ERROR CONDITIONS AND MAKE THE 1442 READY. 



A0F06 00 OR AAAA 



LAST CARD 



A0001 SWS PID 

XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM THE WORD HALT WILL FOLLOW THE 
MESSAGE. 



THE LAST CARD INDICATOR WAS ON AT THE COMPLETION OF THE LAST 
1442 CONTROL OPERATION. A FEED COMMAND WAS GIVEN TO RUN OUT THE 
LAST CARD. THE ROUTINE WILL THEN TERMINATE. IF NO ROUTINE 
HAS BEEN SELECTED, THE PROGRAM WILL ADVANCE TO THE NEXT ROUTINE. 
IF A ROUTINE HAS BEEN SELECTED, THE PROGRAM WILL RESTART THAT 
ROUTINE. 



DATE 02JAN66 01MAY66 15NOV66 01MAR67 01APR69 01MAY69 
EC NO. 415490 415490B 419643 419643B 571036 571036B 
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A0F07 0OD7 AAAA 



SET PATT IN SW 0-11 
THEN TN SW 12 



™ Li S .J2 E SET " P MESSAGE F0R ROUTINE 7. II INSTRUCTS THE CE 

TO SET ANY DESIRED DATA PATTERN IN SWITCHES 0-11. WHEN SWITCH 

12 IS TURNED ON, THIS PATTERN WILL BE PUNCHED. THE NUMBER 

OF COLUMNS PUNCHED CAN BE CONTROLLED BY A FUNCTION 2 SWITCH 

ENTRY WITH THE DESIRED NUMBER OF COLUMNS SET IN SWITCHES 

!«,.?. CF ° R SINGLE PROGRAM OPERATION SET SWITCHES TO 81XX WHERE XX 

EQUALS NUMBER OF COLUMNS IN HEX). 

<t.2»*» ERROR MESSAGES 

« E «d S VLS£ E ~ ED F ° R ABS0LUTE CORRECTNESS AT ALL TIMES. IF AN 
fRMLfM E t E « E ? c ^ E ° F THE MESSA «S BELOW WILL INDICATE THE 
SPk"k PRObIIm AREA OPE « A TOR TO ANALYZE THE DSW FOR THE 



E0004 CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. 
2. 
3. 
4. 

5. 



A CARD IS MISSING OR IS OUT OF SEQUENCE. 

THERE IS AN EXTRA CARD IN THE DECK. 

THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 

CORRECTLY CALCULATED. 



WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



x 






THE !Mf2 DSW 



!t BIT 

" READ RESPONSE 

:t 1 PUNCH RESPONSE 

K 2 ERROR CHECK 

J! 3 LAST CARD 

a <t OPERATION COMPLETE 

" 5 NOT USED 

* 6 NOT USED 

* 7 FEED CHECK AT READ STATION 
8 NOT USED 

x 9 NOT USED 

s 10 NOT USED 

K 11 NOT USED 

" 12 NOT USED 

K 13 NOT USED 

i! m BUSY 

" 15 NOT READY OR BUSY 
x 



E0005 000N XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURS, BUT THE ILSW 
WAS NOT CORRECT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0F00 000R AAAA 



CARD NOT BLANK 



A PRE-PUNCHED CARD WAS DETECTED BY A PUNCH ROUTINE. THIS CARD WAS 
NOT PUNCHED BUT WAS REJECTED. THIS CARD WILL BE FEED OUT INTO 
STACKER 1. 



E0F01 000R AAAA 



WAS S/B - STATIC DSW ERR 
XXXX 0000 



A BIT, IN ADDITION TO NOT READY, WAS ON IN THE DSW WHEN IT WAS 
SENSED BEFORE GIVING A CONTROL COMMAND TO THE 1442. USE THE 
ABOVE DSW TABLE TO IDENTIFY THE BIT, THEN TAKE APPROPRIATE 
CORRECTIVE ACTION. 



E0001 



E0F02 000R AAAA 



SWS INVLD 
XXXX 

mmL!! T I INS ° F SWITCHES *-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



LAST OP - CCCC 

WAS S/B - BUSY DSW ERR 
XXXX 0003 



THIS DSW WAS SENSED IMMEDIATELY AFTER THE 1<*<«2 CONTROL COMMAND 

WAS IDENTIFIED BY CCCC WAS GIVEN. THAT COMMAND SHOULD MAKE THE 14M 

BUSY AND NOT READY. NO OTHER BITS SHOULD BE ON 



E00Q 3 OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



E0F03 000R AAAA 



LAST 



XXXX 



OP - 

DSW 



CCCC 
- NO INTRPT - LEV* 



NO OP COMPLETE INTERRUPT WAS RECEIVED FOLLOWING THE LAST CONTROL COMMAND 
COMMAND, IDENTIFIED BY CCCC. THE COMMAND WAS RECEIVED BY THE 1UU2 IF ' 
AN E0FO2 MESSAGE WAS NOT PRINTED. 
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E0F04 000R AAAA 



WAS 
XXXX X003 



S/B 



LEVO DSW ERR 



E0F09 000R AAAA 



WAS S/B COL 
XXXX YYYY 000ZZ 



DATA ERR 



THIS DSW WAS SENSED IN THE LEVEL ZERO INTERRUPT ROUTINE. THE 
RESPONSE FOR THE LAST CONTROL COMMAND (IDENTIFIED BY CCCC) 
SHOULD BE ON, TOGETHER WITH BUSY AND NOT READY. 



E0F05 00 OR AAAA 



LAST OP - CCCC 

WAS S/B - LEV* DSW ERR 
XXXX X80X 



THE DATA XXXX READ FROM COLUMN ZZ(IN DECIMAL) DOES NOT AGREE WITH 
THE EXPECTED DATA YYYY FOR THAT COLUMN. CHECK CARD FOR CORRECT 
DATA. IF DATA IS CORRECT THEN A READ ERROR OCCURRED. IF THE 
DATA IS NOT CORRECT, A PUNCH ERROR OCCURED. IN THE LATTER 
CASE, IF NO PUNCH CHECK WAS DETECTED WHILE PUNCHING THE CARD, THE 
PUNCH ECHO CHECK IS NOT FUNCTIONING. 



THIS DSW WAS SENSED IN THE LEVEL 4 INTERRUPT ROUTINE. OP COMPLETE 
BIT SHOULD BE ON. THE LAST CARD AND NOT READY BITS MAY BE ON. 
ALL OTHER BITS SHOULD BE OFF. 



E0F10 O00R AAAA 



LAST 
DSW - 
XXXX 



OP - CCCC 

NO INTRPT - LEVO 



E0F0 6 OR AAAA 



LAST OP - PUNCH 

WAS S/B - PCH CK 
XXXX 0000 



NO LEVEL (COLUMN) INTERRUPT WAS RECEIVED FOLLOWING 
THE LAST CONTROL COMMAND, IDENTIFIED BY CCCC. THE 
COMMAND WAS RECEIVED BY THE 1442 IF ON E0F02 MESSAGE WAS 
NOT PRINTED. 



A PUNCH ECHO CHECK OCCURRED WHILE PUNCHING THE LAST CARD. XXXX IS 
THE PUNCH ECHO THAT WAS READ FROM THE 1442 BUFFER REGISTER 
FOLLOWING THE PUNCH CHECK. ANY BIT THAT IS ON THIS WORD IDENTIFIES 
DESCREPANCY BETWEEN THE PUNCH DIE ECHO AND THE DATA WHICH WAS TO 
BE PUNCHED IN THE COLUMN. PUNCHING IS TERMINATED WHEN THIS 
ERROR IS DETECTED; THUS, THE ERROR OCCURRED IN THE LAST COLUMN 
PUNCHED. IF PUNCHING A ROTATE PATTERN DISCARD THE CARDS PUNCHED 
AND RESTART THE ROUTINE. 



E0F07 00OR AAAA 



LAST OP - CCCC 

WAS S/B - ER CK 
XXXX 0000 



AN ERROR CHECK OCCURRED DURING THE LAST OPERATION. IF THE LAST 
OPERATION WAS READ OR PUNCHED, THIS MESSAGE SHOULD BE FOLLOWED 
BY AN E0F08 MESSAGE WHICH WILL IDENTIFY THE NUMBER OF COLUMNS 
PROCESSED BEFORE THE ERROR WAS DETECTED. TO CONTINUE, CLEAR ALL 
CARDS FROM THE 1442 THEN PRESS START. IF PUNCHING A ROTATING 
PATTERN TO BE READ BY THE NEXT ROUTINE, DISCARD THE CARDS PUNCHED 
AND RESTART THE ROUTINE. 



E0F08 000R AAAA 



WAS S/B - COL CNT ER 
XXXXX YYYYY 



XXXXX IDENTIFIES THE NUMBER OF COLUMN INTERRUPTS THAT OCCURRED 
DURING THE LAST OPERATION. YYYYY IDENTIFIES THE EXPECTED NUMBER 
OF INTERRUPTS. IF AN ERROR CHECK OCCURRED DURING THE LAST 
OPERATION (IDENTIFIED BY AN E0F06 OR E0F07 MESSAGE) THE OPERATION 
WILL TERMINATE AT THE TIME THE ERROR OCCURS. THUS, THIS ERROR 
MESSAGE WILL IDENTIFY THE COLUMN BEING PROCESSED WHEN THE ERROR 
WAS DETECTED. 



COMMENTS 

5.1"" !! TEST PROCEDURE 

5.1.1 TEST ORGANIZATION 

TESTS ARE ORGANIZED AS FOLLOWS 
1. INITIALIZE THE TEST 



A. 
B. 



SET FOR START OF PATTERN 
PRINT SET UP MESSAGE. 



INITIALIZE FOR NEXT CARD 

A. IF PUNCH TEST - READ THE CARD AND CHECK FOR BLANK. 

B. SET EXPECTED COLUMN INTERRUPT COUNT. 

C. SET LOOP ADDRESS 

D. CHECK DSW FOR READY 

EXECUTE CONTROL COMMAND 
CHECK FOR ERRORS 

A. CHECK DSW FOR BUSY 

B. WAIT FOR TIMED PERIOD - TIME OUT IF NO INTERRUPT 

C. CHECK COLUMN INTERRUPT DSW. 

D. CHECK FOR CORRECT NUMBER OF COLUMN INTERRUPTS. 

E. CHECK OP COMPLETE DSW. 

ANALYZE ERROR DATA AND PRINT ERROR MESSAGES. 
GO TO 2 ABOVE IF LOCK ON FUNCTION. 
ADVANCE FOR NEXT CARD. ' 

A. ROTATE PATTERN 

B. INCREASE DELAY FOR ROUTINE 5. 

C. CHECK FOR PATTERN OR DELAY RESET. 

8. GO TO NEXT CARD (2 ABOVE). 
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5. 1.2 ERROR CHECKING 

ALL TEST ROUTINES CONTAIN THE FOLLOWING COMMON ERROR CHECKING. 

1. DEVICE STATUS CHECK - THE DEVICE STATUS IS READ AND CHECKED 
AS FOLLOWS: 

A. BEFORE AN OPERATION IS INITIATED, THE DSW SHOULD BE ZERO. 
ANY BITS ON WILL BE IDENTIFIED BY A MESSAGE (E0F01). 

B. IMMEDIATELY AFTER AN OPERATION, THE DSW SHOULD SHOW 

THE DEVICE TO BE BUSY AND NOT READY. ALL OTHER BITS SHOULD 
BE OFF. THIS DSW IS SAVED AND CHECKED FOR ERRORS AFTER 
THE OPERATION IS COMPLETED. A MESSAGE IS PRINTED IDENTIFING 
ANY ERROR DETECTED (E0F02). 

C. IN INTERRUPT LEVEL ZERO, COLUMN INTERRUPT. THIS DSW SHOULD 
SHOW THE DEVICE BUSY AND NOT READY WITH THE CORRECT RESPONSE BIT 
ON. ALL ERRORS DETECTED FOR A CARD ARE OR'D TOGETHER. THUS 
THE DSW PRINTED IN THE ERROR MESSAGE CE0F0<O CONTAINS ALL ERROR 
BITS WHICH WHERE FOUND ON IN ANY COLUMN DSW AND WILL BE MISSING 
ANY NORMAL BIT WHICH WAS FOUND OFF IN ANY COLUMN DSW. 

D. IN INTERRUPT LEVEL FOUR OP COMPLETE INTERRUPT. THIS DSW SHOULD 
SHOW THE DEVICE READY (UNLESS THE HOPPER IS EMPTY) AND NOT BUSY, 
AND THE OP COMPLETE RESPONSE BIT SHOULD BE ON. A MESSAGE (E0F05) 
IS PRINTED IDENTIFYING ANY ERROR. NOT READY AND LAST CARD ARE 
ALSO IDENTIFIED BY UNIQUE MESSAGES. (A0FO5 AND A0F06) 

2. INTERRUPT CHECK-BOTH COLUMN INTERRUPT AND OP COMPLETE INTERRUPT ARE 
CHECKED AS FOLLOWS. 

A. COLUMN INTERRUPT - ALL COLUMN INTERRUPTS ARE COUNTED AND COMPARED 
AGAINST THE EXPECTED NUMBER. A MESSAGE IS PRINTED IF THESE DO NOT 
AGREE. CE0F08) 

B. OP COMPLETE INTERRUPT - AFTER THE CONTROL COMMAND IS GIVEN, THE 
PROGRAM GOES TO THE INTERRUPT WAIT ROUTINE. THIS ROUTINE 
WAITS IN A TIMED LOOP FOR AT LEAST 2 SECONDS. IF NO OP COMPLETE 
INTERRUPT HAS OCCURRED AT THE END OF THAT TIME, AN ERROR MESSAGE 
IS PRINTED (E0F03). 

3. DATA CHECK 

A. PUNCH - ANY PUNCH ERROR SHOULD BE DETECTED BY THE PUNCH ECHO 
CIRCUITS IN THE 1 1 » £ *2. WHEN A PUNCH ECHO CHECK OCCURS, A MESSAGE IS 
PRINTED (EOF06) INCLUDING THE ECHO READ BACK FROM THE 1442 BUFFER. 
THE BITS ON IN THE ECHO WORD IDENTIFY THE BITS IN ERROR. ANY 
PUNCH ERRORS NOT DETECTED BY THE PUNCH ECHO CHECK WILL CAUSE 

A READ DATA ERROR IN THE FOLLOWING ROUTINE. 

B. READ - ALL READ TESTS USE DECKS PREPARED BY THE PREVIOUS PUNCH 
ROUTINE (EXPECT TEST 6). THE READ TEST COMPARES THE DATA READ 
AGAINST THE DATA PUNCHED. THE EXCEPTION, TEST 6, COMPARES ALL 
CARDS AGAINST THE FIRST CARD READ. 



5.2 = 



ROUTINE DESCRIPTION 



THIS SECTION CONTAINS A DESCRIPTION OF THE PROGRAM ROUTINES AND 
SUBROUTINES IN APPROXIMATELY THE ORDER IN WHICH THEY APPEAR IN THE 
PROGRAM AS FOLLOWS - 

1. TEST SEQUENCE CONTROL ROUTINE 

2. NORMAL TEST ROUTINES 

3. OPTIONAL TEST ROUTINES 

4. TEST SUBROUTINES 

5. ERROR CONTROL ROUTINES 

6. INTERRUPT ROUTINES 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

THIS ROUTINE CHECKS THE ROUTINE SELECTION SWITCH (SW1 IN THE PROGRAM 
CONTROL TABLE) AND DETERMINES WHICH TEST ROUTINE IS TO BE RUN NEXT 
IF A TEST ROUTINE HAS BEEN SELECTED, IT ESTABLISHED A TRANSFER TO THAT 
ROUTINE. IF NO ROUTINE IS SELECTED, A TRANSFER IS FSTABLISHED TO 
THE NEXT TEST ROUTINE IN SEQUENCE. 

THE ROUTINE ADDRESS TABLE (RTTBC) WHICH IS PART OF CNTRL, CONTAINS 

THE ROUTINE ADDRESS FOR ALL TEST ROUTINES IN THE SEQUENCE IN WHICH THEY ARE 

TO BE RUN. 

THE LAST TEST ROUTINE IN THE NORMAL SEQUENCE IS IDENTIFIED BY THE 
TABLE NRTN. AFTER THIS ROUTINE IS RUN , CNTRL WILL TRANSFER TO MONITOR 
END AND TERMINATE THE PROGRAM. ROUTINES FOLLOWING THE TABLE NRTN 
ARE CALLED OPTIONAL TEST ROUTINES AND WILL ONLY BE RUN IF SELECTED. 

5.2.2 NORMAL TEST ROUTINES 

IF NO TEST ROUTINE IS SELECTED, THESE SIX ROUTINES WILL RUN IN SEQUENCE 
THEN THE PROGRAM WILL TERMINATE. 



1. TEST ROUTINE 1 



PUNCH AND FEED 



THIS ROUTINE READS A CARD, CHECKS TO SEE THAT IT IS BLANK, IF BLANK 
PUNCHES IT WITH THE PATTERN SET IN THE ROTATE DATA TABLE, THEN 
SELECTS STACKER TWO AND FEEDS THE PUNCHED CARD OUT. REPEATING THIS 
SEQUENCE WILL CAUSE A BLANK CARD TO FIRST BE FED INTO STACKER 1 BY 
THE READ COMMAND THEN A PUNCHED CARD WILL BE FED INTO STACKER 2 
BY THE FEED COMMAND. THE CARDS ARE PUNCHED WITH A ROTATING PATTERN, 
THE PATTERN IS SHIFTED ONE COLUMN TO THE LEFT FOR EACH 



I.E. 



SUCCEEDING CARD PUNCHED. 

LOCK ON FUNCTION - THE PROGRAM WILL LOCK IN THE PUNCH OPERATION. 

ONLY PUNCH CONTROL COMMANDS WILL BE GIVEN. THE DATA PATTERN 

WILL ALSO LOCK WITH THE LAST PATTERN PRIOR TO SETTING THE LOCK SWITCH. 
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TEST ROUTINE 2 - READ ROTATE PATTERN 

THIS ROUTINE READS THE CARDS PUNCHED BY ROUTINE 1. THE DATA READ 

IS COMPARED TO THE DATA PUNCHED. ANY ERROR DETECTED WILL BE PRINTED. 

LOCK ON FUNCTION - NOT APPLICABLE. 

TEST ROUTINE 3 - PUNCH 40 COLUMNS 

THIS ROUTINE WILL PUNCH THE ROTATING PATTERN IN THE FIRST 40 
COLUMNS OF EACH CARD. EACH CARD IS CHECKED FOR BLANK BEFORE IT 
IS PUNCHED. ALL PUNCHED CARDS ARE SELECTED TO STACKER 2. 

LOCK ON FUNCTION - LOCK IN THE PUNCH FUNCTION ONLY. CARDS WILL 
NOT BE CHECKED FOR BLANK AND THE PATTERN WILL NOT ROTATE. 

TEST ROUTINE 4 - PUNCH FLIPPED PATTERN 

THIS ROUTINE READS THE ROTATE PATTERN PUNCHED BY ROUTINE 3 AND COMPARES 
IT WITH THE DESIRED PATTERN. IT WILL THEN PUNCH THE MIRROR IMAGE OF 
THAT PATTERN IN COLUMNS "41-80. 



5.2. 



LOCK. ON FUNCTION 
TEST ROUTINE 5 - 



- NOT APPLICABLE. 
READ FLIPPED PATTERN 



IT WILL 



THIS ROUTINE READS THE PATTERNS PUNCHED BY ROUTINES 3 AND 4. 
THEN COMPARE THIS DATA WITH THE DESIRED PATTERNS. 

LOCK ON FUNCTION - NOT APPLICABLE. 

TEST ROUTINE 6 - CLUTCH TEST 

THIS ROUTINE READS GANG PUNCHED CARDS (MAY BE BLANKS) WITH AN 
INCREASING DELAY BETWEEN EACH START READ COMMAND. ALU CARDS READ ARE 
COMPARED WITH THE FIRST CARD. THE DELAY IS INCREASED BY 1 MILLI SECOND 
FOR EACH CARD READ TO A MAXIMUM OF 125 MILLISECONDS. THE DELAY IS 
THEN RESET TO ZERO AND THE CYCLE REPEATED. 



LOCK ON FUNCTION 
READ COMMANDS. 



LOCK ON READ WITH NO CHANGE IN DELAY BETWEEN START 



SPECIFY DELAY - THE DELAY CAN BE SPECIFIED BY A FUNCTION 2 BIT SWITCH 
ENTRY. THIS DELAY IS INCREASED BY APPROXIMATELY 3K (5K FOR 2.2 MSEC 
MEMORY) FOR EACH BINARY INCREMENT SET IN SWITCHES 8-15. 



5.2.4 
1. 



OPTIONAL TEST ROUTINES 

TEST ROUTINE 7 - PUNCH FROM SWITCHES 

THIS ROUTINE WILL PUNCH ALL CARDS WITH THE DATA SET IN SWITCHES 0-11. 
THE NUMBER OF COLUMNS TO BE PUNCHED CAN BE SPECIFIED BY A FUNCTION 
2 BIT SWITCH ENTRY. IF THE NUMBER OF COLUMNS IS NOT SPECIFIED, 80 
COLUMNS WILL BE PUNCHED. CARDS ARE NOT CHECKED FOR BLANK BEFORE 
PUNCHING. 



LOCK ON FUNCTION 
TEST ROUTINE 8 - 



- NOT APPLICABLE. 
GANG PUNCH 



THIS ROUTINE WILL READ THE FIRST CARD THEN PUNCH ALL FOLLOWING CARDS 
WITH THE DATA READ FROM THE FIRST CARD. EACH CARD WILL BE READ TO 
CHECK FOR BLANK. 

LOCK ON FUNCTION - WILL BYPASS THE CHECK FOR BLANK CARDS. 

TEST ROUTINE 9 - MODIFIED PUNCH DATA 

THIS ROUTINE WILL READ IN ONE CARD AND REPLACE THE PUNCH DATA 
TABLE WITH THE DATA PATTERN PUNCHED IN THAT CARD. THE PROGRAM 
WILL THEN AUTOMATICALLY RESTART FROM ROUTINE 1. 
TEST SUBROUTINES 

ROTATE THE DATA TABLE 

THIS SUBROUTINE ADVANCES THE PUNCH AND READ COMPARE ADDRESSES 
THROUGH A DOUBLE DATA TABLE. 

CHECK FOR BLANK CARDS 

THIS SUBROUTINE READS ONE CARD THEN CHECKS ALL COLUMNS FOR 
DATA. IF CARD IS NOT BLANK, AN ERROR MESSAGE IS PRINTED. 

FEED A CARD 

THIS SUBROUTINE CHECKS FOR 1442 READY, THEN FEEDS ONE CARD. 
FOLLOWING THE FEED COMMAND, THE SUBROUTINE TRANSFERS TO THE WAIT 
ROUTINE UNTIL THE INTERRUPT IS RECEIVED. 

READ A CARD 

THIS SUBROUTINE SETS EXPECTED COLUMN COUNT TO 80, CHECKS ON READY 
THEN EXECUTES A START READ COMMAND. THE SUBROUTINE TRANSFERS TO THE 
WAIT ROUTINE UNTIL THE INTERRUPT IS RECEIVED. 
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5. PUNCH A CAR© 

THIS SUBROUTINE SETS THE EXPECTED COLUMN COUNT, CHECKS ON READY 
SELECTS STACKER 2, THEN EXECUTES A START PUNCH COMMAND. THE 
SUBROUTINE TRANSFERS TO TME WAIT ROUTINE UNTIL THE INTERRUPT IS 

K tt 1 1 V Cu * 

6. COMPARE DATA READ 

THIS SUBROUTINE COMPARES DATA READ WITH THE EXPECTED PATTERN FOR 
THAT CARD. IF THERE ARE ANY DISCREPANCIES, AN EOF09 MESSAGE IS 

7. LOCK ON FUNCTION 

THIS SUBROUTINE IS ENTERED AT THE COMPLETION OF EACH PUNCH ROUTINE 
BEFORE ADVANCING TO THE DATA FOR THE NEXT PASS. THE SUBROUTINE CHECKS 
THE LOCK ON FUNCTION SWITCH, SWITCH 10. IF THIS SWITCH IS ON THE 
SUBROUTINE GOES TO THE ADDRESS SET IN LOOP. =>*»'<•» ON THE 

8. READY 

IcIL S ^ R °VJ. INE IS ENTERED BEFORE ANY Iff 2 CONTROL COMMAND IS GIVEN. IT 
READS THE 1M»2 DSW AND CHECKS IT FOR READY (ALL BITS OFF). ANY BIT ON 

?r H f!L T p?T T«S EADT CBIT 15) WILL BE IDENTIFIED BY AN E0F01 MESSAGE? 
IF ANY BIT IS ON, A NRDY MESSAGE CA0F05) WILL BE PRINTED. THIS ROUTINE 
STAYS IN A LOOP, PRINTING THE NRDY MESSAGE EACH 10 SECONDS, UNTIL ALL 
BITS IN THE DSW GO OFF. 

9. LAST CARD 

THIS SUBROUTINE IS ENTERED AFTER AN OPERATION IS COMPLETED IF THE 
LAST CARD INDICATOR WAS TURNED ON DURING THAT OPERATION. THE SUBROUTINE 
WILL FEED OUT THE LAST CARD, PRINT A MESSAGE INDICATING THAT THE LAST 
CARD INDICATOR WAS DETECTED, THEN GO TO CNTRL TO TERMINATE THE ROUTINE 
AND ADVANCE TO THE NEXT ROUTINE. 

5.2.5 ERROR CONTROL ROUTINES 

1. INTERRUPT WAIT ROUTINE 

ALL SUBROUTINES COME HERE AFTER THE START OF AN I/O OPERATION FROM 
WHICH AN INTERRUPT IS EXPECTED. THIS ROUTINE RESETS ALL ERROR 
CONTROL WORDS, SENSES AND STORES THE BUSY DSW, THEN WAITS IN A 
TIMED LOOP CAT LEAST 2 SECONDS) FOR THE OP COMPLETE INTERRUPT. 

ARE N PR?NTED MPLETE INTERRUPT IS "^IVED, THE FOLLOWING ERROR MESSAGES 

A. E0F02 IF BUSY DSW ERROR 

B. E0F10 IF NO COLUMN INTERRUPTS 

C. E0FO3 - NO OP COMPLETE INTERRUPT. 



IF OP COMPLETE INTERRUPT IS RECEIVED, THIS ROUTINE WILL CHECK FOR 
£n™ ER PERF0RMA NCE OF THE OPERATION. THE FOLLOWING CHECKS ARE MADE AND 
ERROR MESSAGES PRINTED IF APPROPRIATE. 

A. E0F02 IF BUSY DSW ERROR 

B. EOFOf IF COLUMN INTERRUPT DSW ERROR. 

C. E0F05 IF OP COMPLETE DSW ERROR. 

D. E0F10 IF NO COLUMN INTERRUPTS. 

E. E0F08 IF INCORRECT NUMBER OF COLUMN INTERRUPTS. 

THE ROUTINE WILL THEN CHECK FOR LAST CARD. IF THE LAST CARD 
INDICATOR IS ON, THIS ROUTINE WILL TRANSFER TO THE LAST 
CARD ROUTINE. IF NO LAST CARD, THE ROUTINE WILL RETURN TO THE 
I/O SUBROUTINE FROM WHICH IT WAS ENTERED. 

2. PRINT ERROR MESSAGES 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE MESSAGE IS THE 
FIRST ERROR MESSAGE FOLLOWING AN I/O CONTROL COMMAND, A LAST OP 
MESSAGE WILL PRECEED THE ERROR MESSAGE. THIS LAST OP MESSAGE WILL 
IDENTIFY THE LAST I/O CONTROL OPERATION EXECUTED. THE ERROR MESSAGE 
FOLLOWING REFERS TO ERRORS DETECTED IN THAT OPERATION. 

5.2.6 INTERRUPT ROUTINES 

1. COLUMN INTERRUPT - LEVEL 

THIS ROUTINE SENSES RESETS AND STORES THE DSW, THEN CHECKS FOR CORRECT 
DSW. ANY ERROR BITS ARE STORED. AFTER THE OPERATION IS COMPLETE. ALL 
ERROR BITS DETECTED DURING THAT OPERATION ARE AVAILABLE AND WILL BE 
PRINTED IN AN EOFOf MESSAGE. 

THE ROUTINE COUNTS THE NUMBER OF INTERRUPTS AND EXECUTES EITHER PUNCH 
OR READ COMMAND, THEN RETURNS TO THE MONITOR LEVEL INTERRUPT ROUTINE. 

2. OP - COMPLETE INTERRUPT - LEVELS 

THIS ROUTINE SENSE, RESETS, AND STORES THE DSW, SETS A SWITCH 
INDICATING THAT THIS INTERRUPT WAS RECEIVED, THEN RETURNS TO THE 
MONITOR LEVEL <t INTERRUPT ROUTINE. 
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|1H|111|||||1|11MI111|111 
2222|||||222|22|22222222|22 
3333|3||||33| 333|33333 33 3| 3 
44 4 4|4 4||||4|4 4 4 4|4 4 44444 4| 
5555|555 |||||55555|5555S555 
|666|g|||666|666666|66S66S6 
7|77|7||||77|7777 777|777 777 
Sl|l|l8||||0|0'l0 8 81 88|88 888 
999||999|||||999999999|9999 

g 9 10 11 I? 13 14 is 1! ■: IB IB 20.21 22 23 24 75 7B 71 21 2S 31 31 32 33 34 
3£>l 



00 00|||||||||0|0|00 0|0 0|08|0||0 

35 36 37 31 21 41 41 47 43 44 43 44 47 41 41 SO 51 12 S3 S4 55 SI 37 51 SB 10 tl E2 tt H IS li 17 58 IS JO 71 

111I1|U111I111|I|11111|1111|11|1||11 
22222212 2 2 22 2 22|2|2 2|2 2 2 2 ||||2 f2 2222 2 
3333333|3333333|3|333|3333|33|||33333 
4 44 444 44|444 4444|4|44 4|4444|4 4|4||44 4 
|55555555|555555|5|555b|b555|55|5|g55 
6|SGGGE6GG|SS6GG|S|6|G6GG||||GGEG6GeG 
7 7|77777 777|7777|7|7 7|7 77 7|7 7|||777 7 7 
888 |8I8888 88|08 8|8|881|8 8 8 8|88|8 ||888 
9999 |9 9999999 |9 9|9|9999|9 999|99|9||99 

35 36 37 31 33 40 41 42 43 44 45 41 47 41 43 SO 51 52 53 5» 55 56 51 51 55 60 51 S' S3 64 '5 56 11 69 »j 70 V 



mini i 

mini 

imiimo 

71 71 74 75 7* 77 JI 79 IS 

IIIIIIIII 
IIIIIII22 
■■■■■1133 
IIIIIII44 
IIIIIII55 
lllllllGG 
IIIIIII77 

minus 
imnioi 

71 73 '* 75 7B 7". 16 73 8D 



2ND CARD PUNCHED IN ROUTINE 1 AND USED IN ROUTINE 2. 



mm minimi 
i i mi i iiiiiiiii 



mi 



i i i 



m 



mini 
mini 



|oob oo o|oo|oo!i||o||o oooo oo ooooo ooo ooo|||||||||o|o|ooeo|oooo|oo|o||ooo|||||||ooo 

1 2 3 4 S I 7 I 11011 1213 14 1516 17 II IB 20 21 72 3' 24 75 26 77 26 2B 30 31 32 33 34 3536 37 313140 41 42 43444541 47 41 13 SO 51 12 S3 S4 55 56 5J 55 53 50 6! 67 61 64 45 66 67 61 SS 70 71 72 73 74 75 75 77 71 79 10 

i inn |iii|in imii |iiniiiii iiiiiiiii ii iiiiiiiii linn inn in iiimiiiiiiiM i 

22|22|2222|||||222|22|22222222|22222222|22222222|2|22|2222||||22222222|||||||222 
3 3 3||3 3 3 3 3 |3 ||||3 3 |3 3 3 |3 3 3 333 3 3|3 3 3 3 3 3 3 3 |3 3 33 3 3 3|3|3 3 3 |3 3 3 3|3 3|||3 3 3 3 3 |||||||3 3 3 
444||44444|44||||4|44 44|444 44444|444 44444|4444444|4|444|444 4|44|4||4 4 4 |||IUl4 4 4 

55|5 5|5555|555|||H55 55 5|55555 555|555b5555|55bbb»|5|bbbb|bbb5|55|5||55|||||||555 
6|GeGG|GG6|||||GGG|GGGG6G|6GEGGGGG|G6GGG6GG|GG6G6|G|G|G6G6||||GGGG6«GE|l|lllleee 

|777777|77|7||||77|7777777|77777777|77777777|7777|7|77|7777|77|||77777|||||||777 

88088B88|8|88||||8|8 8881888|88888888|88888888|88«|8|888|8888|88|8||8SB|||||||08| 
99999999 9||9 9 9|||||9 9 9 9 9 9 9 9 9 |9 9 9 9 9 999|9 9999 999 |9 9 |9 |9 9 9 9 |9 9 9 9 |9 9 |9 ||9 9 |||||||9 |9 

I 2 3 4 S B 2 6 9 10 11 12 « « 15 ' ■' IB 19 23 2> 22 23 24 2j 26 21 2829 30 31 32 33 34 35 36 37 3939 40 41 42 4344 4546 47 4949SO 51 52 53 54 55 56 57SB SS60 61 67 63 64 65 66 61 68 69 '0 11 17 73 '4 15 76 11 13 79 80 

Lil!Lt9JL'l 



3RD CARD PUNCHED IN ROUTINE 1 AND USED IN ROUTINE 2. 
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i mm minimi 

i i i mi i iiiiiiiii 

OC|00000 0|00|t0||||C||C0OOOOOO0OO00 39COOO0OOO00O0O00OOO0OOOOOOOOO0O000O0OO00OOOO 

t 2 3 4 S B 7 B B 10 11 12 13'» '5'f II 16 19 70 7' '2 " M *5 " 71 26 2S 30 J' 1. 31 •« V. '6 1' 'I 39 40 41 42 '.' 44 45 4| 41 44 44 SO 51 S2 S3 S4 35 SI 51 56 59 60 6' 62 63 64 65 66 61 63 63 10 " 12 71 74 75 75 77 71 79 II 

11l|1111|111|111|||||1|M1l11l1|l1111l11l1M1111t111l1lMl1111lllll11l1l111<11l1 

2222|22|2222|||||222|22|22222222|22222222222222222222222222222222222222222222222 
33333||3333 3|3|l||33|3 3 3| 3 3 3 3 3 3 3 3 | 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3333333 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 333333333 
44444||44444|44||||4|4444|44444444|444444444444444444444444444444444444444444444 
55 55|5 5|5555|5 55|||||555 5 515 5 5 555 5 515555 55555 55555555 55 5555 5 55 5 55 5 5555 5 55 5555555 
GEE|GGSG|EE6|||||GG6|GGG6G6|66GGGSGG|EGGGGGGGGG6EGGGGGGGGGGGG6BGGGGGGGGGGG6EGGGG 
77|7 7 77 7 7|7 7|7||||77|7 7 77 7 7 7|77 7 7 1 > 7 7 17 7 7 7 7 7 7 7 7 7 7 7 7 7 777 77777 77777777777 777777777 
8|E !B88 8 8 8|8|8 8||||8|8888 8 8 8 8 |8 8 8 1 8 1 8 8 |8 8 8 8 8 8 8 8 8 f 8 8 8 8 8 8 8 8 8 8 8 8 8 8 I 8 8 8 8 8 8 8 8 8 8 8 8 I 8 8 I 
|9999999999||999|||||999999999|99999999|999999999999999999999999999999999 9 19 9 9 99 

7 2 3 4 5 I 71910 II 12 13 14 15 '• l* IB IS 20 21 22 23 24 25 25 27 21 29 30 31 32 33 34 35 36 31 38 39 40 41 42 43 44 45 44 47 44 41 50 51 57 S3 54 SS 56 51 '3 5950 61 P 63 64 64 6 J t6 69 '0 1! 12 13 '4 l< 75 !■ '613 80 



1ST CARD PUNCHED IN ROUTINE 3 TO BE USED IN ROUTINE 4. 



i mill milium mm 

i i mi i huh i mi i i 



00|00000 0|00|00||||0||000000000 000 OOOOOOOOIOtOOOOOO 0000 000||0||||00|00|000000|0 

1 2 3 4 S I 7 I 9 10 11 12 13 74 15 16 17 II IS 20 21 22 2 24 25 24 27 26:3 30 3132 33 34 35' 1 18 11 40 4' 47 4344 4346 41 44 45 50 5 52 51 54 55 56 5' 58 I960 61 63 63 64 53 66 6' 66 6S 10 11 72 73 74 75 76 77 78 79 31 

iiiiiiiiiiiiiiiiiiiiiiiii i ii 1 1 hi ii 1111111H11 1 hi i inn iiiimiiiiin iiiiiiiin 

2222|22|2222|||||222|22|22222222|222222222222 22|22222222|22|222|||||2222|22|2222 
33333||33333|3||||33|333|33333333|333333 333333|33333333|3 33|33||||3|33333||33333 
44444||44444 |44||||4|4 444 | 44 4 4 4 44 4|4 444444444 | 4 4 44 4 4 4 4 |4 4 4 4 |4||||4 4 |4 4 4 4 4 ||44 44 4 
5 555|55|5555|555|||||55555|55 55555 5|55555555|55 5 55555|5 5 555|||||555|5555|55|5555 
GGG|GGGGlG66|||l|GG6|G6GGG6|GrGGG9GGlGGGG6G|GGGGGGSG|GGGG6E|SGG|||l|EGG|GGEG|GGG 
77|777777|77|7||||77|7777777|77 777/77|777 7|777 77777|77777 77|77||||7|77|7777 77|77 
8|88888888|8|8S||||8|88888888|8S888888|88|8888818S|888818S8|8||||88|8|8888888i|8 
|9999999999||99 9|||||9999999 99|99 999999||99999999|9 999 9 99 9 9|||||9 9 9||9S9 99999 99| 

12 3 4 3 I 7 8 S 10 11 ™ ™ 14 IS ' ■* «B ifl 20 21 22 2324 25 21 27 2121 30 31 32 21 -4 35 36 37 38 394041 42 4144 4541 47 4143 SO SI 52 53 54 55 5-' 6' 58 595H 61 61 63 64 66 66 61 . ,- :0 .. 7 73 '4 15 76 7, * 19 80 



1ST CARD WITH COLUMNS 41 THROUGH 80 PUNCHED IN ROUTINE 4. 



imii ii mi in m mm 

i i mi i iiiiiiiii iiiiiiiii i mi i i 



I D 

1 ; 3 
HI 

222 

333 

444 

555 

G E | 

'I' 

|88 
9 99 



00000|00|00||||0||900000000000000000||00 

4 5 I 7 1 9 10 11 12 13 11 15 16 17 '8 19 70 ~1 22 7' 24 2526 21 76 29 10 3! 32 33 34 35 J5 jl 34 38 40 41 42 43 
11 I1|111|111|||||1|I1 Id I I l| 11 I I 1 H l|| 11 



oooooooooooocoo||o||||oo|oo 

36 3B 40 41 42 43 44 45 '6 *1 46 43 SO 51 92 S3 S4 S3 5* 57 S3 59 60 61 17 13 44 45 rf 67 61 IS 71 71 
1 I 1 I l|l 1111 II 1 I I Hill > 1 l|l 1 



|22|2222|||||222|22|22 222222|2 22222 2222 22 
3||33333|3||||33|333| 33333333| 333 33333333 

4||44444|44||||4|4444|44444444|4444444444 
|55|5555|555|||||55555|55S5 5 555|55 555555b 
G666|6S6|||||6B6|6E6666|666i,6BS6|666B66B6 
7 7 77 7|7 7|7||||7 7|7 77 7 77 7|7 7 7 77 17 7|7 77 7 7 7| 
888818|8|88||||8|888888S8|88888888|8888|8 
9 999999|| 9 9 9 ||||| 9 9 9 9 9 9 9 9 9 | 9 9 9 9 9 9 9 9 |9 9 |9 9 

4 5 6 1 8 9 10 '1 17 '3 » 15 '• ' 16 '9 20 21 22 23 24 25 26 27 .3 29 36 31 32 33 34 35 36 J" 1° '40 4142 43 44 



2222|22222222|22|222|||l|22 
333|33333333|333|33||||3|33 
44|44444444|4444|4||||<.4|44 
5|55555555|55555|||||55 5 | c . '. 
|66 B66EC6|6 6656 6|t G6|I||| - 
77777777|7777777|77||||7|77 
8838888|88o 88 8! I Ill|- II 
5 9 <! S 9 9|399 9 9 9 9 9 9 |||||1 9 9 ||9 



loooooolo 

77 7374757I777I73IB 
111 1 1 1|1 1 

22|22|222 
333||3333 
444H444- 
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6 | 8 t 6 B 1 1. ; 
|777777|7 

* » . 8 8 J i i | 
9 " 9" 9 9 3 '- 9 



2ND CARD WITH COLUMNS 41 THROUGH 80 PUNCHED IN ROUTINE 4. 
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X 
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0160 
0i61 
0162 
0163 
0164 



0165 

0166 
0167 
0168 



017A 
018A 
019A 
01AA 

01BA 
01BB 
01BC 
01BD 



0000 



*************************************************** 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 



THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15, 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



* 
* 
* 

* 

* 

* 

* 

*************************************************** 

******************************************** 

* — _ — 

* 1130 - 1442 READER/PUNCH FUNCTION TEST 

* 

******************************************** 

* EQUATE TABLE 
******************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 
* 

* 

* MONITOR ENTRY ADORESSES 

* _ _______ — 



/160 
BEGIN&1 
START61 
ERROR 61 

L0G£1 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 
ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



BEGIN EQU 
START EQU 
ERROR EQU 
LOG EQU 
END EQU 
* 

* MONITOR CONTROL WORD ADDRESSES 

RTNSW EQU END61 ROUTINE START SW 
ERLCK EQU END62 LOCK ON ERROR CONTROL 
LOGBY EQU END63 I/O BUSY SW ADDRS 
RLCF EQU END64 RELOCATION FACTOR ADDRS 

* 

*- 

* 

*- 



INTERRUPT TRANSFER VECTOR ADDRESSES 



ILO EQU /17A 

IL1 EQU IL0616 

IL2 EQU IL1616 

IL3 EQU IL2616 

IL4 EQU IL3616 

RQTY EQU IL4S1 

RQKB EQU RQTY61 

SVKB EQU RQKB61 

* 

******************************************** 

ORG *6/05DC 

* 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



THE MONITOR USES CORE LOCATIONS 0-05DC. 
FOR CONTENTS OF THESE ADDRESSES REFER 
TO THE DIAGNOSTIC MONITOR LISTING. 



DATE 

EC NO. 



02JAN66 

415490 



01MAY66 

415490B 



* 

* 

* 

*- 

* 

* 

* 

******************************************** 

* PROGRAM CONTROL TABLE 

******************************************** 

* 



15N0V66 
419643 



30F00030 

30F00040 

30F00050 

30F00060 

30F00070 

30F00080 

30F00090 

30F00100 

30F00110 

30F00120 

30F00130 

30F00140 

30F00150 

30F00160 

30F00170 

30F00180 

30F00190 

30F00200 

30F00210 

30F00220 

30F00230 

30F00240 

30F00250 

30F00260 

30F00270 

30FO0280 

30F00290 

30F00300 

30F00310 

30F00320 

30F00330 

30F00340 

30F00350 

30F00360 

30F00370 

30F00380 

30F00390 

30F00400 

30F00410 

30F00420 

30F00430 

30F00440 

30F00450 

30F00460 

30F00470 

30F00480 

30F00490 

30F00500 

30F00510 

30F00520 

30F00530 

30F00540 

30F00550 

30F00560 

30F00570 

30F00580 

30F00590 

30F00600 

30F00610 

30F00620 

30F00630 

30F00640 

30F00650 

30F00660 

30F00670 

30F00680 

30F00690 

30F00700 



PROG ID 
PAGE 



05DC 





030F 


05DD 





0000 


05DE 





0000 


05DF 





0000 


05E0 





0000 


05E1 





0000 


05E2 





0000 


05E3 


1 


05EB 


05E4 


1 


05EB 


05E5 





0000 


05E6 





0000 


05E7 





FFFF 



PID 
RID 

RAD 
SWO 
SW1 
SW2 
SW3 



05E8 4480 0160 
05EA I 050C 



05EB 6100 
05EC 69F0 
05ED 1 6500 0911 
05EF 6000 017A 
05F1 1 6000 0884 
05F3 1 6500 0937 
05F5 6000 01B8 
05F7 4000 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

MLSCF DC 
DC 
DC 

* 

********** 

* 

********** 

* 

BGIN BSI 
DC 

* 



/030F 

*-* 

*-* 

*-* 

*-* 

*-* 

*-* 

STRT 

STRT 

*-* 

*-* 

/FFFF 



PROGRAM ID 
ROUTINE ID 
ROUTINE ADDRS 
PROGRAM CONTROL 
ROUTINE SELECTION 



LOOP ADDRS 

RESTART ADDRESS 

SET BY WAIT RTN AND MON 

SET BY CNTRL AND INRTPT 

TERMINATOR 



********************************** 

TEST INITIALIZATION 
********************************** 



I 



BEGIN 
PID 



PCT ADDRESS 



* START OF TEST AND SINGLE PASS INITIALIZATION 

* 

* 
STRT 



LDX 
STX 
LDX 
STX 
STX 
LDX 
STX 
BSI 



1 

1 

LI 




RIO 

INTRO 



SET TO START WITH 
FIRST ROUTINE 



LI ILO 
LI M 

LI INTR4 

LI IL4-2 

CNTRL 



SET COL INTRPT ADDRS 
RESET MULT LINE CONTROL 

SET OP COMP INTRPT ADDRS 



030F-0 

1 



05F8 





0000 


CNTRL 


DC 




*-* 


05F9 





C0E6 




LD 




SW1 


05FA 


1 


4C08 0603 




BSC 


L 


CN20.S, 


05FC 





DOEO 


CN10 


STO 




RID 


05FD 





9018 




S 




RIDCK 


05FE 


1 


4C08 0609 




BSC 


L 


CN30.6 


0600 





1810 




SRA 




16 


0601 





DODE 




STO 




SW1 


0602 





DODA 




STO 




RID 


0603 


1 


7401 05DD 


CN20 


MDX 


L 


RIDtl 


0605 





C0D7 




LD 




RID 


0606 





9010 




S 




RTNOM 


0607 





44B0 0164 




BSI 


I 


END,-Z 


0609 


1 


6580 05DD 


CN30 


LDX 


11 


RID 


060B 


1 


C500 0617 




LD 


LI 


RTTBL-1 


0600 





DODO 




STO 




RAD 


060E 





D0D7 




STO 




MLSCF61 


060F 





D400 0165 




STO 


L 


RTNSW 


0611 





1810 




SRA 




16 


0612 


1 


0400 0894 




STO 


L 


LOOP 


0614 





4480 0161 




BSI 


I 


START 


0616 





0009 


RIDCK 


DC 




LRTN-RT 


0617 





0006 


RTNOM 


DC 




NRTN-RT 


DATE 02JAN66 01MAY66 


15N0V66 






EC NO. 415490 415490B 


419643 







******************************************** 

* SEQUENCE CONTROL ROUTINE 
******************************************** 

* THIS ROUTINE CHECKS SW 1 AND CONTROLS 

* THE SEQUENCE IN WHICH TEST ROUTINES 

* ARE RUN. 



BR IF NO RTN SELECTD 

SAVE NEW RTN NUMBER 

BR IF VALID RTN 

IF INVALID RTN GO 
TO RTN ONE 

ADV TO NEXT RTN 
CHECK FOR END OF 
NORMAL SEQUENCE 
END OF PROGRAM 

XRHKNEW ROUTINE NUMBER 
FETCH RETURN ADRS 
STORE NEW RTN ADDRS 
SET MLSCF FOR RETURN 
SET RTN START SW 



GO TO MONITOR 



30F00710 

30F00720 

30F00730 

30F00740 

30F00750 

30F00760 

30F00770 

30F00780 

30F00790 

30F00800 

30F00810 

30F00820 

30F00830 

30F00840 

30F00850 

30F00860 

30F00870 

30F00880 

30F00890 

30F00900 

30F00910 

30F00920 

30F00930 

30F00940 

30F00950 

30F00960 

30F00970 

30F00980 

30F00990 

30F01000 

30F01010 

30FO1020 

30F01030 

30F01040 

30F01050 

30F01060 

30F01070 

30F01080 

30F01090 

30F01100 

30F01110 

30F01120 

30F01130 

30F01140 

30F01150 

30F01160 

30F01170 

30F0118O 

30F01190 

30F01200 

30F01210 

30F01220 

30F01230 

30F01240 

30F01250 

30F01260 

30F01270 

30F01280 

30F01290 

30F01300 

30F01310 

30F01320 

30F01330 

30F01340 

30F01350 

30F01360 

30F01370 

30F01380 



PROG II 
PAGE 
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1A 
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1442 READER/PUNCH FUNCTION TEST 



PART NO. 
PAGE 



2191224 
2A 



ROUTINE ADDRESS TABLE 



0618 


1 


0621 


0619 


1 


0638 


061A 


1 


0654 


061B 


1 


0669 


061C 


1 


0694 


061D 


1 


06AB 


061E 


1 


06E6 


061F 


1 


071A 


0620 


1 


0731 



RTTBL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



NRTN 



LRTN 



RT1 
RT2 
RT3 
RT4 
RT5 
RT6 
RT7 
RT8 
RT9 



PUNCH AND FEED 
READ ROTATE PATTERN 
PUNCH 40 COLUMNS 
PUNCH FLIPPED PATTERN 
READ FLIPPED PATTERN 
READ ANY CARD 
PUNCH FROM BIT SMS 
GANG PUNCH 
MODIFY ROTATE PATTERN 



************:«<******************************* 

* ROUTINE 1 - PUNCH AND FEED 

* THIS ROUTINE MILL READ A CARD, CHECK THAT THE 

* CARD IS BLANK, PUNCH THE CARD WITH A ROTATING 

* PATTERN, THEN FEED A CARD. ALL PUNCHED CARDS 

* HILL GO TO STACKER 2, ALL BLANK CARDS MILL 

* GO TO STACKER 1. 



0621 


1 


6500 


0A33 


* 
RT1 


LDX 


1 1 


WAREA 


0623 


1 


6D00 


0784 




STX 


1 1 


DADRS 


0625 





6101 






LDX 


1 


1 


0626 


1 


6700 


09EB 




LDX 


1 3 


ALDBK 


0628 


1 


4400 


0967 


* 
RT11 


BSI 


L 


TYPE 


062A 


1 


4400 


074A 


BSI 


1 


BLANK 


062C 


1 


6C00 


0894 




STX 


1 


LOOP 


062E 





6350 






LDX 


3 


80 


062F 


1 


4400 


078D 




BSI 


1 


PNCHR 


0631 


i 


4400 


07F0 


* 


BSI 


L 


LOCK 


0633 


1 


4400 


073D 


BSI 


1 


ROTAT 


0635 


1 


4400 


075B 




BSI 


1 


FEED 


0637 





70F2 






MDX 




RT11 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
LD BLANKS 
PRINT MESSAGE 

CK FOR BLANK CARD 

SET LOOP FUNCTION ADDRS 

SET NUMBER OF COLUMNS 

PUNCH ONE CARD 

CHECK FOR LOCK ON FUNC 

ROTATE THE PATTERN 
FEED A CARD 



* ROUTINE 2 - READ ROTATE PATTERN 

ft*************************************,, ,,,,,, 3,,, 

* THIS ROUTINE MILL READ THE ROTATE PATTERN 

* PUNCHED BY ROUTINE 3. IT MILL COMPARE THE 

* PATTERN ON EACH CARD HITH THE DESIRED PATTERN 

* FOR THAT CARD. 

* 



0638 


1 


6500 


0A33 


* 
RT2 


LDX 


1 1 


MAREA 


063A 


1 


6D00 


0784 




STX 


1 1 


DADRS 


063C 





6102 






LDX 


1 


2 


063D 


1 


6700 


OAOD 




LDX 


L3 


ASTOH 


063F 


1 


4400 


0967 


* 
RT21 


BSI 


L 


TYPE 


0641 





6350 




LDX 


3 


80 


0642 


1 


C400 


0788 




LD 


I 


TERM 


0644 


1 


D700 


0A83 


RT22 


STO 


1 3 


RAREA-1 


0646 





73FF 






MDX 


3 


-1 


0647 





70FC 






MDX 




RT22 


0648 


1 


6500 


0A84 


RT23 


LDX 


1 1 


RAREA 


064A 


1 


4400 


076C 




BSI 


1 


READR 


064C 


1 


4C10 


0648 




BSC 


1 


RT23,- 


064E 





6350 






LOX 


3 


80 


064F 


1 


4400 


07A3 




BSI 


L 


COMPR 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
STK TO HOPPER 
PRINT MESSAGE 

SET ALL BITS IN 
READ AREA 



REAO ONE CARD 
REPEAT IF NO OP COMP 
SET NUMBER OF COLUMNS 
COMPARE DATA READ 
WITH DATA PUNCHED 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



30F01390 

30F01400 

30F01410 

30F01420 

30F01430 

30F01440 

30F01450 

30F01460 

30F01470 

30F01480 

30F01490 

30F01500 

30F01510 

30F01520 

30F01530 

30F01540 

30F01550 

30F01560 

30F01570 

30F01580 

30F01590 

30F01600 

30F01610 

30F01620 

30F01630 

30F01640 

30F01650 

30F01660 

30F01670 

30F01680 

30F01690 

30F01700 

30F01710 

30F01720 

30F01730 

30F01740 

30F01750 

30F01760 

30F01770 

30F01780 

30F01790 

30F01800 

30F01810 

30F01820 

3OFO1830 

30F01840 

30F01850 

30F01860 

30F01870 

30F01880 

30F01890 

30F01900 

30F01910 

30F01920 

30F01930 

30F01940 

30F01950 

30F01960 

30F01970 

30F01980 

30F01990 

30F02000 

30F02010 

30F02020 

30F02030 

30F02040 

30F02050 

30F02060 



PROG ID 
PAGE 



0651 1 4400 073D 


BSI 


L 


ROTAT 


0653 70ED 


MDX 




RT21 



ROTATE THE PATTERN 



********************* 

* ROUTINE 

********************* 

* THIS ROUTINE MILL 

* IN THE FIRST 40 CO 

* CARDS MILL GO TO S 



************************ 

3 - PUNCH 40 COLUMNS 
******************* ***** 

PUNCH THE ROTATING PATTERN 
LUMNS OF EACH CARD. ALL 
TACKER 2. 



SET FOR START OF 

ROTATE PATTERN 
MESSAGE NUMBER 
LD BLANKS 
PRINT MESSAGE 

CK FOR BLANK CARD 

SET LOOP FUNCTION ADDRS 

SET NUMBER OF COLUMNS 

PUNCH ONE CARD 

CHECK FOR LOCK ON FUNC 

ROTATE THE PATTERN 



♦♦♦fr**********************************,,*.^,,,,, 

* ROUTINE 4 - PUNCH FLIPPED PATTERN 
***********************************„ ********* 

* THIS ROUTINE MILL READ THE ROTATE PATTERN 

* PUNCHED BY ROUTINE 3 AND COMPARE IT MITH 

* THE DESIRED PATTERN. IT WILL THEN PUNCH THE 

* MIRROR IMAGE OF THAT PATTERN IN COLUMNS 41-80. 











* 








0654 


1 


6500 


0A33 


RT3 


LDX 


1 1 


WAREA 


0656 


1 


6D00 


0784 




STX 


1 1 


DADRS 


0658 





6101 






LDX 


1 


1 


0659 


1 


6700 


09EB 




LDX 


13 


ALDBK 


065B 


1 


4400 


0967 




BSI 


L 


TYPE 


065D 


1 


4400 


074 A 


RT31 


BSI 


1 


BLANK 


065F 


1 


6C00 


0894 




STX 


1 


LOOP 


0661 





6328 






LDX 


3 


40 


0662 


1 


4400 


078D 




BSI 


I 


PNCHR 


0664 


1 


4400 


07F0 




BSI 


L 


LOCK 


0666 


1 


4400 


073D 




BSI 


1 


ROTAT 


0668 





70F4 






MDX 




RT31 



030F-0 
2 





0669 1 6500 0A33 


* 
RT4 


LDX 


LI MAREA 


SET FOR START OF 




066B 1 6D00 0784 
0660 6102 




STX 

LDX 


LI DADRS 
1 2 


ROTATE PATTERN 
MESSAGE NUMBER 




066E 1 6700 OAOD 




LOX 


L3 ASTOH 


STK TO HOPPER 




0670 1 4400 0967 


* 


BSI 


L TYPE 


PRINT MESSAGE 




0672 1 6500 0A84 


RT41 


LOX 


LI RAREA 






0674 1 4400 076C 




BSI 


L READR 


READ ONE CARD 




0676 1 4C10 0672 




BSC 


L RT41,- 


REPEAT IF NO OP COMI 




0678 6328 




LOX 


3 40 


SET NUMBER OF COLUMr 




0679 1 4400 07A3 


* 

* 


BSI 


L COMPR 


COMPARE DATA READ 
WITH DATA PUNCHED 




067B 1 4400 073D 


* 


BSI 


L ROTAT 


ROTATE THE PATTERN 




067D 63FE 


RT42 


LDX 


3 -2 


LOAD XR 3 




067E 62D8 


* 


LDX 


2 -40 


LOAD XR 2 




067F 1 C600 OAAC 


FLIP 


LD 


L2 RAREA640 


OATA READ 




0681 1 D700 0AD5 




STO 


L3 RAREA681 


NEW LOCATION 




0683 73FF 




MDX 


3 -1 


ADJ XR 3 




0684 7201 




MDX 


2 1 


ADJ XR 2 




0685 70F9 


* 


MDX 


FLIP 






0686 62D8 


LDX 


2 -40 


LOAD XR 2 




0687 1011 




SLA 


17 


CLEAR ACC 




0688 1 D600 OAAC 


CLEAR 


STO 


L2 RAREA640 


CLEAR COL 1 TO 40 




068A 7201 




MDX 


2 1 






068B 70FC 


♦ 


MDX 


CLEAR 






068C 1 6500 0A84 




LDX 


LI RAREA 






068E 1 6000 0784 




STX 


LI DADRS 


SET PUNCH DATA ADRS 


DATE 


02JAN66 01MAY66 


15N0V66 






EC NO. 


415490 415490B 


419643 







30F02070 
30F02080 

30F02090 

30F021O0 

30F02110 

30F02120 

30F02130 

30F02140 

30F02150 

30F02160 

30F02170 

30F02180 

30F02190 

30F02200 

30F02210 

30F02220 

30F02230 

30F02240 

30F02250 

30F02260 

30F02270 

30F02280 

30F02290 

30F02300 

30F02310 

30F02320 

3OF0233O 

30F02340 

30F02350 

30F02360 

30F02370 

30F02380 

30F02390 

30F02400 

30F02410 

30F02420 

30F0243O 

30F02440 

30F02450 

30F02460 

30F02470 

30F02480 

30F02490 

30F02500 

30F02510 

30F0252O 

30FO253O 

30F0254O 

30F0255O 

30F02560 

30F0257O 

30F02580 

30F02590 

30F02600 

30F02610 

30F02620 

30F02630 

30F02640 

30F02650 

30F02660 

30F02670 

30F02680 

30F02690 

30F02700 

30F02710 

30F02720 

30F02730 

30F02740 
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PAGE 
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0690 6350 






LDX 


3 


80 


SET NUMBER OF COLUMNS 


30F02750 






0691 1 4400 078D 






BSI 


L 


PNCHR 


PUNCH ONE CARD 


30F02760 






0693 70DE 


* 




MDX 




RT41 




30F02770 
30F02780 








********************************************* 


30F02790 








* 








ROUTINE 5 


- READ FLIPPED PATTERN 


30F02800 








********************************************* 


30F02810 








* 


THIS ROUTINE HILL READ THE FLIPPED PATTERN 


30F02820 








* 


PUNCHED 


BY 


ROUTINES 3 


AND 4, THEN COMPARE 


30F02830 








* 


WITH DESIRED PATTERN. 




30F02840 








. 












30F02850 
30F02860 








* 
















0694 1 6500 0A33 


RT5 


LDX 


LI 


WAREA 


SET FOR START OF 


30F02870 






0696 1 6D00 0784 






STX 


LI 


DADRS 


ROTATE PATTERN 


30F02880 






0698 6102 






LDX 


1 


2 


MESSAGE NUMBER 


30F02890 






0699 1 6700 OAOD 






LOX 


L3 


ASTOH 


STK TO HOPPER 


30F02900 






069B 1 4400 0967 


* 




BSI 


L 


TYPE 


PRINT MESSAGE 


30F02910 
30F02920 






069D 1 6500 0A84 


RT51 


LDX 


LI 


RAREA 




30F02930 






069F 1 4400 076C 






BSI 


L 


READR 


READ ONE CARD 


30F02940 






06A1 1 4C10 069D 






BSC 


L 


RT51t- 


REPEAT IF NO OP COMP 


30F02950 






06A3 6328 






LDX 


3 


40 


SET NUMBER OF COLUMNS 


30F02960 






06A4 1 6C00 078C 






STX 


L 


FLIPS 


SET FLIP SW 


30F02970 






06A6 1 4400 07A3 


* 




BSI 


L 


COMPR 


COMPARE DATA READ 
WITH DATA PUNCHED 


30F02980 
30F02990 
30F03000 






06A8 1 4400 073D 






BSI 


L 


ROTAT 


ROTATE THE PATTERN 


30F03010 






06AA 70F2 


* 




MDX 




RT51 




30F03020 
30F03030 








********************************************* 


30F03040 








* 








ROUTINE 6 


- CLUTCH TEST 


30F03050 








♦♦♦♦a**************************************** 


30F03060 








* 


THIS ROUTINE WILL READ GANG PUNCHED CARDS WITH 


30F03070 








* 


AND INCREASING DELAY 


BETWEEN EACH START READ 


30F03080 








* 


COMMAND 


. ALL CARDS READ WILL BE COMPARED WITH 


30F03090 








* 


THE FIRST i 


:ard. 




30F03100 








A 












30F03110 
30F03120 








* 
















06AB 6104 


RT6 


LDX 


1 


4 


MESSAGE NUMBER 


30F03130 






06AC 1 6700 0A27 






LDX 


L3 


ALACO 


OR GANG PUNCH 


30F03140 






06AE 1 6F00 0974 






STX 


L3 


ALPHAG1 




30F03150 






06B0 1 6700 09EB 






LOX 


L3 


ALDBK 


LD BLANKS 


30F03160 






06B2 1 4400 0967 


* 




BSI 


L 


TYPE 


PRINT MESSAGE 


30F03170 
30F03180 






06B4 1 6500 0AD4 






LDX 


LI 


RAREB 




30F03190 






06B6 1 4400 076C 


* 




BSI 


L 


READR 


READ ONE CARD 


30F03200 
30F03210 






06B8 1810 


RT61 


SRA 




16 




30F03220 






06B9 1 D400 06E3 






STO 


L 


DFACT 


RESET CLUTCH DELAY FACTOR 


30F03230 






06BB 637D 






LDX 


3 


125 




30F03240 






06BC 6B28 


* 




STX 


3 


T6CNT 


INITIALIZE PASS COUNT 


30F03250 
30F03260 






06BD 1 6C00 0894 






STX 


L 


LOOP 


SET LOOP FUNCTION ADDRS 


30F03270 






06BF 1 C400 05E1 


RT62 


LD 


L 


SW2 


CK SW2 FOR CONSTANT DELAY 


30F03280 






06C1 1003 






SLA 




3 




30F03290 






06C2 4808 






BSC 




6 




30F03300 






06C3 COIF 






LD 




DFACT 


LD DELAY FACTOR 


30F03310 






06C4 D01F 


* 




STO 




DLYCT 


SET DELAY COUNTER 


30F03320 
30F03330 






06C5 1 6500 06CB 


RT63 


LDX 


LI 


RT64 




30F03340 






06C7 1 6000 05E6 






STX 


LI 


MLSCFE1 


SET RETURN ADDRS 


30F03350 






06C9 1 4C00 08DA 


* 




BSC 


L 


WAIT4 


GO TO MONITOR 


30F03360 
30F03370 






06CB 1 74FF 06E4 


RT64 


MDX 


L 


DLYCT, -1 


DEC COUNTER 


30F03380 






06CD 70F7 


* 




MDX 




RT63 




30F03390 
30F03400 






06CE 1 6500 0AD4 


RT65 


LDX 


LI 


RAREB 


SET FOR COMPARE 


30F03410 






06D0 1 6D00 0784 






STX 


LI 


DADRS 




30F03420 




DATE 


02JAN66 01MAY66 


. 


15N0V66 








PROG ID 


030F-0 


EC NO. 


415490 415490B 


419643 








PAGE 


3 
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06D2 


1 


6500 


0A84 


0604 


1 


4400 


076C 


06D6 
0608 
06D9 


1 

1 


4C10 
6350 
4400 


06CE 
07A3 


06DB 


1 


4400 


07F0 



06UD 1 7401 06E3 
06DF 1 74FF 06E5 
06E1 70DD 
06E2 7005 

06E3 0000 
06E4 0000 
06E5 0000 



LDX 

BSI 

BSC 
LDX 
BSI 

BSI 

MDX 
MDX 

MDX 
MDX 



LI 
L 
L 
3 

L 



RAREA 

READR 

RT65,- 

80 

COMPR 

LOCK 

DFACT, 1 

T6CNT,-] 

RT62 

RT61 



READ ONE CARD 
REPEAT IF NO OP COMP 
SET NUMBER OF COLUMNS 
COMPARE DATA READ 

WITH DATA PUNCHED 
CK FOR LOCK ON FUNCTION 

ADV CLUTCH DELAY FACTOR 
DEC COUNT 

RESET OELAY 



DFACT DC *-* 
DLYCT DC *-* 
T6CNT DC *-* 

* 
********************************************* 

* ROUTINE 7 - PUNCH FROM SWITCHES 

********************************************* 

* THIS ROUTINE WILL PUNCH ALL CARD COLUMNS 

* WITH THE DATA SET IN BIT SWITCHES 0-11. 



06E6 


1 


6500 


0A84 


* 
RT7 


LDX 


LI 


RAREA 


SET TO PUNCH FROM 


06E8 


1 


6D00 


0784 




STX 


LI 


DADRS 


RAREA 


06EA 





6107 






LDX 


1 


7 




06EB 


1 


6700 


09EB 




LDX 


L3 


ALDBK 


LD BLANKS 


06ED 


1 


4400 


0967 


$ 


BSI 


L 


TYPE 


PRINT MESSAGE 


06EF 


1 


4400 


0942 




BSI 


L 


READY 




06F1 





6107 






LDX 


1 


7 




06F2 


1 


6700 


0A15 




LDX 


L3 


ASETP 


SET PATT 


06F4 


1 


4400 


0967 


* 
" RT71 


BSI 


L 


TYPE 


PRINT MESSAGE 


06F6 


1 


ocoo 


0782 


XIO 


L 


SNSWS 


READ BIT SWS 


06F8 





C020 






LD 




RT7SW 


LD SW SETTING 


06F9 





100C 






SLA 




12 


CHECK BIT 12 


06FA 


1 


4C28 


0702 


£ 


BSC 


L 


RT72,6Z 


BR IF 12 ON 


06FC 


1 


6500 


06F6 




LOX 


LI 


RT71 




06FE 


1 


6D00 


05E6 




STX 


LI 


MLSCFC1 




0700 


1 


4C00 


08DA 


4 


BSC 


L 


WAIT4 




0702 





C016 




RT72 


LD 




RT7SW 


LD PATTERN 


0703 





1804 






SRA 




4 


REMOVE 12 BIT 


0704 





1004 






SLA 




4 




0705 





D013 






STO 




RT7SW 




0706 





6150 






LDX 


1 


80 




0707 


1 


0500 


0A83 


RT73 


STO 


LI 


RAREA-1 


FILL RAREA 


0709 





71FF 






MDX 


1 


-1 


WITH PATTERN 


070A 





70FC 




* 
RT74 


MOX 




RT73 




070B 


1 


6780 


05E1 


LDX 


13 


SW2 


CK COL CNT OPTION 


070D 





7300 






MDX 


3 







070E 





7001 






MDX 




*£1 




070F 





6350 






LDX 


3 


80 


SKIP IF SW2 SET 


0710 


1 


4400 


078D 


* 


BSI 


L 


PNCHR 


PUNCH ONE CARD 


0712 





086F 




XIO 




SNSWS 


READ BIT SWS 


0713 





C005 






LD 




RT7SW 




0714 


1 


F400 


0A84 




EOR 


L 


RAREA 


CK FOR CHANGE OF SW 


0716 


I 


4C20 


06F6 




BSC 


L 


RT71.Z 


BR IF SW CHANGED 


0718 





70F2 




$ 


MDX 




RT74 




0719 





0000 




RT7SW 

* 


DC 




*-* 


BIT SW STORAGE 



********************************************* 



30F03430 

30F03440 

30F03450 

30F03460 

30F03470 

30F03480 

30F03490 

30F03500 

30F03510 

30F03520 

30F03530 

30F03540 

30F03550 

30F03560 v 

30F03570 

30F03580 

30F03590 

30F03600 

30F03610 

30F03620 

30F03630 

30F03640 

30F03650 

30F03660 

30F03670 

30F03680 

30F03690 

30F03700 

30F03710 

30F03720 

30F03730 

30F03740 

30F03750 

30F03760 

30F03770 

30F03780 

30F03790 

30F03800 

30F03810 

30F03820 

30F03830 

30F03840 

30F03850 

30F03860 

30F03870 

30F03880 

30F03890 

30F03900 

30F03910 

30F03920 

30F03930 

30F03940 

30F03950 

30F03960 

30F03970 

30F03980 

30F03990 

30F04000 

30F04010 

30F04020 

30F04030 

30F04040 

30F04050 

30F04060 

30F04070 

30F04080 

30F04090 

30F04100 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 
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* ROUTINE 8 - GANG PUNCH 

********************************************* 

* THIS ROUTINE WILL READ ONE CARD THEN PUNCH 

* ALL FOLLOWING CARDS WITH DATA READ FROM FIRST 

* CARD. 

* 



SET TO PUNCH 

DATA READ 
MESSAGE NUMBER 
LD ANY PATTERN PLUS BLANKS 
PRINT MESSAGE 



071A 


1 


6500 


0A84 


RT8 


LDX 


LI 


RAREA 


071C 


1 


6D00 


0784 




STX 


LI 


DADRS 


071E 





6103 






LDX 


1 


3 


071F 


1 


6700 


09F1 




LDX 


L3 


ANYP 


0721 


1 


4400 


0967 




BSI 


L 


TYPE 


0723 


1 


6500 


0A84 




LDX 


LI 


RAREA 


0725 


1 


4400 


076C 




BSI 


L 


READR 


0727 


1 


4400 


074A 


RT81 


BSI 


L 


BLANK 


0729 


1 


6C00 


0894 




STX 


L 


LOOP 


072B 





6350 






LDX 


3 


80 


072C 


1 


4400 


078D 




BSI 


L 


PNCHR 


072E 


1 


4400 


07F0 




BSI 


L 


LOCK 


0730 





70F6 






MDX 




RT81 



0731 6103 

0732 1 6700 09F1 
0734 1 4400 0967 

0736 1 6500 0A33 

0738 4033 

0.739 1 6C00 05E0 

073B 1 4400 05F8 



073D 0000 
073E 1 7401 0784 
0740 1 C480 0784 

0742 F045 

0743 1 4CA0 073D 
0745 1 6500 0A33 

0747 693C 

0748 1 4C80 073D 



074A 
074B 
074D 
074E 
0750 



0000 

6500 0AD4 
1810 

D400 0894 
401B 



*********************** 

* ROUTINE 9 

*********************** 

* THIS ROUTINE WILL RE 

* TABLE WITH ANY DESIR 

* WITH ROUTINE 1. 



READ ONE CARD 

CK FOR BLANK CARD 

SET LOOP FUNCTION ADDRS 

SET NUMBER OF COLUMNS 

PUNCH ONE CARD 

CHECK FOR LOCK ON FUNC 



********************** 

MODIFY ROTATE PATTERN 

********************** 

PLACE THE ROTATE DATA 
ED PATTERN- THEN START 



* 

RT9 LDX 
LDX 
BSI 

* 

LDX 
BSI 

* 

STX 
BSI 

* 

********** 

* 

********** 

* 

ROTAT DC 
MDX 
LD 
EOR 
BSC 
LDX 
STX 
BSC 

* 

********** 

* 

********** 

* THIS SUB 

* THAT IT 

* : 

* 

BLANK DC 
LDX 
SRA 
STO 
BSI 



1 3 
L3 ANYP 
L TYPE 

LI WAREA 
READR 

L SW1 
L CNTRL 



MESSAGE NUMBER 

LD ANY PATTERN PLUS BLANKS 

PRINT MESSAGE 



READ ONE CARD 

SET CONTROL TO RESTART 
GO TO CONTROL 



*********************************** 

ROTATE THE DATA TABLE ADDRESS 
*********************************** 



*-* 
L DADRStl 
I DADRS 

TERM 
I ROTAT, Z 
LI WAREA 
1 DADRS 
I ROTAT 



ADVANCE THE DATA ADDRS 
CHECK FOR DATA 

TABLE TERMINATOR 
RETURN IF NO TERM 
IF TERM - RESET TO 

START OF TABLE 



*********************************** 

CHECK FOR BLANK CARD 

*********************************** 

ROUTINE WILL READ A CARD AND CHECK 
IS BLANK. 



*-* 
LI RAREB 

16 
L LOOP 

READR 



0751 1 6680 08AC 



LDX 12 COLCT 



SET FOT NO LOOP 
READ ONE CARD 

CHECK FOR BLANK CARD 



30F04110 
30F04120 
30F04130 
30F04140 
30F04150 
30F04160 
30F04170 
30F04180 
30F04190 
30F04200 
30F04210 
30F04220 
30F04230 
30F04240 
30F04250 
30F04260 
30F04270 
30F04280 
30F04290 
30F04300 
30F04310 
30F04320 
30F04330 
30F04340 
30F04350 
30F04360 
30F04370 
30F04380 
30F04390 
30F04400 
30F04410 
30F04420 
30F04430 
30F04440 
30F04450 
30F04460 
30F04470 
30F04480 
30F04490 
30F04500 
30F04510 
30F04520 
30F04530 
30F04540 
30F04550 
30F04560 
30F04570 
30F04580 
30F04590 
30F04600 
30F04610 
30F04620 
30F04630 
30F04640 
30F04650 
30F04660 
30F04670 
30F04680 
30F04690 
30F04700 
30F04710 
30F04720 
30F04730 
30F04740 
30F04750 
30F04760 
30F04770 
30F04780 



0753 


1 


C600 


0AD3 


BLKl 


LD 


L2 RAREB-1 


0755 


1 


4C20 


07FE 




BSC 


L ERRO,Z 


0757 
0758 
0759 






1 


72FF 
70FA 
4C80 


074A 




MDX 
MDX 
BSC 


2 -1 
BLKl 
I BLANK 



BR IF NOT BLANK 



********************************************* 

* FEED A CARD 

********************************************* 

* 



075B 





0000 


FEED DC 




*-* 


075C 


1 


4400 


0942 


BSI 


L 


READY 


075E 


1 


D400 


0894 


STO 


L 


LOOP 


0760 


1 


6500 


09DC 


LDX 


LI 


AFD 


0762 


1 


6D00 


089A 


STX 


LI 


OP 


0764 





6100 




LDX 


1 





0765 


1 


6D00 


08AD 


STX 


LI 


COLCTtl 


0767 





081C 




XIO 




FDACD-1 


0768 


1 


4400 


08AF 


BSI 


L 


WAIT 


076A 


1 


4C80 


075B 


BSC 


I 


FEED 



076C 0000 
076D 1 6D00 0904 
076F 6350 
0770 1 6F00 08AD 

0772 1011 

0773 D018 

0774 1 4400 0942 

0776 1 6500 09D5 
0778 1 6000 089A 
077A 6500 8003 
077C 0809 
077D 1 4400 08AF 

077F 1 4C80 076C 



0782 




0000 


0782 


1 


0719 


0783 





3A00 


0784 





0000 


0785 





1402 


0786 





0000 


0787 





1404 


0788 





FFFF 


0789 





1401 


078A 





0000 


078B 





1480 


078C 





0000 



SET FOR NO LOOP 



SET INTRPTDSW S/B 
SET FOR NO COL INTRPTS 
FEED A CARD 
WAIT FOR INTERRUPT 



********************************************* 

* READ A CARD 

********************************************* 

* THIS SUBROUTINE WILL READ A CARD THEN CHECK THAT 

* 80 COLUMNS WERE READ AND CHECK THE BUSY, INTRPT, 

* AND OPERATION COMPLETE DSWS. 



* 
READR 



DC 

STX 

LOX 

STX 

SLA 

STO 

BSI 

LDX 
STX 
LDX 
XIO 
BSI 



*-* 
LI READ 

3 80 
L3 C0LCT61 

17 

FLIPS 
L READY 

LI ARD 
LI OP 
LI /8003 

RDRST-] 
L WAIT 



SET READ BUFFER ADDRS 
SET COL COUNT S/B 
RESET FLIP SW 



SET INTRPT DSW S/B 
START THE READER 



BSC I READR 



078D 0000 





BSS 


E 


SNSWS 


DC 


RT7SW 




DC 


/3A00 


DADRS 


DC 


*-* 


FDACD 


DC 


/1402 


PDATA 


DC 


*-* 


RDRST 


DC 


/1404 


TERM 


DC 


/FFFF 


PCHST 


DC 


/1401 


NCOL 


DC 


*-* 


STACK 


DC 


/1480 


FLIPS 

* 
****** 


DC 


*-* 


***************: 


* 




PUNCH , 


******************* *i 


* THIS SUBROUTINE WI 


* THAT THE 


PROPER NU 


* AND 


CHECK THE BUSY 


* COMPLETE 


DSWS. 


PNCHR 


DC 


*-* 



RETURN 



READ BIT SWS 



FEED A CARD 

PUNCH ADDRS BUFFER 

START READER 

START PUNCH 
COL PUNCH OR COMPARE 
SELECT #2 STACKER 
FLIP SW 



CNT 



************************* 
A CARD 

************************* 
LL PUNCH A CARD THEN CHECK 
MBER OF COLUMNS WERE PUNCHED, 
, INTERRUPT, AND OPERATION 



30F04790 
30F04800 
30F04810 
30F04820 
30F04830 
30F04840 
30F04850 
30F04860 
30F04870 
30F04880 
30F04890 
30F04900 
30F04910 
30F04920 
30F04930 
30F04940 
30F04950 
30F04960 
30F04970 
30F04980 
30F04990 
30F05000 
30F05010 
30F05020 
3OF05030 
30F05040 
30F05050 
30F05060 
30F05070 
30F05080 
30F05090 
30F05100 
30F05110 
30F05120 
30F05130 
30F05140 
30F05150 
30F05160 
30F05170 
30F05180 
30F05190 
30F05200 
30F05210 
30F05220 
30F05230 
30F05240 
30F05250 
30F05260 
30F05270 
30F05280 
30F05290 
30F05300 
30F05310 
30F05320 
30F05330 
30F05340 
30F05350 
30F05360 
30F05370 
30F05380 
3OF0539O 
30F05400 
30F05410 
30F05420 
30F05430 
30F05440 
30F05450 
30F05460 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030F-0 
4 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



030F-0 
4A 
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07BE 1 6F00 


08AD 


* 




STX 


L3 


C0LCT£1 


SET COL COUNT S/B 


30F05470 
30F05480 






0790 1 4400 


0942 


PNCH1 


BSI 


L 


READY 




30F05490 






0792 08F7 




* 




XIO 




STACK-1 


SELECT STACKER 2 


30F05500 
30F05510 






0793 1 C400 


08AD 






LD 


L 


C0LCTC1 




30F05520 






0795 D0F4 








STO 




NCOL 


SET PUNCH COL COUNT 


30F05530 






0796 COED 








LD 




DADRS 


SET FOR START OF 


30F05540 






0797 DOEE 








STO 




PDATA 


NEXT PATTERN 


30F05550 






0798 1 6500 


09D8 






LDX 


LI 


APCH 




30F05560 






079A 1 6D00 


089A 






STX 


LI 


OP 




30F05570 






079C 6500 


4003 






LDX 


LI 


/4003 


SET INTRPT DWS S/B 


30F05580 






079E 08E9 








XIO 




PCHST-1 


START THE PUNCH 


30F05590 






079F 1 4400 


08AF 


* 




BSI 


L 


WAIT 


WAIT FOR INTERRUPTS 


30F05600 
30F05610 






07A1 1 4C80 


078D 


* 




BSC 


I 


PNCHR 




30F05620 
30F05630 










********************************************* 


30F05640 










* 








COMPARE 1 


3ATA READ 


30F05650 










********************************************* 


30F05660 










* 


THIS SUBROUTINE WILL 


COMPARE THE OATA READ WITH 


30F0567Q 










* 


THE 


PATTERN 


EXPECTED 


FOR THAT CARD. 


30F05680 










. 












30F05690 
30F05700 










* 
















07A3 0000 




COMPR 


DC 




*-* 




30F05710 






07A4 6BE5 








STX 


3 


NCOL 


SET NUMBER OF COLUMNS 


30F05720 






07A5 6700 


7401 






LDX 


L3 


/7401 


SET FOR POSITIVE INCR 


30F05730 






07A7 6B12 








STX 


3 


INCR 




30F05740 






07A8 CODB 








LD 




DADRS 


SET FOR START OF 


30F05750 






07A9 DOOC 








STO 




PDATA 


NEXT PATTERN 


30F05760 






07AA 1011 








SLA 




17 




30F05770 






07AB I D400 0884 






STO 


L 


M 


SET FOR FIRST ERROR 


30F05780 






07AD 6101 




* 




LDX 


1 


1 


XR1#C0LUMN COUNT 


30F05790 
30F05800 






07AE 1 6000 


08AE 


C0M1 


STX 


LI 


COL 


SAVE COL COUNT 


30F05810 






0760 1 C480 


0786 






LD 


I 


PDATA 


LD NEXT DATA WORD 


30F05820 






07B2 1803 








SRA 




3 




30F05830 






07B3 1003 








SLA 




3 




30F05840 






07B4 1 D400 


08AB 






STO 


L 


DATAS1 


SAVE IN DATA S/B 


30F05850 






07B6 1 F500 


0A83 






EOR 


LI 


RAREA-1 


COMPARE WITH DATA READ 


30F05860 






07B8 1 4420 


0851 






BSI 


L 


ERR9,Z 


BR IF ERROR 


30F05870 






07BA 1 7401 


0786 


INCH. 


MDX 


L 


PDATA, 1 


ADV DATA ADRS 


30F05880 






07BC 7101 








MDX 


1 


1 


ADV COLUMN COUNT 


30F05890 






0730 1000 








NOP 








30F05900 






07BE 1 C480 


0786 






LD 


I 


PDATA 


CK FOR DATA TABLE 


30F05910 






07C0 F0C7 








EOR 




TERM 


TERMINATOR 


30F05920 






07C1 1 4C20 


07C6 






BSC 


L 


C0M2,Z 


BR IF NO TERM 


30F05930 






07C3 1 6700 


0A33 






LOX 


L3 


WAREA 


RESET TO START 


30F05940 






07C5 6BC0 




* 




STX 


3 


PDATA 


OF TABLE 


30F05950 
30F05960 






07C6 1 C400 


08AE 


COM2 


LD 


L 


COL 


CHECK FOR LAST COL READ 


30F05970 






07C8 1 9400 


08AC 






S 


L 


COLCT 




30F05980 






07CA 1 4C10 


07E2 






BSC 


L 


C0M4,- 


BR IF LAST COL 


30F05990 






07CC 1 74FF 


078A 






MDX 


L 


NC0L,-1 


COUNT COLUMNS SHOULD 


30F06000 






07CE 70DF 




* 




MDX 




C0M1 


HAVE READ 


30F06010 
30F06020 






07CF 1 7400 


078C 


COM3 


MDX 


L 


FLIPStO 


CK FLIP SW 


30F06030 






07D1 7015 




* 




MDX 




C0M5 


BR IF FLIP 


30F06040 
30F06050 






07D2 1011 








SLA 




17 


THE REST OF CARD 


30F06060 






07D3 1 0400 


08AB 






STO 


L 


DATAS1 


SHOULD BE ZERO 


30F06070 






07D5 1 6D00 


08AE 






STX 


LI 


COL 




30F06080 






0707 1 F500 


0A83 






EOR 


LI 


RAREA-1 




30F06090 






07D9 1 4420 


0851 






BSI 


L 


ERR9,Z 




30F06100 






07DB 7101 








MDX 


1 


1 




30F06110 






070C 1 C400 


08AE 






LD 


L 


COL 




30F06120 






07DE 1 9400 


08AC 






S 


L 


COLCT 




30F06130 






07E0 1 4C28 


07CF 






BSC 


L 


C0M3.SZ 




30F06140 




DATE 


02JAN66 


01MAY66 




15N0V66 








PROG ID 


030F-0 


EC NO. 


415490 


415490B 




419643 








PAGE 


5 



07E2 1011 
07£3 1 D400 0884 
07E5 1 4C80 07A3 



07E7 
07E9 
07EA 
07EC 
07E0 
07EE 
07EF 



6700 OAAB 

6B9C 

6700 74FF 

6BCD 

6228 

6A9B 

70BE 



COM4 



* 
C0M5 



SLA 
STO 

BSC 

LDX 
STX 
LDX 
STX 
LDX 
STX 
MDX 



L 
I 

L3 
3 

L3 
3 
2 
2 



17 

M 

COMPR 

RAREA&39 

PDATA 

/74FF 

INCR 

40 

NCOL 

C0M1 



RESET MULT LINE CONTROL 



SET TO COMPARE LAST 
HALF WITH 1ST HALF 
SET FOR NEGATIVE INCR 

COMPARE NEXT 
40 COLUMNS 



******************************************** 

* LOCK ON FUNCTION 

******************************************** 

* 



07F0 





0000 




07F1 


1 


C400 


05DF 


07F3 





EC80 


0166 


07F5 





100 A 




07F6 


1 


4C90 


07F0 


07F8 


1 


C400 


0894 


07FA 


1 


4CA0 


0894 


07FC 


1 


4C80 


07F0 



LOCK 



DC 




*-* 


LD 


L 


swo 


OR 


I 


ERLCK 


SLA 




10 


BSC 


I 


LOCK,- 


LD 


L 


LOOP 


BSC 


I 


LOOP , Z 


BSC 


I 


LOCK 



LD SWO 

COMB WITH MONITOR SWO 
CHECK LOCK SW 
BR IF NOT LOCK ON FUNC 
LOAD LOOP ADDRS 
LOOP ON LAST FUNC 
IF LOOP ADDRS IS NOT ZERO 



********************************************* 
* ERROR MESSAGE SETUP 

********************************************* 
* 



30F06150 
30F06160 
30F06170 
30F06180 
30F06190 
30F06200 
30F06210 
30F06220 
30F06230 
30F06240 
30F06250 
30F06260 
30F06270 
30F06280 
30F06290 
30F06300 
30F06310 
30F06320 
30F06330 
30F06340 
30F06350 
30F06360 
30F06370 
30F06380 
30F06390 
30F06400 
30F06410 
30F06420 
30F06430 



DATE 
EC NO. 



07FE 


6100 


ERRO 


LDX 


1 





CARD NOT BLANK 


30F06440 




07Ff 


6200 




LOX 


2 


/OOOO 




30F06450 




0800 


C86D 




LDD 




MSGO 




30F06460 




0801 


1 6C0O 0890 




STX 


L 


OPMSW 




30F06470 




0803 


1 4400 0886 




BSI 


L 


ETYPE 


PRINT ERR MSG 


30F06480 




0805 


1 4C00 074B 


* 


BSC 


L 


BLANKS 1 




30F06490 
30F06500 




0807 


0000 


ERR1 


DC 




*-* 


STATIC DSW ERROR 


30F06510 




0808 


1 7400 0885 




MDX 


L 


ERR5S.0 


IF PREVIOUS ERRS 


30F06520 




080A 


7006 




MDX 




ERR1A 


DO NOT PRINT THIS MSG 


30F06530 




080B 


6101 




LDX 


1 


1 




30F06540 




080C 


6203 




LDX 


2 


/3 




30F06550 




08 OD 


C862 




LDD 




MSG1 




30F06560 




080E 


1 6C00 0890 




STX 


L 


OPMSW 




30F06570 




0810 


4075 


* 


BSI 




ETYPE 


PRINT ERR MSG 


30F06580 
30F06590 




0811 


1011 


ERR1A 


SLA 




17 




30F06600 




0812 


D072 




STO 




ERR5S 


RESET ERR5 SW 


30F06610 




0813 


1 4C80 0807 


* 


BSC 


1 


ERR1 




30F06620 
30F06630 




0815 


0000 


ERR2 


DC 




*-* 


BUSY DSW ERROR 


30F06640 




0816 


6102 




LDX 


1 


2 




30F06650 




0817 


620C 




LDX 


2 


/C 




30F06660 




0818 


C859 




LDD 




MSG2 




30F06670 




0819 


406C 




BSI 




ETYPE 


PRINT ERROR MESSAGE 


30F06680 




081A 


1 4C80 0815 


* 


BSC 


I 


ERR2 




30F06690 
30F06700 




081C 


0000 


ERR4 


DC 




*-* . 


INTRPT DSW ERROR 


30F06710 




08 ID 


1 F400 08A7 




EOR 


L 


DSWSB 


RESTORE DSW WAS 


30F06720 




081F 


1 D400 08A6 




STO 


L 


DSWO 




30F06730 




0821 


6104 




LDX 


1 


4 




30F06740 




0822 


6230 




LDX 


2 


/30 




30F06750 




0823 


C852 




LDD 




MSG4 




30F06760 




0824 


4061 




BSI 




ETYPE 


PRINT ERR MSG 


30F06770 




0825 


1 4C80 081C 


* 


BSC 


I 


ERR4 




30F06780 
30F06790 




0827 


0000 


ERR5 


DC 




*-* 


INTRPT 4 DSW ERROR 


30F06800 




0828 


685C 




STX 




ERR5S 


SET ERROR 5 SW 


30F06810 




0829 


6600 OOCO 




LDX 


L2 


/CO 


SET OATA ID 


30F06820 




02JAN66 01MAY66 


15N0V66 








PROG ID 


030F-0 


415490 415490B 


419643 








PAGE 


5A 
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DATE 
EC NO. 



082B F07C 
082C D07C 
082D C07A 
082E 1002 
082F 1 4C28 0836 

0831 6105 

0832 C845 

0833 4052 

0834 1 4C80 0827 



0836 
0837 
0839 
083B 
083D 
083F 
0840 
0841 
0842 
0843 
0844 



C070 

4C08 0845 
OCOO 0904 
C480 0904 
4C18 0845 
DO 62 





1 

1 

1 

1 



6106 

6203 

C837 

4042 

70EF 



0845 6107 

0846 C835 

0847 403E 

0848 70EB 

0849 0000 
084A 6108 
084B 6600 OCOO 
084D C830 
084E 4037 
084F 1 4C80 0849 



0851 





0000 




0852 





F058 




0853 





D056 




0854 





690D 




0855 





10A0 




0856 





6600 


9300 


0858 


1 


7400 


0884 


085A 





7005 




085B 





6828 




085C 





6109 




085D 





6600 


1300 


085F 





C820 




0860 





4025 




0861 





6500 


0000 


0863 


1 


OCOO 


078A 


0865 


1 


4C80 


0851 



0867 0000 

0868 6110 

0869 6240 
086A C817 
086B 401A 
086C 1 4C80 0867 



086E 
086E 
086F 
0870 
0871 



0000 
0976 
0000 
097E 
098A 



0872 1 097E 

0873 1 0993 



02JAN66 
415490 



01MAY66 
415490B 



EOR DSW4 
STO DSW4C1 
LD DSW4 
SLA 2 

BSC L ERR6.&Z 



LDX 
LDD 
BSI 

ERR5R BSC 

* 



1 5 
MSG5 
ETYPE 
I ERR5 



ERR6 



* 
ERR7 



* 
ERR8 



LD 

BSC 

XIO 

LD 

BSC 

STO 

LDX 

LDX 

LDD 

BSI 

MDX 

LDX 
LDD 
BSI 
MDX 

DC 

LDX 

LDX 

LDD 

BSI 

BSC 



L 
L 

I 
L 

1 
2 



ERR9 



DSWSB 

ERR7t£ 

READ 

READ 

ERR7,£- 

DSW 

6 

/3 

MSG6 

ETYPE 

ERR5R 



1 7 
MSG7 
ETYPE 

ERR5R 

*-* 
1 8 

L2 /COO 
MSG8 
ETYPE 

I ERR8 



DC 
EOR 
STO 
STX 
SLT 
LDX 
MDX 
MDX 
STX 
LDX 
LDX 
LDD 
ERR9A BSI 
RX1 LDX 
XIO 
BSC 
* 

ERR10 DC 
LDX 
LDX 
LDD 
BSI 
BSC 



* 
* 

MSGO 
MSG1 
MSG2 



*-* 

DATAS1 

DATA 
1 RX161 

32 
L2 /9300 
L M 

ERR9A 

M 
1 9 
L2 /1300 

MSG9 

ETYPE 
LI *-* 
L STACK-1 
I ERR9 

*-* 

1 /10 

2 /40 
MSG10 
ETYPE 

I ERR10 



GET DSW S/B 
SET IN MSG 

LOOK FOR ERR CK 
BR IF ERR CK 



PRINT ERR MSG 



CK FOR PUNCH OPERATION 
BR IF NOT PUNCH 
RD ECHO BITS 

BR IF NOT PUNCH CK 
STO ECHO IN MSG 



PRINT ERR MSG 

ERR CK 

PRINT ERR MSG 

COL COUNT ERROR 
PRINT ERR MSG 



DATA COMPARE ERROR 
RESTORE TO DATA HAS 

SAVE XR1 

SET FOR MULTI LINE MSG 
CHECK FOR MULTI LINE 
BR IF FIRST LINE 
SET MULTI LINE WORD 
MESSAGE NUMBER 
SET WORD CNTL 

ERROR TYPE OUT 
RESTORE XR1 
SELECT ERROR CARD 
RETURN 



ALPHA MESSAGE ADDRESSES 



BSS 
DC 

DC 
DC 
DC 
DC 
DC 





ACNBK 
0000 
AW AS 
ASDSW 
AW AS 
ABDSW 



CARD NOT BLANK 



15N0V66 
419643 



30F06830 

30F06840 

30F06850 

30F06860 

30F06870 

30F06880 

30F06890 

30F06900 

30F06910 

30F06920 

30F06930 

30F06940 

30F06950 

30F06960 

30F06970 

30F06980 

30F06990 

30F07000 

30F07010 

30F07020 

30F07030 

30F07040 

30F07050 

30F07060 

30F07070 

30F07080 

30F07090 

30F07100 

30F07110 

30F07120 

30F07130 

30F07140 

30F07150 

30F07160 

30F07170 

30F07180 

30F07190 

30F07200 

30F07210 

30F07220 

30F07230 

30F07240 

30F07250 

30F07260 

30F07270 

30F07280 

30F07290 

30F07300 

30F07310 

30F07320 

30F07330 

30F07340 

30F07350 

30F07360 

30F07370 

30F07380 

30F07390 

30F07400 

30F07410 

30F07420 

30F07430 

30F07440 

30F07450 

30F07460 

30F07470 

30F07480 

30F07490 

30F07500 



PROG ID 
PAGE 



0874 1 

0875 1 

0876 1 

0877 1 



0878 1 



0879 1 
08 7 A 1 
087B 1 
087C 1 
0870 1 
087E 1 
087F 1 

0880 1 

0881 1 

0882 1 

0883 1 

0884 

0885 



09A3 
09AB 
097E 
0A05 
097E 
099B 
097E 
09B3 
097E 
09B9 
0983 
09BE 
097E 
09C5 
09A3 
09AF 
0000 
0000 



MSG3 



0886 0000 

0887 6915 

0888 6A16 

0889 o D816 

088A 1 7400 0890 
088C 7004 
088D 4480 0162 
088F 1 0896 

0890 0000 

0891 4480 0162 

0893 1 089D 

0894 0000 

0895 68FA 

0896 1 4C80 0886 

0898 8000 

0899 1 09CF 
089A 0000 



089C 0001 
089D 0000 
089E 1C00 
089F 0000 
08A0 0000 
08A1 0000 



08A2 

08A3 
08A4 
08A5 
08A6 
08A7 
08A8 
08A9 



0000 
0000 
0000 
0003 
0000 
0000 
0000 
0000 



DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
MSG10 DC 
DC 
DC 



MSG4 
MSG5 
MSG6 
MSG7 
MSG8 
MSG9 



ANINT 

ALV4 

AW AS 

ADSWO 

AW AS 

ADSW4 

AW AS 

APCK 

AW AS 

AECK 

ADWAS 

ACCNT 

AW AS 

ADATA 

ANINT 

ALVO 

*-* 

*-* 



MULTI LINE CONTROL WORD 
ERR5 SW 



ERR5S DC 
* 

* PRINT ERROR MESSAGE 

I Inlf R0UTINE P R INTS ALL THE ERROR MESSAGES 

* UPON ENTRY THE MSG NO. MUST BE SET IN XR1, 

* THE DATA ID IN XR2, AND THE ALPHA ADDRS IN 

* THE ACCUM AND EXT. 



030F-0 
6 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



ETYPE DC 
STX 

STX 
STD 

* 

MDX L 
MDX 
BSI I 
DC 

OPMSW DC 

* 

ETYP1 BSI I 

DC 
LOOP DC 

STX 

* 

ETYP2 BSC I 

* 

DC 

DC 

OP DC 

* 

* 

* ERROR M 

* 

BSS E 
TABLE DC 

DC 

DC 
AMSG DC 

DC 

DSW DC 
ZERO DC 
BDSW DC 

OC 
DSWO DC 
DSWSB DC 
DSW4 DC 

DC 



15N0V66 
419643 



*-* 

1 TABLE 

2 TABLE62 
AMSG 

OPMSW 
ETYP1 
ERROR 
ETYP2 
*-* 

ERROR 
TABLE 

*-* 

OPMSW 
ETYPE 

/8000 
ALOP 

*-* 



MSG NUMBER 
DATA ID 
ALPHA MESSAGE 

PRINT LAST OP MSG IF 
FIRST ERROR MSG AFTER 
A CONTROL OP 

MUST BE ZERO FOR OP MSG 

PRINT ERROR MESSAGE 



RETURN 



ESSAGE TABLE 



1 

*-* 

/1C00 

*-* 
*-* 
*-* 

*-* 
/oooo 

*-* 
/0003 

*-* 
*-# 
*-* 
*-* 



MESSAGE NUMBER 
HEX/DECIMAL SW 
DATA WORD ID 
ALPHA ADDRS 1 
ALPHA ADDRS 2 

STATIC DSW WAS 
S/B 
BUSY DSW WAS 
S/B 
INT DSW WAS 
S/B 
INT 4 DSW WAS 
S/B 



30F07510 

30F07520 

30F07530 

30F07540 

30F07550 

30F07560 

30F07570 

30F07580 

30F07590 

30F07600 

30F07610 

30F07620 

30F07630 

30F07640 

30F07650 

30F07660 

30F07670 

30F07680 

30F07690 

30F07700 

30F07710 

30F07720 

30F07730 

30F07740 

30F07750 

30F07760 

30F07770 

30F07780 

30F07790 

30F07800 

30F07810 

30F07820 

30F07830 

30F07840 

30FO7850 

30F07860 

30F07870 

30F07880 

30F07890 

30F07900 

30F07910 

30F07920 

30F07930 

30F07940 

30F07950 

30F07960 

30F07970 

30F07980 

30F07990 

30F08000 

30F08010 

30F08020 

30F08030 

30F08040 

30F08050 

30F08060 

30F08070 

30F08080 

30F08090 

30F08100 

30F08110 

30F08120 

30F08130 

30F08140 

30F08150 

30F08160 

30F08170 

30F08180 



PROG ID 
PAGE 



030F-0 
6A 
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DATE 
EC NO. 



08AA 0000 




DATA 


DC 




*-* 


DATA READ WAS 


30F08190 




08AB 0000 






DC 




*-* 


S/B 


30F08200 




08AC 0000 




COLCT 


DC 




*-* 


COLUMN COUNT WAS 


30F08210 




08AD 0050 






DC 




80 


S/B 


30F08220 




08AE 0000 




COL 
a 


DC 




*-* 


COLUMN IN ERROR 


30F08230 
30F08240 








******************************* ^** *********** 


30F08250 








* 






INTERRUPT 


WAIT ROUTINE 


30F08260 








******************************************** 


30F08270 








* 


THIS 


SUBROUTINE WAITS FOR INTERRUPT. 


30F08280 








* 


WHEN 


THE INTERRUPT 


IS RECEIVED IT WILL 


30F08290 








* 


CHECK THE ROUTINE 


SELECTION SWITCH. 


30F08300 








* 


IF A 


NEW ROUTINE HAS BEEN SELECTED IT 


30F08310 








* 


WILL 


BRANCH TO THE 


CONTROL ROUTINE. 


30F08320 








A 






~ 




30F08330 
30F08340 








* 












08AF 0000 




WAIT 


DC 




*-* 




30F08350 




08B0 69F6 






STX 


1 


DSWSB 


SAVE INT DSW S/B 


30F08360 




08B1 6500 


1000 




LDX 


LI 


/1000 


SET INTERRUPT 


30F08370 




08B3 695C 






STX 


1 


WCNT 


WAIT CNT 


30F08380 




0864 0851 






XIO 




SENSE 


SENSE BUSY DSW 


30F08390 




08B5 DOEE 






STO 




BDSW 




30F08400 




08B6 1011 






SLA 




17 




30F08410 




08B7 D0F4 






STO 




COLCT 


RESET COL COUNT 


30F08420 




08B8 D056 






STO 




EBITS 


RESET INT DSW ERR BITS 


30F08430 




08B9 D0D6 




# 


STO 




OPMSW 


RESET OP MSG SW 


30F08440 
30F08450 




08BA 1 6500 


08C3 


WAIT1 


LDX 


LI 


WAIT3 




30F08460 




08BC 1 7400 


05E6 




MDX 


L 


MLSCF61 


CK FOR INTERRUPT 


30F08470 




08BE 701B 




$ 


MDX 




WAIT4 


BR IF INTERRUPT OCCURED 


30F08480 
30F08490 




OdBF 1 6D00 


05E5 


WAIT2 


STX 


LI 


MLSCF 


SET RETURN ADDRESS 


30F08500 




08C1 4480 


0161 


* 


BSI 


I 


START 


GO TO MONITOR 


30F08510 
30F08520 




08C3 1 74FF 


0910 


HAIT3 


MDX 


L 


WCNT,-1 


DECREMENT WAIT CNT 


30F08530 




08C5 70F4 




* 


MDX 




WAIT1 




30F08540 
30F08550 




08C6 CODD 






LD 




BDSW 


CK BUSY DSW 


30F08560 




08C7 FOOD 






EOR 




BDSWtl 




30F08570 




08C8 1 4420 


0815 




BSI 


L 


ERR2,Z 


BR IF ER 


30F08580 




08CA 083B 






XIO 




SENSE 


SENSE DSW 


30F08590 




08CB DODC 






STO 




DSW4 


STORE DSW IN MSG 


30F08600 




08CC COEO 






LD 




CDLCTtl 


CK FOR FEED OP 


30F08610 




08CD 1 4C08 


08D2 




BSC 


L 


WAT3A.6 


BR IF FEED OP 


30F08620 




08CF CODC 






LD 




COLCT 




30F08630 




0800 1 4408 


0867 




BSI 


L 


ERR10,t 




30F08640 




08U2 6103 




WAT3A 


LDX 


1 


3 




30F08650 




08D3 6240 






LDX 


2 


/40 




30F08660 




08D4 C89F 






LDD 




MSG3 




30F08670 




08D5 40B0 






BSI 




ETYPE 


PRINT ERR MSG 


30F08680 




08D6 1 6780 


08AF 




LDX 


13 


WAIT 


SET TO CONTINUE FUNCTION 


30F08690 




0808 1 6F00 


05E6 


* 


STX 


L3 


MLSCFtl 




30F08700 
30F08710 




08DA 1 C400 


05E0 


WAIT4 


LD 


L 


SW1 




30FO872O 




08DC 4488 


0161 




BSI 


I 


START, 6 


CK FOR RTN SELECT 


30F08730 




08DE 1 9400 


05DD 




S 


L 


RID 


CK FOR NEW ROUTINE 


30F08740 . 




08E0 1 4420 


05F8 




BSI 


L 


CNTRL.Z 


BR IF NEW RTN 


30F08750 




08E2 4480 


0161 


* 


BSI 


I 


START 


GO TO MONITOR 


30F08760 
30F08770 
30F08780 
30F08790 








* COME TO 


HERE FROM -INTERRUPT AND CHECK FOR 








* ERRORS 


BEFORE RETURNING TO TEST ROUTINE 


30F08800 








. 










30F08810 
30F08820 








* 












08E4 10A0 




RTRN 


SLT 




32 




30F08830 




08E5 COBE 






LD 




BDSW 


CK BUSY DSW 


30F08840 




08E6 FOBE 






EOR 




BDSW SI 




30F08850 




08E7 1 4420 


0815 




BSI 


L 


ERR2.Z 


BR IF ER 


30F08860 




02JAN66 


01MAY66 


15NOV66 








PROG ID 


030F-0 


415490 ' 


M5490B 


4196 


43 








PAGE 
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08E9 





C025 




08EA 





E023 




08EB 


1 


4420 


081C 


08ED 





COBA 




08EE 





F01D 




08EF 





E01D 




08F0 


1 


4420 


0827 


08F2 





COBA 




08F3 


1 


4C08 


08FC 



08F5 C0B6 
08F6 1 4408 0867 
08F8 C0B3 
08F9 F0B3 
08FA 1 4420 0849 



08FC COAB 
08FD 1004 
08FE 1 4C02 095F 
0900 1 4C80 08AF 



0902 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
090A 
09 OB 
09 OC 
09 00 
090E 
090F 
0910 



0000 
090A 
1100 
0A84 
1200 
0000 
1700 
0008 
1701 
0000 
1702 
0800 
EFFE 
EFFF 
0000 



0000 



0911 





0000 




0912 





08F5 




0913 





F093 




0914 





E8FA 




0915 





D0F9 




0916 





F090 




0917 





1000 




0918 


1 


7401 


08AC 


09 1A 


1 


4C28 


0932 


091C 


1 


C480 


0786 


091E 


1 


74FF 


078A 


0920 





7001 




0921 





E8E6 




0922 





D0E7 




0923 





08DE 




0924 


1 


7401 


0786 


0926 


1 


C480 


0786 


0928 


1 


F400 


0788 


092A 


1 


4CA0 


0911 


092C 


1 


6700 


0A33 


092E 


1 


6F00 


0786 


0930 


1 


4C80 


0911 





LD 




EBITS 


CK INT DSW 




AND 




KEFFF 




$ 


BSI 


L 


ERR4,Z 


BR IF ERR 




LD 




DSW4 


CK INT 4 DSW 




EOR 




K0800 


REMOVE RESPONSE BIT 




AND 




KEFFE 


MASK LAST CD AND NRDY 




BSI 


L 


ERR5,Z 


BR IF ERR 




LD 




C0LCT61 


CK FOR FEED OP ' 


* 


BSC 
LD 


L 


RTRNl, 6 
COLCT 


BR IF FEED OP 




BSI 


L 


ERR10,6 






LD 




COLCT 


CK COLUMN COUNT 




EOR 




C0LCTE1 


COMPARE WITH S/B 


* 


BSI 


L 


ERR8.Z 


BR IF COL COUNT ER 


* 
RTRNl 


LD 
SLA 




DSW4 
4 


CK FOR LAST CARD 




BSC 


L 


LSTCD.C 


BR IF LAST CARD 


* 


BSC 


I 


WAIT 


RETURN TO TEST RTN 


BSS 


E 







PUNCH 


DC 
DC 




PBUF 
/1100 


PUNCH 


READ 


DC 
DC 




RAREA 
/1200 


READ 


SENSE 


DC 
DC 




/OOOO 
/1700 


SENSE DSW 


K0008 


DC 




/0008 




SNRSO 


DC 




/1701 




PBUF 


DC 




*-* 


PRINT DATA BUFFER 


SNRS4 


DC 




/1702 




K0800 


DC 




/0800 




KEFFE 


DC 




/EFFE 




KEFFF 


DC 




/EFFF 




EBITS 


DC 




*-* 


INT DSW ER BITS 


WCNT 
* 

*****: 


DC 




*-* 




***** ******************* **************** 


* 






INTRPT 


SERVICE ROUTINE 


********************************************* 


INTRO 


DC 




*-* 






XIO 




SNRSO-l 


SENSE DSW 




EOR 




DSWSB 


CK FOR CORRECT DSW 




OR 




EBITS 






STO 




EBITS 


SAVE ERROR BITS 




EOR 




DSWSB 


RESTORE DSW 


# 


NOP 







USE FOR TRAP 


MDX 


L 


COLCT, 1 


ADV COLUMN COUNT 




BSC 


L 


CKRDR,£Z 


CK RDR IF BO - 




LD 


I 


PDATA 


LD PUNCH DATA 




MDX 


L 


NC0L,-1 


CK FOR LAST COL 




MDX 




*61 






OR 




K0008 


SET PUNCH TERMINATOR 




STO 




PBUF 


STO PUNCH DATA IN BUF 




XIO 




PUNCH 


PCH A COLUMN 




MDX 


L 


PDATA, 1 


INCREASE PCH ADDR 




LD 


I 


PDATA 


LD NEXT PUNCH DATA 




EOR 


L 


TERM 


CK FOR END OF TABLE 




BSC 


I 


INTRO, Z 


RETURN IF NOT END 




LDX 


L3 


WAREA 


RETURN TO START OF 




STX 


L3 


PDATA 


PUNCH DATA TABLE 




BSC 


I 


INTRO 





30F08870 

30F08880 

30F08890 

30F08900 

30F08910 

30F08920 

30F08930 

30F08940 

30F08950 

30F08960 

30F08970 

30F08980 

30F08990 

30F09000 

30F09010 

30F09020 

30F09030 

30F09040 

3QF09050 

30F09060 

30F09070 

30F09080 

30F09090 

30F09100 

30F09110 

30F09120 

30F09130 

30F09140 

30F09150 

30F09160 

30F09170 

30F09180 

30F09190 

30F09200 

30F09210 

30F09220 

30F09230 

30F09240 

30F09250 

30F09260 

30F09270 

30F09280 

30F09290 

30F09300 

30F09310 

30F09320 

30F09330 

30F09340 

30F09350 

30F09360 

30F09370 

30F09380 

30F09390 

30F09400 

30F09410 

30F09420 

30F09430 

30F09440 

30F09450 

30F09460 

30F09470 

30F09480 

30F09490 

30F09500 

30FO951O 

30F09520 

30F09530 

30F09540 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 
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DATE 
EC NO. 



0932 08D1 

0933 1 7401 0904 
0935 1 4C80 0911 



0937 0000 

0938 08D1 

0939 1000 

093A 1 D400 08A8 

093C 1 6700 08E4 

093E 1 6F00 05E6 

0940 1 4C80 0937 



READ COMMAND 
INCREASE RD ADDR 



CKRDR XIO READ 

MDX L REAOtl 

BSC I INTRO 
* 

f********************************^,.^,,,,^,,^^ 
* INTRPT 4 SERVICE ROUTINE 



*-* 

SNRS4-1 




SENSE DSH 
USE FOR TRAP 

SAVE DSH BITS 

SET FOR RETURN 



INTR4 DC 
XIO 
NOP 

* 

STO L DSW4 
LDX L3 RTRN 
STX L3 MLSCFE1 

BSC I 1NTR4 

* 

*******************************,.„„„, ^.m^^ 

* CHECK READY 

■fc*********************************,,^,,,,,,,,^.,,^ 



SENSE DSW 

STORE DSH 

NO BITS FOUND 

REMOVE NROY 

BR IF OTHER THAN NRDY 



0942 0000 


READY 


DC 




*-* 


0943 08C2 




XIO 




SENSE 


0944 1 D400 08A2 




STO 


L 


DSH 


0946 1 4C98 0942 




BSC 


I 


READY t 


0948 1801 




SRA 




1 


0949 1 4420 0807 


* 
BOX 


BSI 


L 


ERR1.2 


094B 1011 


SLA 




17 


094C D011 




STO 




BCNT 



094D 1 6500 0953 
094F 1 6000 05E6 
09 51 1 4C00 08DA 

0953 08B2 

0954 1 4C98 0942 
0956 1 7403 095E 

0958 70F4 

0959 6105 
095A 1 6700 090F 
095C 400A 
095D 70ED 

095E 0000 



09SF 1 OCOO 0784 

0961 6106 

0962 1 6700 09FF 

0964 4002 

0965 1 4400 05F8 



0967 0000 

0968 6907 

0969 6B09 

096A 4480 0163 
096C 1 0970 



B0X1 LDX LI B0X2 

STX LI MLSCFtl 

BSC L HAIT4 

* 

B0X2 XIO SENSE 



RESET BOX CNT 

LD REENTRY ADDRS 

SET MLSCF 

GO TO MONITOR 

SENSE DSH 



BSC I READY, t- RETURN IF READY 
MDX L BCNT, 3 



MDX 



B0X1 



MESSAGE NUMBER 
NOT READY 
PRINT MESSAGE 



02JAN66 
415490 



01MAY66 
415490B 



NRDY LDX 1 5 

LDX L3 ANRDY 

BSI TYPE 

MDX BOX 

* 

BCNT DC *-* 

* 

*********************************„, ^,,.3^,^^,^ 

* FEED LAST CARD 

**************************************„,„„,„,„,„„ 

* 

LSTCD XIO L FDACD-1 FEED COMMAND 

L0X 1 6 MESSAGE NUMBER 

LDX L3 ALCD LAST CARD 

BSI TYPE PRINT MESSAGE 

BSI L CNTRL GO TO NEXT ROUTINE 

•fr****************************,**,,,,*,^^^,^ 

* PRINT STATUS MESSAGE 

■fr**********************************,,^ ,><„„„„ 

TYPE DC *-* • 

STX 1 SMSG NEW MSG NUMBER 
STX 3 ALPHA UPDATE MESSAGE 

BSI I LOG CALL ON LOG 
oc SMSG ADDR OF MSG 



15N0V66 
419643 



30F09550 

30F09560 

30F09570 

30F09580 

30F09590 

30F09600 

30F09610 

30F09620 

30F09630 

30F09640 

30F09650 

30F09660 

30F09670 

30F09680 

30F09690 

30F09700 

30F09710 

30F09720 

30F09730 

30F09740 

30F09750 

30F09760 

30F09770 

30F09780 

30F09790 

30F09800 

30F09810 

30F09820 

30F09830 

30F09840 

30F09850 

30F09860 

30F09870 

30F09880 

30F09890 

30F09900 

30F09910 

30F09920 

30F09930 

30F09940 

30F09950 

30F09960 

30F09970 

30F09980 

30F09990 

30F10000 

30F10010 

30F10020 

30F10030 

30F10040 

30F10050 

30F10060 

30F10070 

30F10080 

30F10090 

30F10100 

30F10110 

30F10120 

30F10130 

30F10140 

30F10150 

30F10160 

30F10170 

30F10180 

30F10190 

30F10200 

30F10210 

30F10220 



PROG ID 
PAGE 
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8 





096D D006 


STO 


ALPHAfil 




096E 1 4C80 0967 


BSC 

* 

SMSG DC 


I TYPE 




0970 0000 


*-* 




0971 0000 


DC 


/oooo 




0972 0001 


DC 


/0001 




0973 0000 


ALPHA DC 


*-* 




0974 0000 


DC 


*-* 




0975 1442 


DC 
* 


/1442 






**************** *** ** 






* 


ALPHA M 






********************* 

* 




0976 1E3E 


ACNBK DC 


/1E3E 




0977 6232 


DC 


/6232 




0978 2176 


DC 


/2176 




0979 529E 


DC 


/529E 




097A 211A 


DC 


/211A 




097B 5E3E 


DC 


/5E3E 




097C 765A 


DC 


/76 5A 




097D FFFF 


DC 

* 


/FFFF 




097E 923E 


AHAS DC 


/923E 




097F 9A21 


DC 


/9A21 




0980 219A 


DC 


/219A 




0981 BC1A 


DC 


/BC1A 




0982 FFFF 


DC 

* 


/FFFF 




0983 923E 


ADMAS DC 


/923E 




0984 9A21 


DC 


/9A21 




0985 2121 


DC 


/2121 




0986 9ABC 


OC 


/9ABC 




0987 1A21 


DC 


/1A21 




0988 2121 


DC 


/2121 




0989 FFFF 


DC 

* 

ASDSW DC 


/FFFF 




098A 2184 


/2184 




098B 9A9E 


DC 


/9A9E 




098C 3E9E 


DC 


/3E9E 




0980 221E 


DC 


/221E 




098E 2132 


DC 


/2132 




098F 9A92 


DC 


/9A92 




0990 2136 


DC 


/2136 




0991 6262 


DC 


/6262 




0992 FFFF 


DC 

* 


/FFFF 




0993 2184 


ABDSH DC 


/2184 




0994 1AB2 


DC 


/1AB2 




0995 9AA6 


DC 


/9AA6 




0996 2132 


OC 


/2132 




0997 9A92 


DC 


/9A92 




• 0998 2136 


DC 


/2136 




0999 6262 


DC 


/6262 




099A FFFF 


DC 

4 


/FFFF 




099B 2184 


A0SW4 DC 


/2184 




099C 5E36 


DC 


/5E36 




099D B6F0 


DC 


/B6F0 




099E 2132 


DC 


/2132 




099F 9A92 


DC 


/9A92 




09A0 2136 


DC 


/2136 




09A1 6262 


DC 


/6262 




09A2 FFFF 


DC 


/FFFF 




09A3 329A 


ANINT DC 


/329A 




09 A4 9221 


DC 


/9221 


DATE 


02JAN66 01MAY66 


15N0V66 




EC NO. 


415490 415490B 


419643 





RETURN 

MESSAGE NUMBER 
HEX/DECIMAL SW 
DATA WORD ID 
ALPHA ADDRS 1 
ALPHA ADDRS 2 



CARD NOT BLANK 



WAS S/B 



WAS S/B 



-STATIC DSH ERR 



-BUSY DSW ERR 



-LEV4 DSH ERR 



DSW 



30F10230 

30F10240 

30F10250 

30F10260 

30F10270 

30F10280 

30F10290 

30F10300 

30F10310 

30F10320 

30F10330 

30F10340 

30F10350 

30F10360 

30F10370 

30F10380 

30F10390 

30F10400 

30F10410 

30F10420 

30F10430 

30F10440 

30F10450 

30F10460 

30F10470 

30F10480 

30F10490 

30F10500 

30F10510 

30F10520 

30F10530 

30F10540 

30F10550 

30F10560 

30F10570 

30F10580 

30F10590 

30F 10600 

30F10610 

30F10620 

30F10630 

30F10640 

30F10650 

30F10660 

30F10670 

30F10680 

30F10690 

30F10700 

30F10710 

30F10720 

30F10730 

30F10740 

30F10750 

30F10760 

30F10770 

30F10780 

30F10790 

30F10800 

30F10810 

30F10820 

30F10830 

30F10840 

30F10850 

30F10860 

30F10870 

30F10880 

30F10890 

30F10900 
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PAGE 



030F-0 
8A 
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09A5 2176 




DC 




09A6 5221 




DC 




09A7 2276 




DC 




09A8 9E62 




DC 




09A9 569E 




DC 




09AA FFFF 




OC 




09AB 2184 


ALV4 


DC 




09AC 5E36 




DC 




09AD B6F0 




DC 




09AE FFFF 


* 
ALVO 


DC 




09AF 2184 


DC 




09B0 5E36 




DC 




09B1 B6C4 




DC 




09B2 FFFF 


* 
APCK 


DC 




09B3 2184 


DC 




09B4 56B2 




DC 




09B5 761E 




DC 




09B6 2621 




DC 




09.67 1E5A 




DC 




09B8 FFFF 


* 
AECK 


DC 




09B9 2184 


DC 




09BA 3662 




DC 




09BB 6221 




DC 




09BC 1E5A 




DC 




09BD FFFF 


* 
ACCNT 


DC 




09BE 2184 


DC 




09BF 1E52 




DC 




09C0 5E21 




DC 




09C1 1E76 




DC 




09C2 9E21 




DC 




09C3 3662 




DC 




09C4 FFFF 




DC 




09C5 2121 


ADATA 


DC 




09C6 1E52 




DC 




09C7 5E21 




DC 




09C8 2121 




DC 




09C9 2184 




DC 




09CA 323E 




OC 




09CB 9E3E 




OC 




09CC 2136 




DC 




09CD 6262 




DC 




09CE FFFF 


* 
ALOP 


DC 




09CF 095E 


DC 




09D0 3E9A 




DC 




09D1 9E21 




DC 




09D2 5256 




DC 




0903 8421 




DC 




0904 FFFF 


* 
ARO 


DC 




0905 6236 


DC 




0906 3E32 




DC 




09D7 FFFF 


* 
APCH 


DC 




0908 56B2 


DC 




0909 761E 




DC 




09DA 2600 




DC 




090B FFFF 




DC 




090C 1236 


AFD 


DC 




09D0 3632 




DC 




09DE FFFF 




DC 


DATE 


02JAN66 01MAY66 


15N0V66 


EC NO. 


415490 415490B 


419643 



/2176 
/5221 
/2276 
/9E62 
/569E 
/FFFF 

/2184 
/5E36 
/B6F0 
/FFFF 

/2184 
/5E36 
/B6C4 
/FFFF 

/2184 
/56B2 
/761E 
/2621 
/1E5A 
/FFFF 

/2184 
/3662 
/6221 
/1E5A 
/FFFF 

/2184 
/1E52 
/5E21 
/1E76 
/9E21 
/3662 
/FFFF 

/2121 
/IE52 
/5E21 
/2121 
/2184 
/323E 
/9E3E 
/2136 
/6262 
/FFFF 

/095E 
/3E9A 
/9E21 
Z5256 
/8421 
/FFFF 

/6236 
/3E32 
/FFFF 

/56B2 
/761E 
/2600 
/FFFF 

/1236 
/3632 
/FFFF 



NO INTRPT 



-LEV4 



-LEVO 



PCH CK 



ERR CK 



COL CNT ER 



COL DATA ERR 



LAST OP- 



READ 



PUNCH 



FEED 



30F10910 

30F10920 

30F10930 

30F10940 

30F10950 

30F10960 

30F10970 

30F10980 

30F10990 

30F 11000 

30F11010 

30F11020 

30F11030 

30F11040 

30F11050 

30F11060 

30F11070 

30F11080 

30F11090 

30F11100 

30F11110 

30F11120 

30F11130 

30F11140 

30F11150 

30F11160 

30F1117O 

30F11180 

30F11190 

30F11200 

30F11210 

30F11220 

30F11230 

30F11240 

30F11250 

30F11260 

30F11270 

30F11280 

30F11290 

30F11300 

30F11310 

30F11320 

30F11330 

30F11340 

30F11350 

30F11360 

30F11370 

30F11380 

30F11390 

30F11400 

30F11410 

30F11420 

30F11430 

30F11440 

30F11450 

30F11460 

30F11470 

30F11480 

30F11490 

30F11500 

30F11510 

30F11520 

30F11530 

30F11540 

30FH550 

30F11560 

30F11570 

30F11580 



PROG ID 
PAGE 



09DF 
09E0 
09E1 
09E2 
09E3 
09E4 
09E5 
09E6 
09E7 
09E8 
09E9 
09EA 

09EB 
09EC 
09ED 
09EE 
09EF 
09F0 

09F1 
09F2 
09F3 
09F4 
09F5 
09F6 
09F7 
09F8 
09F9 
09FA 
09FB 
09 FC 
09FD 
09FE 

09FF 
OAOO 
0A01 
OA02 
0A03 
0A04 

0A05 
0A06 
0A07 
0A08 
0A09 
OAOA 
OAOB 
OAOC 

OAOD 
OAOE 
OAOF 
0A10 
0A11 
0A12 
0A13 
0A14 

0A15 
0A16 
0A17 
0A18 
0A19 
0A1A 
0A1B 



7662 
32A6 
2184 
5662 
369A 
9A21 
FCFO 
F0D8 
219A 
9E3E 
629E 
FFFF 

5E32 
2100 
1A5E 
3E76 
5A9A 
FFFF 

5E32 
213E 
76A6 
2156 
3E9E 
9E36 
6276 
2156 
5EB2 
9A21 
1A5E 
3E76 
5A9A 
FFFF 

5E3E 
9A9E 
211E 
3E62 
3200 
FFFF 

2184 
5E36 
B6C4 
2132 
9A92 
2136 
6262 
FFFF 

5E32 
2112 
6252 
7221 
9A9E 
5A21 
0821 
FFFF 

9A36 
9E21 
563E 
9E9E 
2122 
7621 
9A92 



ANRDY DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

ALDBK DC 
DC 
DC 
OC 
DC 
DC 



ANYP 



* 
ALCD 



030F-0 
9 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



ADSWO DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ASTOH DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ASETP DC 
DC 
DC 
DC 
DC 
DC 
DC 



15N0V66 
419643 



/7662 
/32A6 
/2184 
/5662 
/369A 
/9A21 
/FCFO 
/F0D8 
/219A 
/9E3E 
/629E 
/FFFF 

/5E32 
/2100 
/1A5E 
/3E76 
/5A9A 
/FFFF 

/5E32 
/213E 
/76A6 
/2156 
/3E9E 
/9E36 
/6276 
/2156 
/5EB2 
/9A21 
/1A5E 
/3E76 
/5A9A 
/FFFF 

/5E3E 
/9A9E 
/211E 
/3E62 
/3200 
/FFFF 

/2184 
/5E36 
/B6C4 
/2132 
/9A92 
/2136 
/6262 
/FFFF 

/5E32 
/2112 
/6252 
/7221 
/9A9E 
/5A21 
/D821 
/FFFF 

/9A36 
/9E21 
/563E 
/9E9E 
/2122 
/7621 
/9A92 



NRDY 



PRESS 1442 START 



LOAD BLANKS 



LD ANY PATTERN PLUS BLANKS 



LAST CARD 



-LEVO DSH ERR 



LOAD FROM STK 2 



SET 

T 

PA 

TT 

I 

N 
SW 



PATT IN SW 0-11 



30F11590 
30F11600 
30F11610 
30F11620 
30F11630 
30F11640 
30F11650 
30F11660 
30F11670 
30F11680 
30F11690 
30F11700 
30F11710 
30F11720 
30F11730 
30F11740 
30F11750 
30F11760 
30F11770 
30F11780 
30F11790 
30F11800 
30F11810 
30F1162O 
30F11830 
30F11840 
30F11850 
30F11860 
30F11870 
30F11880 
30F11890 
30F11900 
30F11910 
30F11920 
30F11930 
30F11940 
30F11950 
30F11960 
30F11970 
30F11980 
30FH990 
30F12O00 
30F12010 
30F12020 
30F12030 
30F12040 
30F12050 
30F12060 
30F12070 
30F12080 
30F12090 
30F12100 
30F12110 
30F12120 
30F12130 
30F12140 
30F12150 
30F12160 
30F12170 
30F12180 
30F12190 
30F12200 
30F12210 
30F12220 
30F12230 
30F12240 
30F12250 
30F12260 



PROG ID 
PAGE 




030F-0 
9A 
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D ART NO. 
PAGE 



2191224 
10A 



0A1C 





21C4 


0A1D 





84FC 


0A1E 





FC21 


0A1F 





9E26 


0A20 





3676 


0A21 





219E 


OA22 





7621 


0A23 





9A92 


0A24 





21FC 


0A25 





D821 


0A26 





FFFF 


0A27 





5262 


0A28 





2116 


0A29 





3E76 


0A2A 





1621 


0A2B 





56B2 


0A2C 





761E 


0A2D 





2636 


0A2E 





3221 


0A2F 





1E3E 


0A30 





6232 


0A31 





9A00 


0A32 





FFFF 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ALACD DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

********* 

* 

********* 

* 



12 




-1 
1 

THEN TN SW 
EN 

T 
N 
SW 

1 
2 



OR GANG PUNCHED CARDS 



/21C4 
/84FC 
/FC21 
/9E26 
/3676 
/219E 
/7621 
/9A92 
/21FC 
/D821 
/FFFF 

/5262 
/2116 
/3E76 
/1621 
/56B2 
/761E 
/2636 
/3221 
/1E3E 
/6232 
/9A00 
/FFFF 



************************************ 

PUNCH DATA TABLE 
************************************ 





0A33 





8010 i 


MAREA DC 




0A34 





4020 


DC 




0A35 





2040 


DC 




0A36 





1080 


DC 




0A37 





0900 


DC 




0A38 





0600 


DC 




0A39 





0600 


DC 




0A3A 





0900 


DC 




0A3B 





1080 


DC 




0A3C 





2040 


DC 




0A3D 





4020 


DC 




0A3E 





8010 


DC 




0A3F 





FFF7 


DC 




0A40 





8880 


DC 




0A41 





CCCO 


DC 




0A42 





EEEO 


DC 




0A43 





FFFO 


DC 




0A44 





7777 


DC 




0A45 





3333 


DC 




0A46 





1111 


DC 




0A47 





FFF7 


DC 




0A48 





AOOO 


DC 




0A49 





9000 


DC 




0A4A 





8800 


DC 




0A4B 





8400 


DC 




0A4C 





8200 


DC 




0A4D 





8100 


DC 




0A4E 





8080 


DC 




0A4F 





8040 


DC 




0A50 





8020 


DC 




0A51 





8010 


DC 




OA52 





5000 


DC 




0A53 





4800 


DC 




0A54 





4400 


DC 




OA55 





4200 


DC 




0A56 





4100 


DC 




0A57 





4080 


DC 




0A58 





4040 


DC 




0A59 





4020 


DC 


DATE 


02JAN66 01MAY66 


15N0V66 


EC NO. 


415490 415490B 


419643 



/8010 

/4020 

/2040 

/1080 

/0900 

/0600 

/0600 

/0900 

/1080 

/2040 

/4020 

/8010 

/FFF7 

/8880 

/CCCO 

/EEEO 

/FFFO 

/7777 

/3333 

/llll 

/FFF7 

/AOOO 

/9000 

/8800 

/8400 

/8200 

/8100 

/8080 

/8040 

/8020 

/8010 

/5000 

/4800 

/4400 

/4200 

/4100 

/4080 

/4040 

/4020 



COLUMN 1 



COL 21 
ALPHA RIPPLE 

COL 26 



30F12270 

30F12280 

30F12290 

30F12300 

30F12310 

30F12320 

30F12330 

30F12340 

30F12350 

30F12360 

30F12370 

30F12380 

30F12390 

30F12400 

30F12410 

30F12420 

30F12430 

30F12440 

30F12450 

30F12460 

30F12470 

30F12480 

30F12490 

30F12500 

30F12510 

30F12520 

30F12530 

30F12540 

30F12550 

30F12560 

30F12570 

30F12580 

30F12590 

30F12600 

30F12610 

30F12620 

30F12630 

30F12640 

30F12650 

30F12660 

30F12670 

30F12680 

30F12690 

30F12700 

30F12710 

30F12720 

30F12730 

30F12740 

30F12750 

30F12760 

30F12770 

30F12780 

30F12790 

30F12800 

30F12810 

30F12820 

30F12830 

30F12840 

30F12850 

30F12860 

30F12870 

30F12880 

30F12890 

30F12900 

30F12910 

3OF12920 

30F12930 

30F12940 



PROG ID 
PAGE 



0A5A 4010 




DC 


/4010 I 


0A5B 3000 




DC 


/3000 


0A5C 2800 




DC 


/2800 


0A5D 2400 




DC 


/2400 


0A5E 2200 




DC 


/2200 


0A5F 2100 




DC 


/2100 


0A60 2080 




DC 


/2080 


0A61 2040 




DC 


/2040 


0A62 2020 




DC 


/2020 


0A63 2010 




DC 


/2010 


0A64 0000 




DC 


/OOOO 


0A65 FCOO 




DC 


/FCOO 


0A66 03F0 




DC 


/03F0 


0A67 FCOO 




DC 


/FCOO 


0A68 03F0 




DC 


/03F0 


0A69 0000 




DC 


/OOOO 


0A6A 8887 




DC 


/8887 


0A6B 4444 




DC 


/4444 


0A6C 2222 




DC 


/2222 


0A6D 1111 




DC 


/llll 


0A6E 0007 




DC 


/0007 


0A6F 8880 




DC 


/8880 


0A70 CCC4 




DC 


/CCC4 


0A71 AAA2 




DC 


/AAA2 


0A72 9991 




DC 


/9991 


0A73 4444 




DC 


/4444 


0A74 6666 




DC 


/6666 


0A75 5555 




DC 


/5555 


0A76 2222 




DC 


/2222 


0A77 3333 




DC 


/3333 


0A78 1111 




DC 


/llll 


0A79 0005 




DC ' 


/0005 


0A7A 0006 




DC 


/0006 


0A7B FFF7 




DC 


/FFF7 


0A7C FFF7 




DC 


/FFF7 


0A7D FFF7 




DC 


/FFF7 


0A7E FFFO 




DC 


/FFFO 


0A7F FFFO 




DC 


/FFFO 


0A80 FFFO 




DC 


/FFFO 


0A81 FFFO 




DC 


/FFFO 


0A82 0000 




DC 


/OOOO 


0A83 FFFF 


* 
*** 


DC 


/FFFF 




;*********************: 




* 




READ AREA 




************************: 


0A84 0050 


* 

RAREA BSS 


80 


0AD4 0051 


RAREB BSS 


81 


0B26 05E8 




END 


BG1N 


NO STATEMENTS 


FLAGGED 


IN THE 


ABOVE ASSEMBLY 



COL 40 WAREA&39 



CHECK PCH TERM 



COLUMN 80 
TERMINATOR 



30F12950 

30F12960 

30F12970 

30F12980 

30F12990 

30F13000 

30F13010 

30F13020 

30F13030 

30F13040 

30F13050 

30F13060 

30F13070 

30F13080 

30F13090 

30F131O0 

30F13110 

30F13120 

30F13130 

30F13140 

30F13150 

30F13160 

30F13170 

30F13180 

30F13190 

30F13200 

30F13210 

30F13220 

30F13230 

30F13240 

30F13250 

30F13260 

30F13270 

30F13280 

30F13290 

30F13300 

30F13310 

30F13320 

30F13330 

30F13340 

30F13350 

30F13360 

30F13370 

30F13380 

30F13390 

30F13400 

30F13410 

30F13420 

30F13430 

30F13440 

30F13450 



030F-0 
10 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 
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419643 
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CROSS REFERENCE 

NAME VALUE REFERENCES 

ABDSW 0993 0873 

ACCNT 09BE 087F 

ACNBK 0976 086E 

ADATA 09C5 0881 

ADSWO 0A05 0877 

ADSW4 099B 0879 

ADWAS 0983 087E 

AECK 09B9 087D 

AFD 09DC 0760 

ALACD OA27 06AC 

ALCD 09FF 0962 

ALDBK 09EB 0626, 0659 , 06B0, 06EB 

ALOP 09CF 0899 

ALPHA 0973 06AE ,0969t096D 

ALVO 09AF 0883 

ALV4 09AB 0875 

AMSG 08A0 0889 

ANINT 09A3 0874t0882 

ANRDY 09DF 095A 

ANYP 09F1 071F,0732 

APCH 09D8 0798 

APCK 09B3 087B 

ARD 0905 0776 

ASDSW 098A 0871 

ASETP 0A15 06F2 

ASTOH OAOD 0630, 066E, 0699 

AWAS 097E 0870, 0872,0876, 0878, 087A,087C ,0880 

BCNT 095E 094C0956 

BDSW 08A4 08B5,08C6,08C7,08E5,08E6 

BEGIN 0160 05E8 

BG1N 05E8 0B26 

BLANK 074A 062A, 065D, 0727,0759,0805 

BLK1 0753 0758 

BOX 094B 095D 

B0X1 094D 0958 

B0X2 0953 094D 

CKRDR 0932 091A 

CLEAR 0688 068B 

CNTRL 05F8 05F7,073B ,08E0,0965 

CN10 05FC 

CN20 0603 05FA 

CN30 0609 05FE 

COL 08AE 07AE,07C6,07D5,07DC 

COLCT 08AC 075 1,0765, 0770, 078E, 0793, 07C8,07DE,08B7,08CC,08CF,08F2,08F5,08F8 

08F9,0918 

COMPR 07A3 064F, 0679, 06A6, 0609, 07E5 

C0M1 07AE 07CE,07EF 

COM2 07C6 07C1 

COM3 07CF Q7E0 

COM4 07E2 07CA 

C0M5 07E7 07D1 

DADRS 0784 0623, 063A, 0656, 066B, 068E ,0696, 0600, 06E8, 07 1C073E ,0740,0747 ,0796 

07A8 

DATA 08AA 07B4,07D3, 0852,0853 

DFACT &6E3 06B9 ,06C3,06DD 

DLYCT 06E4 06C4,06CB 

DSW 08A2 083F,0944 

DSWSB 08A7 081D, 0836, 08B0, 0913 ,0916 

DSWO 08A6 081F 

DS*4 08A8 082B,082C,082D,08CB,08ED,08FC,093A 

EBITS 090F 08B8,08E9, 0914, 0915 

END 0164 0607 

ERLCK 0166 07F3 

ERROR 0162 0880,0891 

ERRO 07FE 0755 

ERR1 0807 0813,0949 



ERR1A 


0811 


080A 


ERR10 


0867 


086C,08D0,08F6 


ERR2 


0815 


081A,08C8,08E7 


ERR4 


081C 


0825, 08EB 


ERR5 


0827 


0834, 08F0 


ERR5R 


0834 


0844,0848 


ERR5S 


0885 


0808,0812,0828 


ERR6 


0836 


082F 


ERR7 


0845 


0837,0830 


ERR8 


0849 


084F,08FA 


ERR9 


0851 


07B8, 0709,0865 


ERR9A 


0860 


085A 


ETYPE 


0886 


0803, 0810, 08 19, 0824, 0833, 0843, 0847, 084E, 0860, 086B, 0896,0805 


ETYP1 


0891 


088C 


ETYP2 


0896 


088F 


FDACD 


0785 


0767, 095F 


FEED 


0758 


0635, 076A 


FLIP 


067F 


0685 


FLIPS 


078C 


06A4,0773,07CF 


ILO 


017A 


05EF 


IL1 


018A 




IL2 


019A 




113 


OlAA 




IL4 


01BA 


05F5 


INCR 


07BA 


07A7,07EC 


INTRO 


0911 


05ED,092A, 0930, 0935 


INTR4 


0937 


05F3,0940 


KEFFE 


090D 


08EF 


KEFFF 


090E 


08EA 


K0008 


0908 


0921 


K0800 


090C 


08EE 


LOCK 


07F0 


0631, 0664, 06DB,072E,07F6,07FC 


LOG 


0163 


096A 


LOGBY 


0167 




LOOP 


0894 


0612,062C,065F,06BD,0729,074E,075E,07F8,07FA 


LRTN 


0620 


0616 


LSTCD 


095F 


08FE 


M 


0884 


05F1,07AB,07E3,0858,08 5B 


MLSCF 


05E5 


060E,06C7,06FE,08BC,08BF,08D8,093E,094F 


MSGO 


086E 


0800 


MSG1 


0870 


080D 


MSG10 


0882 


086A 


MSG2 


0872 


0818 


MSG3 


0874 


08D4 


MSG4 


0876 


0823 


MSG5 


0878 


0832 


MSG6 


087A 


0842 


MSG7 


087C 


0846 


MSG8 


087E 


084D 


MSG9 


0880 


085F 


NCOL 


078A 


0795, 07A4,07CC,07EE, 091 E 


NRDY 


0959 




NRTN 


061D 


0617 


OP 


089A 


0762, 0778, 079A 


OPMSW 


0890 


0801, 080E.088A, 0895,0889 


PBUF 


090A 


0902,0922 


PCHST 


0789 


079E 


PDATA 


0786 


0797, 07 A9, 0780, 07BA,07BE,07C5,O7E9, 09 1C, 0924, 0926, 092E 


PTD 


05DC 


05EA 


PMCHR 


078D 


062F, 0662, 069 1,07 10, G72Cr07Al 


PNCH1 


0790 




PUNCH 


0902 


0923 


RAD 


05DE 


060D 


RAREA 


0A84 


0644, 0648, 0672, 067F, 068 1,0688, 068C ,069D,06D2 , 06F6, 0707, 07 1< 
0723,07B6,07D7,07E7,0904 


RAREB 


0AD4 


06B4,06CE,074B,0753 


RDRST 


0787 


077C 


READ 


0904 


0760,08 39, 0836,0932, 09 33 
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READR 

READY 

RID 

RIDCK 

RLCF 

RQTAT 

RQKB 

RQTY 

RTNOM 

RTNSW 

RTRN 

RTRN1 

RTTBL 

RT1 

RT11 

RT2 

RT21 

RT22 

RT23 

RT3 

RT31 

RT4 

RT4X 

RT42 

RT5 

RT51 

RT6 

RT61 

RT62 

RT63 

RT64 

RT65 

RT7 

RT7SW 

RT71 

RT72 

RT73 

RT74 

RT8 

RT81 

RT9 

RX1 

SENSE 

SMSG 

SNRSO 

SNRS4 

SNSWS 

STACK 

START 

STRT 

SVKB 

SMO 

SW1 

SW2 

SW3 

TABLE 

TERM 

TYPE 

T6CNT 

WAIT 

WA1T1 

WA1T2 

WAIT3 

WAIT4 

HAREA 

WAT3A 

WCNT 

ZERO 



076C 

0942 

05DD 

0616 

0168 

073D 

01BC 

01BB 

0617 

0165 

08E4 

08FC 

0618 

0621 

062A 

0638 

0641 

0644 

0648 

0654 

0650 

0669 

0672 

067D 

0694 

069D 

06AB 

06B8 

06BF 

06C5 

06CB 

06CE 

06E6 

0719 

06F6 

0702 

0707 

070B 

071A 

0727 

0731 

0861 

0906 

0970 

0909 

090B 

0782 

078B 

0161 

05EB 

01BD 

050F 

05E0 

05E1 

05E2 

0890 

0788 

0967 

06E5 

08AF 

08BA 

08BF 

08C3 

08DA 

0A33 

0802 

0910 

08A3 



064A, 0674, 069F,06B6t 0604, 0725, 0738, 0750, 077F 
06EF.075C, 0774, 0790, 0946, 0954 

05EC05FC, 0602, 0603, 0605, 0609, 080E 
05FD 

0633, 065 1,0666,0676, 06 A8, 0743, 0748 



0606 

060F 

093C 

08F3 

060B, 0616, 0617 

0618 

0637 

0619 

0653 

0647 

064C 

061A 

0668 

0616 

0676,0693 

061C 

06A1,06AA 

061D 

06E2 

06E1 

06CD 

06C5 

06D6 

061E 

06F8, 0702, 0705, 0713, 0782 

06FC0716 

06FA 

070A 

0718 

061F 

0730 

0620 

0854 

08B4.08CA, 0943, 0953 

0968, 096C 

0912 

0938 

06F6,0712 

0792,0863 

0614,08C1,08DC,08E2 
05E3.05E4 

07F1 

05F9, 0601, 0739, 08DA 
06BF,070B 

0887,0888,0893 
0642, 0742, 07C0, 0928 

^B 2 c:S6DF ,065B,0670,0698 '° 6B2 ' 06E0 ' 06F4 ' 0721 '° 7 3^095C,0964, 

0768, 0770, 079F, 0806, 0900 
08C5 

08BA 

06C9, 0700, 08BE, 0951 

0621, 0638, 0654, 0669, 0694,0736, 0745, 07C3.092C 

08B3.08C3 
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1. PURPOSE 

THE 1442 TIMING TEST IS DESIGNED TO CHECK THE FOLLOWING CONDITIONS. 

A. READ AND PUNCH COLUMN TIMING TOLERANCES. 

B. PUNCH COLUMN DELAY TOLERANCE. 

C. PROPER DSW RESPONSES. 

D. READ REGISTRATION OR COMPARE ERRORS. 

E. PUNCH ECHO CHECK ERRORS. 

F. CORRECT COLUMN INTERRUPT COUNTS. 

THE PROGRAM WILL NOT CHECK THE FOLLOWING ITEMS WHICH MUST BE CHECKED 
BY SCOPING WHILE PROGRAM IS RUNNING. 

A. READ CELL DURATION 

B. EMITTER TIMING 

C. READ OR PUNCH SINGLE SHOT TIMING (LOGIC PAGE ADOOO ) 

2. PREREQUISTIES 

2.1*** PROGRAM PREREQUISITES 

1130 DIAGNOSTIC MONITOR II 

THIS TEST MAY NOT BE RUN IN OVERLAP WITH ANY OTHER PROGRAM. 

2.2*** EQUIPMENT PREREQUISITES 

1. 1131 CPU WITH PROGRAM LOAD FROM CARD OR PAPER TAPE READER. 

2. 1442 MOD 5. 6, OR 7. 

2.3*** MODEL NUMBER 

THE 1442 MODEL NUMBER MUST BE KNOWN IN ORDER TO USE THIS PROGRAM. 
THIS DATA MAY BE ENTERED VIA THE BIT SWITCHES AS OUTLINED IN SECTION 
3.1 OR THIS DATA MAY BE ENTERED VIA A PATCH CARD AS FOLLOWS 



COL 1-10 
COL 11 - 19 
COL 20 - 35 

WHERE 



+05E1 OOOM 

BLANK 

1442 MOD M 

MOD NUMBER 5, 6, OR 7 



NOTE - DU NOT RUN THIS PROGRAM IN OVERLAP. 
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3. OPERATING PROCEDURE 

3.1*** PROGRAM LOADING 

STANDARD MONITOR LOADING PROCEDURES APPLY 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. SET FIRST TYPEWRITER TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SET BIT SWITCH 15 OFF - LOAD AND GO 

ON - TO HALT AFTER LOAOING 

IF HALTED AFTER LOADINGt SELECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5). 

3. LOAD DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. IF MODEL NUMBER CARD IS NOT IN DECK, THE MODEL NUMBER MUST BE 
ENTERED BEFORE THE PROGRAM WILL RUN. THE MODEL NUMBER CARD IS 
THE PATCH CARD WHICH SETS THE MODEL NUMBER (SEE 2.3 **) 

A. SET SWITCHES TO 810M WHERE M EQUALS THE MODEL NUMBER (( 5,6 , OR 7 

B. PRESS THE INTERRUPT REQUEST KEY. 

5. SELECT PROGRAM OPTIONS, IF DESIRED. 

****** 

3.2*** PROGRAM OPERATION. 

STANDARD MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

NOTE - DO NOT RUN THIS PROGRAM IN OVERLAP 

3.2.1 PROGRAM CONTROL OPTIONS - FUNCTION 



1. 
2. 



SET SWITCHES 0-7 TO 01. 

SET SWITCHES 8-15 AS DESIRED. 



SW 



FUNCTION 



8 RESTART 

9 PRINT ROUTINE START MESSAGE AND AVG INTERRUPT TIME IN 
RTNS 1+2 

10 LOCK ON FUNCTION (RTN 1 ONLY, PUNCH FNC ONLY) 

11 LOOP PROGRAM 

12 LOOP ON ERROR 

13 BYPASS ERROR PRINTOUT 

14 HALT ON ERROR 

15 HALT 



3. 



PRESS INT REQ KEY ON CONSOLE. 

** 
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3.2.2 ROUTINE SELECTION - FUNCTION 1 

THE SELECTED ROUTINE WILL LOOP UNTIL A NEW ROUTINE IS SELECTED 
OR ROUTINE SELECTION IS RESET. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 
B. SET ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



DESCRIPTION 



DELAY PUNCH + CHECK COL 

INTR TIME 
READ + CHECK COL INTRPT TIME, 
PUNCH COL INTRPT TIME GRAPH . 
READ COL INTRPT TIME GRAPH . 



NORMAL ROUTINES- 

THE PROGRAM STARTS WITH 
ROUTINE 1, RUNS EACH 
ROUTINE IN SEQUENCE 

THEN TERMINATES AFTER 

ROUTINE 4. 



MODIFY PUNCH DATA 



OPTIONAL ROUTINES- 
THESE ROUTINES RUN 
ONLY IF SELECTED. 



* = REFER TO SECTION 3.2.3 FOR SPECIAL INSTRUCTIONS. 

C. PRESS INT REQ KEY ON CONSOLE. 

2. TO RESET ROUTINE SELECTION, SET AS IF SELECTING ROUTINE ZERO. 

** 

3.2.3 OTHER OPTION CONTROL SELECTION 

1. SPECIFY PUNCH DELAY (PUNCH DELAY — SEE NOTE 5.2.2 RTN 1) 

THE PUNCH DELAY IN ROUTINE 1 CAN BE CONTROLLED- BY A SWITCH 
ENTRY WITH THE SWITCHES SET TO 81XX WHERE OX CAN BE ANY HEX NO. 
FROM 1 TO F (NEVER 0). X REPRESENTS THE PUNCH DELAY INCREMENT 
(38 USEC TIMES ANY HEX NO. FROM 1 TO F). THE PUNCH DELAY INCRE- 
MENTS IS ADDED TO THE MINIMUM PUNCH DELAY OF 219 USEC. 

2. GRAPH SCALE FACTOR 

IF NO GRAPH IS PUNCHED BY ROUTINE 3 OR 4 1 T IS PROBABLE THAT 

THE READER OR PUNCH TIMING IS SO FAR OFF THAT THE GRAPH DOES 

NOT PUNCH ON THE CARD. (SEE NOTE 5.2.2 RTN 3) THE GRAPH SCALE IS 

NORMALLY 38 USEC PER CARD ROW. THIS SCALE FACTOR CAN BE INCREASED 

BY A SWITCH ENTRY WITH THE SWITCHES SET TO C10X WHERE THE NEW 

SCALE IS EQUAL TO 38 USEC TIMES X PER CARD ROW. THIS WILL ALLOW 

YOU TO DETERMINE HOW BAD THE TIMING IS. 

3. MODIFY PUNCH DATA 

ROUTINE 5 WILL READ IN ONE CARD AND REPLACE THE PUNCH 
DATA TABLE WITH THE DATA PATTERN PUNCHED IN THAT CARD. 
THE PROGRAM WILL THEN RESTART FROM ROUTINE 1. 
****** 
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3.3*** PROGRAM HALTS 
3.3.1 NORMAL HALTS 



•HALT NO. 
.IB REG) 


DESCRIPTION 


RESTART 
ACTION 


. 3001 
. 3002 


PROGRAM STOP OR ADDRESS STOP 
, HALT ON ERROR 


PRESS START 

DISPLAY MODE-PRESS START. 
RUN MODE - PRESS START . 



3.3.2 ERROR HALTS 



.HALT NO. 
,(B REG) . 


DESCRIPTION 


RESTART 
ACTION 


. 30F1 . 


CHECK SUM ERROR ON FIRST 


RELOAD 


. 30F2 . 


READER DSW ERROR WHEN 
LOADING LOADER 


RELOAD 


. 30F3 . 


CARD 2 OF LOADER DID NOT 
LOAD 


RELOAD 


. 30F4 


CAN NOT CLEAR CORE - DUE TO 
ERROR IN ADDRESSING UPPER 
CORE. 




. 30F5 


READER CHECK WHEN LOADING 
MONITOR OR TEST PROGRAM 


NPRO THEN PLACE CARDS 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 


. 30 F6 


MONITOR DID NOT LOAD 


RELOAD 


. 30F7 


CHECK SUM WHEN LOADING 
MONITOR 


RELOAD 


. 30F8 


READER NOT READY 


MAKE READER READY 


. 30F9 


INVALID INTERRUPT WHICH WILL 
NOT RESET 


PRESS RESET AND START 


. 30 FA 


CONSOLE PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER . 
OR NOP THIS WAIT 



3.4*** PROGRAM TERMINATION 

IF LOOP PROGRAM HAS NOT BEEN SPECIFIED THE PROGRAM WILL TERMINATE 

AT THE END OF ROUTINE 4. ROUTINE 5 WILL ONLY RUN IF 

SELECTED. 

IF ANY ROUTINE IS SELECTfcD THAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 

****** 

3.5*** RESTART 

1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH 8. 

3. SET DESIRED CONTROL IN SWITCHES 9-14. 

4. PRESS INTERRUPT REQUEST KEY. 

********** 

4. PRINTOUTS 

ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

(MESSAGE) 
(MESSAGE) 



APPNN OORR AAAA 
OR 

EPPNN OORR AAAA 



WHERE A IDENTIFIES STATUS MESSAGES 
E IDENTIFIES ERROR MESSAGES 
PP IS THE PID OF THE PROGRAM CAUSING THE MESSAGE 

THIS WILL BE EITHER 00 FOR MESSAGES 
ORIGINATED BY THE MONITOR OR 

2F FOR MESSAGES ORIGINATED BY 

THIS PROGRAM 

NN IS THE MESSAGE SEQUENCE NUMBER 

RR IS THE ROUTINE NUMBER 

AAAA IS THE ADDRESS OF THE ROUTINE 

MESSAGE IS ANY VARIABLE INFORMATION 



4. 1*** 
AOOOO 



STATUS MESSAGES 



NUM PID ADRS RELF 
XXXX XXXX XXXX XXXX 



LD 



THIS MESSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MESSAGE GIVES THE LOAD SEQUENCE NUMBER, 
THE PROGRAM ID, THE ADDRESS INTO WHICH THE PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



A0001 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH TIME A VALID SWITCH ENTRY IS READ 
BY THE MONITOR. THE MESSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THE PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES 8-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT UF ANY PROGRAM, THE WORD HALT WILL FOLLOW THE 
MESSAGE. 
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A2F00 OOOR AAAA 



ROUTINE START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNED ON, 
THIS MESSAGE WILL BE PRINTED BEFORE THE START OF EACH ROUTINE. 
R IS THE NUMBER OF THE NEXT ROUTINE AND AAAA IS THE STARTING 
ADDRESS. 



A2F01 



ENTER MOD NUMBER 

THIS MESSAGE REQUESTS THAT THE 1442 MOD NUMBER 

BE ENTERED INTO THE PROGRAM. TO DO THIS, SET THE BIT SWITCHES TO 
810M WHERE M = MOD NUMBER 



A2F02 OOOR AAAA LOAD BLANKS 

LOAD THE 1442 HOPPER WITH BLANK CARDS THEN PRESS 1442 START. 



A2F03 OOOR AAAA 



LOAD PCHED CARDS 



LOAD THE CARDS PUNCHED BY ROUTINE 1 INTO 1442 HOPPER. THIS DECK 

WAS PUNCHED WITH A ROTATING PATTERN. IT MUST BE LOADED IN THE 

SAME ORDER AS PUNCHED. THERE MUST BE NO CARDS MISSING FROM THE 
DECK. 



A2F04 OOOR AAAA 



LAST CARD 



THE LAST CARD INDICATOR WAS ON AT THE COMPLETION OF THE LAST 1442 
CONTROL OPERATION. A PEED COMMAND WAS GIVEN TO RUN OUT THE LAST 
CARD. THE ROUTINE WILL THEN TERMINATE. IF NO ROUTINE HAS BEEN 
SELECTED, THE PROGRAM WILL ADVANCE TO THE NEXT ROUTINE. IF A 
ROUTINE HAS BEEN SELECTED, THE PROGRAM WILL RESTART THAT ROUTINE. 



A2F05 OOOR AAAA 



NRDY - PRESS 1442 START 



THIS MESSAGE WILL BE PRINTED IF THE 1442 IS NOT READY FOR ANY REASON. 
THE PROGRAM WILL LOOP WAITING FOR READY. TO CONTINUE, CLEAR ANY 
ERROR CONDITIONS AND MAKE THE 1442 READY. 



A2F06 0001 AAAA 



PUNCH DELAY 

xxxxx 



ROUTINE 1 VARIES THE TIME BETWEEN RECEIVING THE PUNCH RESPONSE AND 
ISSUING THE PUNCH COMMAND. THE DELAY STARTS AT MAXIMUM (333 USEC, 
INCREMENT 4) REDUCED IN STEPS TO MINIMUM (219 USEC, INCREMENT OF ONE). 
THIS MESSAGE IDENTIFIES THE DELAY FOR THE NEXT 80 CARDS. X = THE DELA 
INCREMENT AND XXXX EQUALS THE DELAY IN USEC. 



A2F07 OOOR AAAA 



AVG COL INTRPT TIME 
XXXXX YYYYY 



THIS MESSAGE IS PRINTED IN ROUTINES 1 AND 2 AFTtR 80 CARDS HAVE BEEN 
READ OR PUNCHED, OR WHEN THE ROUTINE TERMINATES. 

XXXXX = AVERAGE TIME IN USEC BETWEEN COLUMN INTERRUPTS 

FOR ALL CARDS READ OR PUNCHED SINCE THIS AVERAGE 
MESSAGE WAS LAST PRINTED. 

YYYYY = NORMAL AVERAGE TIME IN USEC. 



DATE 


02JAN66 


01MAY66 


15N0V66 


15JUN67 


15FEB68 


010CT68 


EC NO. 


415490 


415490B 


419643 


420317 


420403 


571005 



PROG ID 
PAGE 



032F-* 
4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1130 SYSTEM 
1442 TIMING TEST 



PART NO. 2191230 
PAGE 4A 



4.2*** ERROR MESSAGES 

THE DSW IS CHECKED FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
ERROR IS DETECTED ONE OF THE MESSAGES BELOW WILL INDICATE THE 
PROBLEM. IT IS LEFT TO THE OPERATOR TO ANALYZE THE DSW FOR THE 
SPECIFIC PROBLEM AREA. 



****************************************** ********* 4* 
* THE 1442 DSW * 



* 


BIT 




* 





PUNCH RESPONSE 


* 


1 


READ RESPONSE 


* 


2 


ERROR CHECK 


* 


3 


LAST CARD 


* 


4 


OPERATION COMPLETE 


* 


5 


NOT USED 


* 


6 


NOT USED 


* 


7 


FEED CHECK AT READ STATION 


* 


8 


NOT USED 


* 


9 


NOT USED 


* 


10 


NOT USED 


* 


11 


NOT USED 


* 


12 


NOT USED 


* 


13 


NOT USED 


* 


14 


BUSY 


* 


15 


NOT READY OR BUSY 


* 







***************************************************** 



E0001 



E0003 



E0004 



SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID NOT EQUAL THE LOAD SEQUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR CORE 

THE PROGRAM WHICH THE LOADER WAS ATTEMPTING TO LOAD 
EXCEEDED AVAILABLE CORE. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM ERROR WAS DETECTED WHILE LOADING A TEST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 

1. A CARD IS MISSING OR IS OUT OF SEQUENCE. 

2. THERE IS AN EXTRA CARD IN THE DECK. 

3. THE PUNCHED INFORMATION ON THE CARD IS NOT CORRECT. 

4. DATA WAS LOST OR PICKED UP DUE TO A MACHINE MALFUNCTION. 

5. DUE TO A CPU MALFUNCTION, THE CHECK SUM WAS NOT 
CORRECTLY CALCULATED. 

WHEN THIS ERROR OCCURS ATTEMPT TO RELOAD THE PROGRAM. 
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E0005 



OOON XXXX 



THIS ERROR WILL OCCOR IF AN INTERRUPT OCCURS, AND THE EXPECTED ILSW 
WAS NOT RECEIVED. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT WILL ONLY OCCUR IF THE INTtRRUPT IS RESET 
BY A BOSC. NO ATTEMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E2F00 OOOR AAAA 



CARD NOT BLANK 



A PRE-PUNCHED CARD WAS DETECTED BY A PUNCH ROUTINE. THIS CARD WAS 
NOT PUNCHED BUT WAS REJECTED. THIS CARD WILL BE FED OUT INTO 
STACKER 1. 



E2F01 OOOR AAAA 



WAS S/B 
XXXX 0000 



STATIC DSW ERR 



A BIT, IN ADDITION TO NOT READY, WAS ON IN THE DSW WHEN IT WAS 

SENSED BEFORE GIVING A CONTROL COMMAND TO THE 1442. OSE THE 

ABOVE DSW TABLE TO IDENTIFY THE BIT, THEN TAKE APPROPRIATE CORRECTIVE 

ACTION. 



E2F02 OOOR AAAA 



LAST OP - 
WAS S/B - 
XXXX 0003 



CCCC 

BUSY DSW ERR 



THIS DSW WAS SENSED IMMEDIATELY AFTER THE 1442 CONTROL COMMAND 
WAS IDENTIFIED BY CCCC GIVEN. THAT COMMAND SHOULD MAKE THE 1442 
BUSY AND NOT READY. NO OTHER BITS SHOULD BE ON. 



E2F03 OOOR AAAA 



LAST OP - CCCC 

DSW - NO 1NTRPT - LEV4 

XXXX 



NO OP COMPLETE INTERRUPT WAS RECEIVED FOLLOWING THE LAST CONTROL 
COMMAND, IDENTIFIED BY CCCC. THE COMMAND WAS RECEIVED BY 
THE 1442 IF AN E2F02 MESSAGE WAS NOT PRINTED. 



E2F04 OOOR AAAA 



LAST OP - CCCC 

WAS S/B - LEVO DSW ERR 

XXXX X003 



THIS DSW WAS SENSED IN THE LEVEL ZERO INTERRUPT ROUTINE. THE 
RESPONSE FOR THE LAST CONTROL COMMAND (IDENTIFIED BY CCCC) SHOULD 
BE ON, TOGETHER WITH BUSY AND NOT READY. 



E2F05 OOOR AAAA 



LAST OP - 
WAS S/B - 
XXXX X80X 



CCCC 

LEV4 DSW ERR 



THIS DSW WAS SENSED IN THE LEVEL 4 INTERRUPT ROUTINE. OP COMPLETE 
BIT SHOULD BE ON. THE LAST CARD AND NOT READY BITS MAY BE ON. 
ALL OTHER BITS SHOULD BE OFF. 
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E2F06 OOOR AAAA 



LAST OP - PUNCH 
WAS S/B - PCH CK 
XXXX 0000 



A PUNCH ECHO CHECK OCCURRED WHILE PUNCHING THE LAST CARD. XXXX IS 
THE PUNCH ECHO THAT WAS READ FROM THE 1442 BUFFER REGISTER FOLLOWING 
THE PUNCH CHECK. ANY BIT ON IN THIS WORD IDENTIFIES A DESCKEPANCY 
BETWEEN THE PUNCH DIE ECHO AND THE DATA WHICH WAS TO BE PUNCHED IN 
THE COLUMN. PUNCHING IS TERMINATED WHEN THIS ERROR IS DETECTED. 
THUS, THE ERROR OCCURRED IN THE LAST COLUMN PUNCHED. IF PUNCHING 
A ROTATE PATTERN DISCARD THE CARDS PUNCHED AND RESTART THE ROUTINE. 

THIS ERROR WILL OCCUR IN ROUTINE 1 IF THE PUNCH DELAY EXCEEDS THE 
DURATION OF THE PUNCH RESPONSE TRIGGER. THIS TRIGGER SHOULD STAY 
ON FOR AT LEAST 300 USEC. 

THE PROGRAM USES A MINIMUM DELAY OF 330 USEC TO HELP THE CE ADJUST 
THE SINGLE SHOT AS CLOSE AS POSSIBLE TO THE OPTIMUM OPERATION POINT. 



E2F07 OOOR AAAA 



LAST OP - CCCC 
WAS S/B - ER CK 
XXXX 0000 



AN ERROR CHECK OCCURRED DURING THE LAST OPERATION. IF THE LAST 

OPERATION WAS READ OR PUNCHED, THIS MESSAGE SHOULD BE FOLLOWED 

BY AN E0F08 MESSAGE WHICH WILL IDENTIFY THE NUMBER OF COLUMNS 

PROCESSED BEFORE THE ERROR WAS DETECTED. TO CONTINUE, CLEAR ALL 
CARDS FROM THE 1442, THEN PRESS START. IF PUNCHING A ROTATING 

PATTERN TO BE READ BY THE NEXT ROUTINE, DISCARD THE CARDS PUNCHED 
AND RESTART THE ROUTINE. 



E2F08 OOOR AAAA 



WAS S/B - COL CNT ER 
XXXXX YYYYY 



XXXXX IDENTIFIES THE NUMBER OF COLUMN INTERRUPTS THAT OCCURRED 
DURING THE LAST OPERATION. YYYYY IDENTIFIES THE EXPECTED NUMBER 
OF INTERRUPTS. IF AN ERROR CHECK OCCURRED DURING THE LAST 
OPERATION (IDENTIFIED BY AN E0F06 OR E0F07 MESSAGE), THE OPERATION 
WILL TERMINATE AT THE TIME THE ERROR OCCURRS. THUS, THIS ERROR 
MESSAGE WILL IDENTIFY THE COLUMN BEING PROCESSED WHEN THE ERROR 
WAS DETECTED. 
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E2F09 OOOR AAAA 



WAS S/B COL - DATA ERR 
XXXX YYYY OOOZZ 



THE DATA XXXX READS FROM COLUMN ZZ(IN DECIMAL) DflFS mm atdcc 

CO T RREc"T E DATA ECT rP Zll YYYY F ° R THAT N COL E UMN* L, CHE CK CArVfJ" 

R ""»• T ° A IS CORRECT, THEN A READ ERROR OCCURRED. 
?ATTM ?i« ,z ?l C0RRECT ' A p UNCH ERROR OCCURRED. IN THE 
fl T« S ,:, f N ° PUNCH CHECK WAS DETECTED WHILE PUNCHING THE 
CARD, THE PUNCH ECHO CHECK IS NOT FUNCTIONING. ^"^b IHt 



E2F10 OOOR AAAA 



LAST OP - CCCC 

WAS MAX COL - INTRPT SLOW 

XXXXX YYYYY lllll 



Rv\ X ?7, E ? UAL U H f C0LUMN INTERRUPT TIME FOR THE COLUMN IDENTIFIED 
M Y 0DELT442 \f G \^lf^\T ""* ™ ™ 1S 0P ^^ ™"»" 

AL H S E CK CH T E H C E K A T D H J E US P T U M N E C N H Sc^lKJf ^vK ™ "" ^ ^ ^^ 



5. COMMENTS 

5.1*** TEST PROCEDURE 

5.1.1 TEST ORGANIZATION 

FUNf-Ti™ ^ T t INES t c OLL0W ™ E SAME BASIC ORGANIZATION AS THE 1442 
FUNCTION TEST. THE TIMING CAPABILITY IS PART OF THE INTERRUPT 
ROUTINE. AFTER THE COMPLETION OF EACH OPERATION, THE 
RESULTS ARE AVAILABLE TO THE TEST ROUTINE FOR ANALYSIS. 

5.1.2 ERROR CHECKING 

TH A A M T E T E H R ^ESE H L eC S 1 D N S G /?s T ^T l S:E 2 CK F !; NCT,0N "" "^ ^ EXC6PTI ^ 
IN ADDITION, THE TIMING TEST ATTEMPTS TO FORCE PUNCH DFIAY 
t1 R0 o R c S ^ THESE ARE DETE ™ *S PUNCH CHECKS!, AND IT CALCULATES 
lllllui ^ ^ " RESP0NSE HMES COMPARING THEM TO CALCULATLS 
MIMIMUM AND MAXIMUM VALUES FOR THE APPROPRIATE 1442 



MODEL. 



5.2*** 



E2F11 OOOR AAAA 



LAST OP - CCCC 

WAS MAX COL - INTRPT FAST 

XXXXX YYYYY ZZZZZ 



ROUTINE DESCRIPTION 



^ X Z X ^ E 7 0UAL S THE COLUMN INTERRUPT TIME FOR THE COLUMN IDENTIFIED 
MODELS if GI^IyVyYYyT "^ "* ™ 1S ° PERATI ° N ° N TH ' S 

A H fn K . T ^ E ADJUS ™ENT AND LUBRICATION OF THE FEED AND READ CLUTCH 
ALSO CHECK THE PUNCH INCREMENTAL DRIVE. CLUTCH. 



S T UBR S nu E ^P, 0N TM°l TAI n S A 0ESCRIPT '0N OF THE PROGRAM ROUTINES AND 
I U N B THE T PR0GRAM AsToLLOWS^ THE ^ IN WHICH THEY APP " R 

1. TEST SEQUENCE CONTROL ROUTINE 

2. NORMAL TEST ROUTINES 

3. OPTIONAL TEST ROUTINES 

4. TEST SUBROUTINES 

5. ERROR CONTROL ROUTINES 

6. INTERRUPT ROUTINE 

5.2.1 TEST SEQUENCE CONTROL ROUTINE - CNTRL 

CONTRn^Ti^^L^ 5 T R0UTINE ELECTION SWITCH (SMI IN THE PROGRAM 

^^test^t^^^ 

Tuf R n,^! k NE AD0RESS TABLE (RTTBL) WHICH IS PART OF CNTRL CONTAINS 

Ke/SGTo A b°e D r E un! F0R ALL TEST R0UTINES IN the s E Quence C ?n NT which 

MONITOR END AND TERMINATE THE PROGRAM. ROUTINES FOLLOWING THE 
^SELECTED'" 5 "'^ ° PT1 ° NAL TEST ROUTINES AW WRL ONLY BE RUN 
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5.2.2 NORMAL TEST ROUTINES 

IF NO TEST ROUTINE IS SELECTED, THESE FOUR ROUTINES WILL RUN IN 
SEQUENCE THEN THE PROGRAM WILL TERMINATE. 

1. TEST ROUTINE 1 - DELAY PUNCH 

THIS ROUTINE PUNCHES CARDS USING DATA PREVIOUSLY SET IN THE 
DATA TABLE. THE DATA IS ROTATED BY ONE COLUMN FOR EACH CARD 
PUNCHED. EACH CARD IS READ AND CHECKED FOR BLANK BEFORE 
IT IS PUNCHED. THE ROUTINE PUNCHES THE FIRST 80 CARDS 
WITH A MAXIMUM PUNCH DELAY OF 333 USEC. 

** NOTE ** 

PUNCH DELAY IS THE TIME BETWEEN THE PUNCH RESPONSE INTERRUPT AND 
THE PUNCH DATA COMMAND. 

THE DELAY IS DECREASED BY 38 USEC. 38 USEC EQ 1 INCREMENT 

FOR EACH SUCCEEDING 80 CAROS. WHEN MINIMUM DELAY IS REACHED 

(219 USEC), THE PUNCH DELAY IS RESET TO 333 USED, AND THE CYCLE 

REPEATED UNTIL ALL CARDS IN THE HOPPER HAVE BEEN PUNCHED. 

AT THE START OF THE ROUTINE AND AT EACH CHANGE IN PUNCH DELAY, 
A MESSAGE IS PRINTED (A2F06) STATING THE PUNCH DELAY AND A PUNCH 
DELAY INCREMENT. THE DELAY IS RESET TO 333 USEC WHEN THIS INCRE- 
MENT GOES TO 2ERU. 

THE TIME BETWEEN COLUMN INTERRUPTS IS DETERMINED BY THE INTERRUPT 
ROUTINE. IF THIS TIME FALLS OUTSIDE THE FOLLOWING LIMITS, 
AN ERROR MESSAGE (E2F10 OR E2F11) IS PRINTED 



3. TEST ROUTINE 3 - PUNCH TIME GRAPH 

THIS TEST WILL STORE THE TIME BETWEEN PUNCH COLUMN INTERRUPTS 
WHILE PUNCHING A CARD. ON THE NEXT CARD, IT WILL PUNCH A 
GRAPH WHICH DISPLAYS THE VARIATIONS IN COLUMN INTERRUPT TIME 
FROM COLUMN TO COLUMN. THIS PROCESS WILL BE REPEATED UNTIL 
THE LAST CARD INDICATOR IS SENSED. EACH ROW REPRESENTS 38 USEC. 



** NOTE ** 

IF THE CARD IS BLANK, OR A COLUMN IS BLANK, THE RANGE FOR THE 
CARD OR COLUMN IS OUTSIDE THE SPECIFICATIONS. IF THE CARD IS 
PUNCHED IN EVERY COLUMN IT IS WITHIN SPECIFICATIONS. HOWEVER, 
SEVERE OSCILLATIONS OF THE GRAPH INDICATE OTHER TROUBLE SUCH AS 
BINDING OR STICKING MECHANISMS. 



TEST ROUTINE 4 



READ TIME GRAPH 



MODEL 



5 OR 



MIN 
USEC 

10600 
5300 



MAX 
USEC 

14300 
7180 



AVG 
USEC 

12200 
6000 



AFTER PUNCHING 80 CARDS OR AT THE COMPLETION OF THE ROUTINE, AN 
AVERAGE COLUMN TIME MESSAGE IS PRINTED SPECIFYING THE AVERAGE 
TIME SINCE THE LAST AVERAGE MESSAGE WAS PRINTED. 

2. TEST ROUTINE 2 - READ 

THIS ROUTINE READS THE CARDS THAT WERE PUNCHED BY ROUTINE ONE. 
THE DATA READ IS COMPARED TO THE DATA PUNCHED. IF THESE ARE 
NOT EQUAL, AN ERROR MESSAGE (E2F09) IS PRINTED. 

THE TIME BETWEEN COLUMN INTERRUPTS IS DETERMINED BY THE INTERRUPT 
ROUTINE. IF THIS TIME FALLS OUTSIDE THE FOLLOWING LIMITS, 
AN ERROR MESSAGE (E2F10 OR E2F11) IS PRINTED 



MODEL 



5 OR 



MIN 
USEC 

900 
700 



MAX 
USEC 

1600 
1300 



AVG 
USEC 

1300 
1000 



THIS TEST WILL READ A BLANK CARD, STORE THE TIME BETWEEN READ 
COLUMN INTERRUPTS, THEN PUNCH A GRAPH DISPLAYING THE VARIATION 
IN COLUMN INTERRUPT TIME FROM COLUMN TO COLUMN. THIS PROCESS 
WILL BE REPEATED UNTIL THE LAST CARD INDICATOR IS SENSED. 

5.2.3 OPTIONAL TEST ROUTINE 

1. TEST ROUTINE 5 - MODIFY DATA 

THIS ROUTINE WILL READ ONE DATA CARD AND REPLACE THE PUNCH DATA 
TABLE WITH THE DATA CONTAINED ON THAT CARD. THE ROUTINE WILL 
THEN RESTART THE PROGRAM FROM ROUTINE ONE. 

5.2.4 TEST SUBROUTINES 

1. PUNCH 

THIS SUBROUTINE PUNCHES ONE CARD THEN CHECKS FUR PUNCH ERRORS. 

2. READ 

THIS SUBROUTINE READS ONE CARD THEN CHECKS FOR READ ERRORS. 

3. COMPARE COLUMN TIME 

THIS SUBROUTINE CHECKS THAT COLUMN TIME FALLS WITHIN MINIMUM 
AND MAXIMUM LIMITS. IT ALSO ADDS ALL COLUMN TIMES AND KEEPS 
COUNT OF THE TOTAL NUMBER OF COLUMNS FOR CALCULATION OF THE 
COLUMN TIME AVERAGE. 

4. PRINT COLUMN INTERRUPT AVERAGE TIME 

THIS SUBROUTINE CALCULATES THE COLUMN INTERRUPT TIME AVERAGE 
AND PRINTS THE AVERAGE MESSAGE. 

5. CHECK FOR BLANKS 

THIS SUBROUTINE CHECKS EACH CARD BEFORE IT IS PUNCHED TO VERIFY 
THAT IT IS BLANK. 



AFTER READING 80 CARDS OR AT THE COMPLETION OF THE ROUTINE, AN 
AVERAGE COLUMN TIME MESSAGE IS PRINTED SPECIFYING THE AVERAGE 
TIME SINCE THE LAST AVERAGE MESSAGE WAS PRINTED. 
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6. GRAPH SETUP 

THIS SUBROUTINE WILL CALCULATE A GRAPH POINT FOR EACH COLUMN 
TIME. THIS SET OF GRAPH POINTS WILL BE PUNCHED ON THE NEXT 
THE SCALE CAN BE CHANGED WITH 



CARD. 
ENTRY. 

7. READY 



A FUNCTION 3 BIT SWITCH 



THIS SUBROUTINE IS ENTERED BEFORE ANY 1442 CONTROL COMMAND IS 
GIVEN. IT READS THE 1442 DSW AND CHECKS IT FOR READY (ALL BITS 
OFF). ANY BIT ON OTHER THAN NOT READY (BIT 15) WILL BE 
IDENTIFIED BY AN E2F01 MESSAGE. IF ANY BIT IS ON, A NRDY 
MESSAGE (A2F05) WILL BE PRINTED. THIS ROUTINE STAYS IN A LOOP, 
PRINTING THE NRDY MESSAGE EACH 10 SECONDS UNTIL ALL BITS IN THE 
DSW GO OFF. 

8. LAST CARD 

THIS SUBROUTINE IS ENTERED AFTER AN OPERATION IS COMPLETED IF 
THE LAST CARD INDICATOR WAS TURNED ON DURING THAT OPERATION. 
THE SUBROUTINE WILL FEED OUT THE LAST CARD, PRINT A MESSAGE 
INDICATING THAT THE LAST CARD INDICATOR WAS DETECTED, THEN GO 
TO CNTRL TO TERMINATE THE ROUTINE AND ADVANCE TO THE NEXT 
ROUTINE. 



5.2.5 ERROR CONTROL ROUTINES 

1. INTERRUPT WAIT ROUTINE 



ALL SUBROUTINES COME HERE AFTER THE START OF AN I/O OPERATION 
FROM WHICH AN INTERRUPT IS EXPECTED. THIS ROUTINE RESETS ALL 
ERROR CONTROL WORDS, SENSES AND STORES THE BUSY DSW, THEN WAITS 
IN A TIMED LOOP (AT LEAST 20 SECONDS) FOR THE OP COMPLETE 
INTERRUPT. 

IF NO OP COMPLETE INTERRUPT IS RECEIVED THE FOLLOWING ERROR 
MESSAGES ARE PRINTED. 

A. E2F02 IS BUSY DSW ERROR 

B. E2F03 - NO OP COMPLETE INTERRUPT 

IF OP COMPLETE INTERRUPT IS RECEIVED THIS ROUTINE WILL CHECK 
FOR PROPER PERFORMANCES OF THE OPERATION. THE FOLLOWING CHECKS 
ARE MADE AND ERROR MESSAGES PRINTED IF APPROPRIATE. 

A. E2F02 IF BUSY DSW ERROR 

B. E2F05 IF OP COMPLETE DSW ERROR 

C. E2F08 IF INCORRECT NUMBER OF COLUMN INTERRUPTS 

THE ROUTINE WILL THEN CHECK FOR LAST CARD IF THE LAST CARD 
INDICATOR IS ON THIS ROUTINE WILL TRANSFER TO THE LAST CARD 
ROUTINE. IF NO LAST CARD THE ROUTINE WILL RETURN TO THE I/O 
SUBROUTINE FROM WHICH IT WAS ENTERED. 
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2. PRINT ERROR MESSAGES 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. IF THE MESSAGE 
IS THE FIRST ERROR MESSAGE FOLLOWING AN I/O CONTROL COMMAND 
A LAST OP MESSAGE WILL PRECEEO THE ERROR MESSAGE. THIS LAST 
OP MESSAGE WILL IDENTIFY THE LAST I/O CONTROL OPERATION 
EXECUTED. THE ERROR MESSAGE FOLLOWING REFERS TO ERRORS 
DETECTED IN THAT OPERATION. 

5.2.6 INTERRUPT ROUTINES 

THE COLUMN INTERRUPT TIMING IS DONE IN THIS ROUTINE. THE PROGRAM 
TRANSFERS HERE ON THE FIRST COLUMN INTERRUPT. ALL FOLLOWING READ 
OR PUNCH RESPONSES ARE SENSED IN THIS INTERRUPT ROUTINE. THE 
ROUTINE DOES NOT BRANCH OUT OF INTERRUPT UNTIL AN OP COMPLETE 
RESPONSE IS SENSED. 
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0160 
0161 
0162 
0163 
0164 



0165 
0166 
0167 



017A 

018A 
019A 
01AA 
01BA 
01BB 
01BC 
01B0 



0000 



05DC 032F 



*************************************************** 

* 

THIS ENGINEERING CHANGE REFLECTS MAJOR 
CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 
TESTS WILL NOT RUN WITH DIAGNOSTIC MONITOR II. 



THIS TEST WILL NOT RUN WITH PREVIOUS MONITORS. 

TESTS PRIOR TO EC 419643 DATED NOV 15t 1966 
WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 
MONITOR II. 



* 

* 

* 

* 

* 

* 

* 

* 

* 

*************************************************** 

******************************************** 

* 

* 1130 - 1442 READER/PUNCH TIMING TEST 

* 

* 
* 
* 
******************************************** 

* EQUATE TABLE 
******************************************** 

* THIS TABLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* ADDRESSES. 
* 

* , 

* MONITOR ENTRY ADDRESSES 

* ~ 



BEGIN ROUTINE 
SUPERVISOR ROUTINE 
ERROR LOG ROUTINE 
STATUS LOG ROUTINE 
END ROUTINE 



BEGIN EQU /160 
START EQU BEGIN&l 
ERROR EQU START61 
LOG EQU ERR0RS1 
END EQU L0G61 
* 

* . 

* MONITOR CONTROL WORD ADDRESSES 

* 

RTNSW EQU END61 ROUTINE START SW 
ERLCK EQU END62 LOCK ON ERROR CONTROL 
LOGBY EQU END63 I/O BUSY SW ADORS 
* 

* 

INTERRUPT TRANSFER VECTOR ADDRESSES 



EQU 


/17A 


EQU 


IL0616 


EQU 


IL1E16 


EQU 


IL2C16 


EQU 


IL3616 


EQU 


IL461 


EQU 


RQTY6.1 


EQU 


RQKB61 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
INTERRUPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEYBOARD REQUEST 
KB SERVICE REQUEST 



* 

* 

ILO 

IL1 

IL2 

IL3 

IL4 

RQTY 

RQKB 

SVKB 

* 

******************************************** 
ORG *6/05DC 

* THE MONITOR USES CORE LOCATIONS 0-05DC. 

* FOR CONTENTS OF THESE ADDRESSES REFER 

* TO THE DIAGNOSTIC MONITOR LISTING. 



******************************************** 
* PROGRAM CONTROL TABLE 

******************************************** 



* 
PIO 



DC 



/032F 



PROGRAM ID 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



32F00030 
32F00040 
32F00050 
32F00060 
32F00070 
32F00080 
32F00090 
32F00100 
32F00110 
32F0O120 
32F00130 
32F00140 
32F00150 
32F00160 
32F00170 
32F00180 
32F00190 
32F00200 
32F00210 
32F00220 
32F00230 
32F00240 
32F00250 
32F00260 
32F0O270 
32F00280 
3 2F 00290 
32F00300 
32F 00310 
32F00320 
32F00330 
32F00340 
32F00350 
32F00360 
32F00370 
32F00380 
32F00390 
32F00400 
32F00410 
32F00420 
32F00430 
32F00440 
32F00450 
32F00460 
32F00470 
32F00480 
32F00490 
32F00500 
32F00510 
32F00520 
32F00530 
32F00540 
32F00550 
32F00560 
32F00570 
32F00580 
32F00590 
32F00600 
32F00610 
32F00620 
»32F00630 
32F00640 
32F00650 
32F00660 
32F00670 
32 F 006 80 
32F00690 
32F00700 



PROG ID 
PAGE 



032F-2 
1 





05DD 0000 


RID 


DC 


/OOOO 


ROUTINE ID 


32F00710 






05DE 0000 


RAD 


DC 


/OOOO 


ROUTINE ADDRS 


32F00720 






05DF 0000 


SWO 


DC 


/OOOO 


PROGRAM CONTROL 


32F00730 






05E0 0000 


SW1 


DC 


/OOOO 


ROUTINE SELECTION 


32F00740 






05E1 0000 


SW2 


DC 


/OOOO 




32F00750 






05E2 0000 


SW3 


DC 


/OOOO 




32F00760 






05E3 1 05EB 




DC 


STRT 




32F00770 






05E4 1 05EB 




DC 


STRT 


RESTART ADDRESS 


32F00780 






05E5 0000 


MLSCF 


DC 


*-* 


SET BY WAIT RTN AND MON 


32F00790 






05E6 0000 




DC 


*-* 


SET BY CNTRL AND INRTPT 


32F00800 






05E7 FFFF 


* 


DC 


/FFFF 


TERMINATOR 


32F00810 
32F00820 








******************************************** 


32F00830 








* 




TEST INITIALIZATION 


32F00840 








******************************************** 


32F00850 








* 








32F00860 






05E8 4480 0160 


BGIN 


BSI 


I BEGIN 




32F00870 






05EA 1 05DC 


* 


DC 


PID 


PCT ADDRESS 


32F00880 
32F00890 
32F00900 
32F00910 






* START OF 


: TEST AND SINGLE PASS INITIALIZATION 
















32F00920 
32F00930 






* 












05EB 6100 


STRT 


LDX 


1 


SET TO START WITH 


32F00940 






05EC 69F0 




STX 


1 RID 


FIRST ROUTINE 


32F00950 






05ED 1 6000 0683 




STX 


LI PONLY 


RESET PUNCH ONLY SW 


32F00960 






05EF 1 6500 096E 




LDX 


LI INTR 




32F00970 






05F1 6000 017A 




STX 


LI ILO 


STO INTERRUPT TRANSFER 


32F00980 






05F3 1 6500 0993 




LDX 


LI INTR2 


VECTOR ADDRESSES 


32F00990 






05F5 6D00 01B8 




STX 


LI IL4-2 




32F01000 






05F7 1 C400 0682 




LD 


L MODNM 


CK FOR MOD NUM ENTRY 


32F01010 






05F9 1 4420 0654 


* 


BSI 


L CNTRL.Z 


BR IF MOD NUM ENTERED 


32F01020 
32F01030 


(7* 




05FB C0E5 




LD 


SW2 


CHECK FOR MOD NUMBER 


32F01040 




05FC 1 4C20 060B 
05FE 6101 




BSC 
LDX 


L SPtZ 

1 1 


BR IF MOD NUMBER ENTERED 


32F01050 
32F01060 




05FF 1 6600 0AA9 
0601 1 4400 09F2 


* 


LDX 
BSI 


L2 AMOD 
L TYPE 


PRINT - ENTER MOD NUMBER 


32F01070 
32F01080 
32F01090 






0603 CODD 

0604 1 4C20 05EB 


STRT1 LD 
BSC 


SW2 
L STRT,Z 


LOOP UNTIL NUMBER ENTERED 


32F01100 
32F01110 






0606 1 6500 0603 




LDX 


LI STRT1 




32F01120 






0608 69DC 




STX 


1 MLSCF 


RETURN TO THE MONITOR 


32F01130 






0609 4480 0161 


* 


BSI 


I START 


TO ALLOW MSG TO PRINT 


32F01140 
32F01150 






060B 1 D400 0682 
060D 6100 
060E 69D2 


SP 


STO 
LDX 
STX 


L MODNM 
1 
1 SW2 


STO MOD NUM 
CLEAR SW2 


32F01160 
32F01170 
32F01180 






060F 0840 




XIO 


TYP 




32F01190 






0610 0841 

0611 7101 


SP1 


XIO 
MDX 


SENTY 
1 1 




32F01200 
32F01210 






0612 1004 

0613 1 4C28 0610 




SLA 
BSC 


4 
L SP1.6Z 




32F01220 
32F01230 






0615 7500 F900 

0617 7001 

0618 7017 

0619 6376 




MDX 
MDX 
MDX 
LDX 


LI -/700 
*tl 
MOD 
3 118 




32F01240 
32F01250 
32F01260 
32F01270 






061A 1 6F00 0973 
061C 6700 0090 




STX 
LDX 


L3 SPDltl 
L3 144 


SET NEW BASE TIME 


32F01280 
32F01290 






061E 1 6F00 097D 




STX 


L3 SPD2C1 




32F01300 






0620 6309 




LDX 


3 9 


SET FOR 9 PUNCH 


32F01310 






0621 1 6F00 06E4 




STX 


L3 PDMAX 


DELAY INCREMENTS 


32F01320 






0623 6700 7117 




LDX 


L3 /7117 


SET INCR TIME TO 23 USEC 


32F01330 






0625 1 6F00 09A8 




STX 


L3 DLPCH 




32F01340 
32F01350 
32F01360 






0627 1 6F00 09B5 
0629 6317 




STX 
LDX 


L3 SPD3 
3 23 








062A 1 6F00 06E5 




STX 


L3 DINCR 




32F01370 
32F01380 






062C 6700 0087 




LDX 


L3 135 
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062E 1 6F00 06E6 



STX 1.3 PDBAS 



DATE 
EC NO. 



0630 





C051 




* 
MOD 


LD 




MOONM 


0631 





100C 






SLA 




12 


0632 





180C 






SRA 




12 


0633 





9051 






S 




FIVE 


0634 


1 


4C20 


0638 




BSC 


L 


M0D6 t Z 


0636 





684C 






STX 




PONLY 


0637 





401C 




* 
M006 


BSI 




CNTRL 


0638 


1 


9400 


0684 


S 


L 


ONE 


063A 


1 


4C20 


0649 




BSC 


L 


M0D7,Z 


063C 





C83F 






LDD 




P6TM 


063D 


1 


DC 00 


0912 




STD 


L 


PCMAX 


063F 





C83E 






LDO 




R6TM 


0640 


1 


OCOO 


0914 




STD 


L 


RDMAX 


0642 





C03D 






LD 




P6AVG 


0643 


1 


D400 


0A02 




STO 


L 


PAVG 


0645 





C03B 






LD 




R6AVG 


0646 


1 


0400 


0A03 




STO 


L 


RAVG 


0648 





400B 




* 
M0D7 


BSI 




CNTRL 


0649 





903A 




S 




ONE 


064A 


1 


4418 


0654 




BSI 


L 


CNTRL, £- 


064C 





1810 






SRA 




16 


064D 





D093 






STO 




SM2 


064E 





709C 




* 


MDX 




STRT 


0650 




0000 




BSS 


E 





0650 


1 


0652 




TYP 


DC 




SENTY 


0651 





0900 






DC 




/0900 


0652 





0500 




SENTY 


DC 




/0500 


0653 





0F01 






DC 




/0F01 



LD THE MOD NUMBER 



IF MOD SET CNTRL TO 
RUN PUNCH RTN ONLY 

CHECK FOR M0D6 

IF M0D6 SET FOR 
M0D6 TIMING 



CHECK FOR M0D7 

IF NOT M0D7 MOD NUMBER 
ERROR. GO REQUEST 
NEW MOD NUMBER 



* SEQUENCE CONTROL ROUTINE 

* THIS ROUTINE CHECKS SWITCHES AND CONTROLS 

* SEQUENCE IN WHICH TEST ROUTINES ARE RUN. 

* 



0654 0000 

0655 C08A 

0656 1 4C08 0662 



CNTRL DC 
LD 
BSC 



0658 
065A 
065B 
065D 
065E 
0660 



1 D400 05DD 

901A 

1 4C08 0669 

1810 

1 D400 05E0 
1 D400 05DD 



0662 1 7401 05DD 
0664 1 C400 05DD 

0666 900F 

0667 44B0 0164 



0669 
066B 
066D 
066F 
0671 
0673 



6580 05DD 
C500 0676 
D400 05DE 
D400 05E6 
D400 0165 
4480 0161 



CN10 



CN20 



* 
CN30 



STO 

S 

BSC 

SRA 

STO 

STO 

MDX 
LD 
S 
BSI 

LDX 

LD 

STO 

STO 

STO 

BSI 



/OOOO 

SW1 

CN20,£ 

RID 

RIDCK 

CN30.6 

16 

SW1 

RID 

RID.l 
RIO 
RTNOM 
END.-Z 



BR IF NO RTN SELECTD 

SAVE NEW RTN NUMBER 

BR IF VALID RTN 

IF INVALID RTN GO 
TO RTN ONE 

ADV TO NEXT RTN 
CHECK FOR END OF 
NORMAL SEQUENCE 
END OF PROGRAM 



*1 



II RID 

LI RTTBL-1 



RAD 

MLSCF61 

RTNSW 

START 



XRlftNEW ROUTINE NUMBER 
FETCH RETURN ADRS 
STORE NEW RTN ADDRS 
SET MLSCF FOR RETURN 
SET RTN START SW 
GO TO MONITOR 



0675 0005 

0676 0004 



RIDCK DC 
RTNOM DC 
* 



LRTN-RTTBL61 
NRTN-RTTBL61 



*2 



ROUTINE ADDRESS TABLE 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 

419643 



32F01390 

32F01400 

32F01410 

32F01420 

32F01430 

32F01440 

32F01450 

32F01460 

32F01470 

32F01480 

32F01490 

32F01500 

32F01510 

32F01520 

32F01530 

32F01540 

32F01550 

32F01560 

32F01570 

32F01580 

32F01590 

32F01600 

32F01610 

32F01620 

32F01630 

32F01640 

32F01650 

32F01660 

32F01670 

32F01680 

32F01690 

32F01700 

32F01710 

32F01720 

32F01730 

32F01740 

32F01750 

32F01760 

32F01770 

32F01780 

32F01790 

32F01800 

32F01810 

32F01820 

32F01830 

32F01840 

32F01850 

32F01860 

32F01870 

32F01880 

32F01890 

32F01900 

32F01910 

32F01920 

32FO1930 

32F01940 

32F01950 

32F01960 

32F01970 

32F01980 

32F01990 

32F02000 

32F02010 

32F02020 

32F02030 

32F02040 

32F02050 

32F02060 



PROG ID 
PAGE 



032F-2 
2 



DATE 
EC NO. 



















32FO2070 




0677 1 


0686 




RTTBL 


DC 




TST01 


DELAY PUNCH DATA 


32FO2080 




0678 1 


06E7 






DC 




TST02 


REAO AND COMPARE 


32F0209O 




0679 1 


0721 






OC 




TST03 


GRAPH PUNCH TIME 


32F0210O 




067A 1 


073C 




NRTN 


DC 




TST04 


GRAPH READ TIME 


32F02U0 




067B 1 


0752 




LRTN 

* 
* 
* 


OC 




TST05 
1442 MODEL 


MODIFY DATA 
. 6 COLUMN INTRPT TIMES 


32 F 02 120 
32F0213O 
32F02140 
32F02150 




067C 


0000 






BSS 


E 






32F02160 




067C 


37DC 




P6TM 


DC 




14300 




32F02170 




067D 


2968 






DC 




10600 


MIN PUNCH TIME 


32F02180 




067E 


0640 




R6TM 


DC 




1600 


MAX REAO TIME 


32F02190 




067F 


0384 






DC 




900 


MIN READ TIME 


32F02200 




0680 


2FA8 




P6AVG 


DC 




12200 


AVG PUNCH TIME 


32F02210 




0681 


0514 




R6AVG 


DC 




1300 


AVG READ TIME 


32F02220 




0682 


0000 




* 
MODNM 


DC 




*-* 


MOD NUM £ SPEED SW 


32F02230 

32FO2240 




0683 


0000 




PONLY 


DC 







PUNCH ONLY SW 


32F02250 




0684 


0001 




ONE 


DC 




1 




3,iF02260 




0685 


0005 




FIVE 

* 
* 


DC 




5 




32F02270 
32F02280 
32F02290 










**#**tHr*************** 1 tHiZ*4L*ZZ*tZXXZ a .Z i f 9Sf *** 


32FO23O0 










* 






TEST ROUTINE 01 - DELAY PUNCH 


32F02310 










*****»***************************<<,-**«$.>.**,: 


32F02320 










* 


THIS 


i ROUTINE PUNCHES CARDS USING DATA 


32F02330 










* 


PREVIOUSLY SET IN 


THE DATA TABLE. IT PUNCHES 


32F02340 










* 


THE 


FIRST 80 CARDS 


. WITH MAXINUM PUNCH DELAY. 


32F02330 










* 


THE 


DELAY IS THEN 


DECREASED ONE INCREMENT 


32F02360 










* 


FOR 


EACH 80 CARDS 


PUNCHED. PUNCH COLUMN 


32F02370 










* 


INTERRUPT TIME IS 


ALSO CHECKED. 


32F02380 
32F02390 
























# 










32F024O0 




0686 


6102 




TST01 


LDX 


1 


2 




32F02410 




0687 1 


6600 


0A72 




LDX 


L2 


ALDBK 




32F02420 




0689 1 


4400 


09F2 




BSI 


L 


TYPE 


PRINT MSG- LOAD BLANKS 


32F02430 




068B 


10A0 






SLT 




32 




32F02440 




068C 1 


DC 00 


0818 




STD 


L 


TAVG 




32F02450 




068E 1 


0400 


081A 


* 


STO 


L 


AVGCT 




32F02460 
32F02470 




0690 


C053 




T010 


LD 




PDMAX 




32F02480 




0691 


D04F 






STO 




POLAY 


RESET PUNCH DELAY 


32F02490 




0692 


684F 




* 


STX 




PDWAS 




32F025O0 
32F02510 




0693 


6150 




T011 


LDX 


1 


80 


INITIALIZE PUNCH TABLE 


32F02520 




0694 1 


C500 


0AD2 




LD 


LI 


PDATA-1 




32F02530 




0696 


1804 






SRA 




4 


CLEAR TERM BITS 


32F02540 




0697 


1004 






SLA 




4 




32F02550 




0698 1 


D500 


0AD2 




STO 


LI 


PDATA-1 




32F02560 




069A 1 


0500 


0B22 




STO 


LI 


PDATA679 


STO IN IMAGE TABLE 


32F02570 




069C 


71FF 






MDX 


1 


-1 




32F02580 




069D 


70F6 




* 


MDX 




T011G1 




32F02590 
32F02600 




069E 1 


6500 


0AD3 


T012 


LDX 


LI 


PDATA 


SET FOR START OF 


32F02610 




06A0 


6927 




* 


STX 


1 


T014C1 


ROTATE PATTERN 


32F02620 
32F0263O 




06A1 1 


C400 


05E1 


T013 


LD 


L 


SW2 


CK SW2 FOR CONSTANT DELAY 


32F02640 




06A3 


100C 






SLA 




12 


CLEAR HIGH ORDER BITS 


32F02650 




06A4 


180C 






SRA 




12 




32F02660 




06A5 
06A6 


4820 
D03A 




* 


BSC 
STO 




Z 
PDLAY 




32F02670 
32F02680 
32F02690 




06A7 1 


7400 


0683 




MDX 


L 


PONLY 


SKIP IF NOT MOD 


32F02700 




06A9 


7002 






MDX 




*G2 




32F02710 




06AA 1 


4400 


07D7 


* 


BSI 


L 


CKBLK 


CK FOR BLANK CARD 


32FO2720 
32F02730 




06AC 


C034 






LD 




PDLAY 




32F02740 




02JAN66 01MAY66 


15N0V66 








PROG ID 


032F-2 
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415490B 
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PAGE 



2191228 

3A 



06A0 





F034 




06AE 


1 


4C18 


06C7 


06B0 


1 


6780 


06E1 


06b2 





662F 




0663 


1 


C700 


0AC3 


06B5 


1 


0400 


0AC1 


06B7 





C02D 




06B8 





A028 




06B9 





1090 




06BA 





802B 




06BB 


1 


D400 


OAOO 


06BD 





6106 




06BE 


1 


6600 


OABA 


06C0 





6301 




06C1 


1 


6F00 


09FD 


06C3 


1 


4400 


09F2 



06C5 1 6C00 08FD 
06C7 6700 0000 
06C9 1 4400 0765 

06CB 1 4400 0796 
06C0 1 0912 
06CE 1 0913 
06CF 1 4400 0822 

06U1 1 7401 06C8 
06U3 C0F4 
06U4 900E 
0605 1 4C08 06A1 



06U7 1 C400 050F 
06U9 1009 
060A 6306 
06UB 1 4410 07C6 

0600 1 74FF 06E1 
06UF 70BE 
06E0 70AF 

06E1 0000 
06E2 0000 
06E3 1 0B22 
06E4 0004 



06E5 0025 
06E6 00B9 



06E7 C09B 
06E8 1 4420 0654 
06EA 6103 
06E8 1 6600 0AB2 
06ED 1 4400 09F2 



T014 



EOR 




PDWAS 


BSC 


L 


T014,t- 


LDX 


13 


PDLAY 


STX 


3 


PDWAS 


LO 


L3 


ADFCTS2 


STO 


L 


ADFCT 


LD 




DINCR 


M 




PDLAY 


SLT 




16 


A 




PDBAS 


STO 


L 


MAXPD 


LDX 


1 


6 


LDX 


L2 


APDLY 


LDX 


3 


1 


STX 


L3 


SMSGt2 


BSI 


L 


TYPE 


STX 


L 


LOOP 


LDX 


L3 


*-* 


BSI 


L 


PONCH 


BSI 


L 


COMPR 


DC 




PCMAX 


DC 




PCMIN 


BSI 


L 


LOCK 


MDX 


L 


T014G1.1 


LD 




T014&1 


S 




ENOPD 


BSC 


L 


T013.6 



LD 
SLA 
LDX 
BSI 

MDX 
MDX 
MDX 



DC 
DC 



* 

PDLAY 
PDWAS 
ENDPD DC 
PDMAX DC 

* 
D 



I NCR DC 
DBAS DC 



IF PONCH DELAY CHANGED 

PRINT MSG 
XR3#PUNCH DELAY FACTOR 
SAVE LAST PONCH DELAY 
LD 1053 CODE 

STO DLY FACT CODE IN MSG 
LD PNCH DLY INCR 
MULT BY PNCH DLY FACTOR 

ADD PNCH DELAY BASE 
SET MAX PNCH DLY IN MSG 
MSG NUMBER 



SET MSG DATA CONTROL 
PRINT MSG- PUNCH DELAY 

SET LOOP ADDRS 
SET TO PUNCH DATA 



COMPARE COL INTRPT TIMES 



CK FOR LOCK ON FUNCTION 

ADV PUNCH ADDRS 

CK FOR END OF PUNCH 

DATA TABLE 
CONTINUE IF NOT END 



DEC PUNCH DELAY THEN RESTART 
PUNCH PATTERN 



SWO 
9 
3 6 

TYAVGt- 

PDLAY.-l 

T012 

T010 

*-* 
*-* 

PDATAE79 
4 



37 
185 



LOOK AT FORCE LOG SW 
SET MSG DATA CONTROL 
PRINT AVG COL TIME MSG 



IF ZERO RESET 

PUNCH DELAY FACTOR 
LAST PUNCH DELAY SAVED 

MAX PUNCH DELAY INCR 



**************************** *************** 

TEST ROUTINE 02 - READ AND COMPARE 
************************* *** *** ***** ******* 

THIS ROUTINE READS THE CARD WHICH WERE 
PUNCHED BY ROUTINE ONE. IT COMPARE THE DATA 
WITH THE PUNCH DATA. IT ALSO CHECK THE READ 
COLUMN INTERRUPT TIME. 



ST02 LD 
BSI 
LDX 
LDX 
BSI 



PONLY 

CNTRL.Z 

3 

L2 ALPC 

L TYPE 



1 



SKIP IF NOT MOD 

BR IF MOD 

SET MSG NUMBER 

PRINT MSG- LOAD PNCHD CDS 



32F02750 
32F02760 
32F02770 
32FO2780 
32F02790 
32F02800 
32F02810 
32FO2820 
32F02830 
32F02840 
32F02850 
32F02860 
32F02870 
32F02880 
32F02890 
32F02900 
32F02910 
32F02920 
32F02930 
32F02940 
32F02950 
32F02960 
32F02970 
32F02980 
32F02990 
32F03000 
32F03010 
32F03020 
32F03030 
32F03040 
32F03050 
32F03060 
32F03070 
32F03080 
32F03090 
32F03100 
32F03110 
32F03120 
32F03130 
32F03140 
32F03150 
32F03160 
32F03170 
32F03180 
32F03190 
32F03200 
32F03210 
32F03220 
32F03230 
32F03240 
32F03250 
32F03260 
32F03270 
32F03280 
32F03290 
32FO33O0 
32F03310 
32F0332O 
32F03330 
32F03340 
32F03350 
32F03360 
32F03370 
32F03380 
32F03390 
32F03400 
32F03410 
32F03420 



06tF 





10A0 






SLT 




32 


06FO 


1 


DCOO 


0818 




STD 


L 


TAVG 


06F2 


1 


D400 


081A 




STO 


L 


AVUCI 


06F4 


1 


6500 


0AD2 


T021 


LDX 


LI 


PUATA-1 


061-6 





6907 




* 
T022 

* 


STX 


1 


T023C1 


06F7 


1 


4400 


0784 


BSI 


L 


READ 


061-9 





1810 






SRA 




16 


06FA 


1 


D400 


08E4 




STO 


L 


M 


06FC 





6101 




* 
T023 


LDX 


1 


1 


06FD 





C500 


0000 


LD 


LI 


*-* 


06FF 


1 


6D00 


09 18 




STX 


LI 


COL 


0701 





1804 






SRA 




4 


0702 





1004 






SLA 




4 


0703 


1 


D400 


090F 




STO 


L 


DATAC1 


0705 


1 


F500 


0B74 




EOR 


LI 


RTBL" 


0707 


1 


4420 


088B 




BSI 


L 


ERR9,Z 


0709 





7101 






MDX 


1 


1 



070A 1 C400 09 18 
070C 1 9400 090C 
070E 1 4C28 06FD 



LD L COL 
S L COLCT 

BSC L T023.CZ 



0710 


1 4400 


0796 


T024 


BSI 


L 


COMPR 


0712 


1 0914 






DC 




RDMAX 


0713 


1 0915 






DC 




RDM IN 



0714 1 7401 06FE 

0716 C0E7 

0717 90CB 

0718 1 4C28 06F7 

071A 1 C400 05DF 
071C 1009 
071D 630A 
071E 1 4410 07C6 
0720 70D3 



MDX L T02361.1 
LD T023U 

S ENDPD 

BSC L T022.6Z 



LD 

SLA 

LDX 

BSI 

MDX 



L SWO 
9 
3 /A 
L TYAVG,- 
T021 



SET hOH START UF PATTERN 



SET FUR FIRST ERROR 
XR3#C0LUMN COUNT 

LD OATA PUNCHED 
STO COLUMN COUNT 
CLEAR STOP PUNCH BIT 

STO DATA S/B 

COMPARE WITH DATA k E AD 

BR IF ERROR 

ADV TO NEXT COLUMN 

CHECK FOR LAST COL KfcfcU 

LOOP UNTIL LAST COL 

COMPARE COL INTRPT TIMES 



ADV COMPARE ADRS 
CK FOR END OF TABLE 

CONTINUE TO END OF PATTERN 



LOOK AT FORCE LOG SW 
SET MSG DATA CONTROL 
PRINT AVG COL TIME MSG 
REINITIALIZE 



0721 6102 

0722 1 6600 0A72 
0724 1 4400 09F2 

0726 1810 

0727 1 D400 06E1 



* 

***** 

* 

***** 

* 

* 

* 

* 

* 

* 

* 

* 

* 
TST03 



*************************************** 

TEST ROUTINE 03 - PUNCH TIME GRAPH 
********************************** ***** 

THIS TEST WILL STORE THE TIME BETWEEN PUNCH 
COLUMN INTERRUPTS WHILE PUNCHING A CARD. UN 
THE NEXT CARD IT WILL PUNCH A GRAPH WHICH 
DISPLAYS THE VARIATION IN COLUMN INT TIME FRM 
COLUMN TO COLUMN. THIS PROCESS WILL 6E 
REPEATED UNTIL THE LAST CARD INDICATOR IS 
SENSED. 



LDX 1 2 
LDX L2 ALDBK 
BSI L TYPE 



0729 





6150 




072A 


1 


0500 


0B74 


072C 





71FF 




072D 





70FC 




072E 


1 


6700 


OB75 


0730 


1 


4400 


0765 


0732 


1 


6CO0 


08FD 


Q734 


1 


6780 


0A02 



T031 



T032 



SRA 
STO 

LDX 
STO 
MDX 
MOX 
LDX 
BSI 
STX 
LDX 



16 
L PDLAY 

1 80 
LI RTBL 

1 -1 
T031 
L3 RTBLC1 
L PUNCH 
L LOOP 
13 PAVG 



PRINT MSG- LOAD BLANKS 



RESET PUNCH DELAY 



SET TO PUNCH BLANKS 
SET LOOP ADDRS 



32F03430 
32F03440 
32F03450 
32F03460 
32FO3470 
->2F034b0 
J^F03490 
3iF()3500 
32F03510 
32F03520 
32F03530 
3<:F03540 
3<Lt-OibbO 
3« F035f)0 
?zFU3V/0 
3/FuibtO 
3/F03590 
JJFU3600 
32FO<frlO 
32K.3o*-U 
3<;P03630 
?. F03640 
3^F03fr5C 
32F036oO 
32F036 ; U 
32F036EU 
32F03690 
32F037C0 
32FU3710 
3?F03 7^() 
3^FO-i7 -o 
32F03 /4() 
32F03 750 
32F037M) 
32F0377U 
5. F037MO 
32F03790 
3/F03800 
3^'U3blO 
32F03B20 
32F03830 
32F03B40 
3^F03850 
32F03860 
32FO3B70 
32F03880 
32F03890 
32F03900 
32F03910 
32F03920 
32F03930 
52F03940 
32F03950 
32F03960 
32F03970 
32F039B0 
32F03990 
32F04000 
32F04010 
32F04020 
32F04030 
32F04040 
32F04O50 
32F04060 
32F04070 
32F04080 
32F04090 
32F04100 



DATE 
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* 








M0D6 PAVG # 12200 


32F04110 








* 
* 








M0D7 PAVG # 6000 


32F04120 




0736 1 4400 


07E5 


BSI 


L 


GRAPH 


SET UP GRAPH 


32F04130 
32F04140 




0738 1 6700 
073A 402A 


0BC9 


* 
* 


LDX 
BSI 


L3 


1 TIMEf.2 
PUNCH 


SET TO PUNCH GRAPH 


32F04150 
32F04160 
32F04170 




0738 70F6 




MDX 




T032 


REPEAT UNTIL LAST CARD 


32F04180 
32F04190 








* 










32F04200 








************************************** tfififJf)f * 


32F04210 








* 






TEST ROUTINE 04 - READ TIME GRAPH 


32F04220 








***************************** ******t f t f ******* 


32F04230 








* 


THIS 


TEST WILL READ A BLANK CARD, STORE THE 


32F04240 








* 


TIME 


BETWEEN READ 


COLUMN INTERRUPTS, THEN 


32F04250 








* 


PUNCH A 


, GRAPH DISPLAYING THE VARIATION IN 


32F04260 








* 


COLUMN 


INTERRUPT 


TIME FROM COLUMN TO COLUMN. 


32F04270 








* 


THIS 


PROCESS WILL 


BE REPEATEO UNTIL THE LAST 


32F04280 








* 


CARD 


INDICATOR IS 


SENSED. 


32F04290 




* 










32F04300 




073C 1 C400 


0683 


TST04 LO 


L 


PONLY 




32F04310 
32F04320 
32F04330 
32F04340 
32F04350 
32F04360 
32F04370 
32F04380 




073E 1 4420 

0740 6102 

0741 1 6600 
0743 1 4400 

0745 1810 

0746 1 D400 


0654 

0A72 
09F2 

06E1 


* 
T041 


BSI 
LDX 
LDX 
BSI 
SRA 
STO 


L 

I 
L2 
L 

L 


CNTRL, Z 

2 

ALDBK 

TYPE 

16 

PDLAY 


BR IF MOD 5 

PRINT MSG- LOAD BLANKS 
RESET PUNCH DELAY 




0748 1 4400 


0707 


BSI 


L 


CKBLK 


READ A BLANK CARD 


32F04390 
32F04400 




074A 1 6780 


0A03 


* 
* 


LDX 


13 


RAVG 


XR3#READ TIME AVG 
M0D6 RAVG # 1300 
M0D7 RAVG # 1000 


32F04410 
32F04420 
32F04430 
32F04440 




074C 1 4400 


07E5 




BSI 


L 


GRAPH 


SET UP GRAPH 


32F04450 
32F04460 




074E 1 6700 
0750 4014 


0BC9 


* 


LDX 
BSI 


L3 


TIME62 
PUNCH 


SET TO PUNCH SRAPH 


32F0*470 
32F04480 




0751 70F6 




* 
***** 


MDX 




T041 


REPEAT UNTIL LAST CARD 


3 2F 04490 
32F04500 








************* ************************** 


32F04510 
32F04520 








* 






TEST ROUTINE 05 - MODIFY DATA 


32F04530 








************************************* ]): i : +si r ** 


32F04540 








* 


THIS 


ROUTINE WILL 


READ ONE DATA CARD AND 


32F04550 








* 


REPLACE 


THE PUNCH 


DATA TABLE WITH THE DATA 


32F04560 








* 


CONTAINED ON THAT 


CARD. THE ROUTINE WILL 


32F04570 








* 


THEN 


RESTART THE PROGRAM FROM ROUTINE ONE. 


32F04580 




* 










32F04590 




0752 4031 




TST05 

* 


BSI 




READ 


READ A CARD 


32F04600 
32F04610 




0753 1 6780 
0755 1 C700 


090C 
0B74 


T051 


LDX 
LD 


13 
L3 


COLCT 
RTBL 


XR3#C0LUMN COUNT 
LOAD DATA READ 


32F04620 
32F04630 
32F04640 




0757 1 D700 
0759 73FF 
075A 70FA 


0AD2 


♦ 


STO 
MOX 
MDX 


L3 
3 


PDATA-1 

-1 

T051 


STO IN PUNCH TABLE 
GO TO NEXT COLUMN 
LOOP UNTIL LAST COL 


32F04650 
32F04660 
32F04670 




075B 1 6C00 
075D 1 4400 


05E0 
0654 


* 


STX 
BSI 


L 
L 


SW1 
CNTRL 


S-ET CNTRL TO RESTART RTN 1 
GO TO CNTRL RTN 


32F046 80 
32F04690 
32F04700 
















32F04710 




* 










32F04720 




0760 OOOO 






BSS 


E 






32F04730 




0760 OOOO 




STRD 


DC 


*— * 




32F04740 




0761 1404 

0762 OOOO 

0763 1401 




STPCH 


DC 

DC 
DC 




/1404 

*-* 

/1401 


START READ IOCC 
START PUNCH IOCC 


32F04750 
32F04760 
32F04770 
32F04780 


DATE 


02JAN66 01MAY66 


15N0V66 








PROG ID 

D A nc 


EC NO. 


415490 415490B 


419643 









0764 OOOO 



0765 





oooo 




PUNCH DC 




*-* 


0766 


1 


6F00 


0960 


STX 


1 3 


COLPC 


0768 





734F 




MOX 


3 


79 


0769 





6BFA 




STX 


3 


PTERM 


076A 





C300 




LO 


3 





076B 


1 


ECOO 


0821 


OR 


1 


K0008 


076D 





D300 




STO 


3 





076E 


1 


4400 


09B8 


BSI 


1 


READY 


0770 


1 


6500 


0A5F 


LDX 


1 1 


APCH 


0772 


1 


6D00 


0903 


STX 


LI 


OP 


0774 


1 


6C00 


08E6 


STX 


1 


RPSW 


0776 





6150 




LDX 


1 


80 


0777 





08EA 




XIO 




STPCH 


0778 


1 


4400 


0919 


BSI 


1 


WAIT 


077A 


1 


4C90 


08FD 


BSC 

* 

LD 


I 


LOOP,- 


077C 


1 


C480 


0764 


I 


PTERM 


077E 





1804 




SRA 




4 


077F 





1004 




SLA 




4 


0780 


1 


D480 


0764 


STO 


I 


PTERM 



PTERM DC *-* 
* 

************* is*****************,**,.;**,^,,; .„ 

* PUNCH 

*********************** V******-;,;^*******-**- 

* THIS SUBROUTINE PUNCHES ONE CARD 

* THEN CHECKS FOR PUNCH ERRORS 

* THE ADDRESS OF THE PUNCH DATA TABLE MUST BE 

* IN XR3 UPON ENTRY. 

* 



SET TO PUNCH 1ST COL 
SET TERMINATOR IN 
PUNCH DATA 



0782 1 4C80 0765 



BSC I PUNCH 



CK FOR READY 



SET RD/PCH SW TO PCH 
SET COL COUNT 
START PUNCH 
WAIT FOR INTERRUPT 



REMOVE TERMINATOR 



RETURN 



*********** 

* 

*********** 

* THIS 

* CHECK 

* 



************************ ** t , Sf - lf ^ t . ^ # 

READ 
******* *********************** 9JfV . 

SUBROUTINE READS ONE CARD THEN 
S FOR READ ERRORS. 



0784 

0785 1 
0787 1 
0789 1 
078B 
078C 1 
078E 
078F 1 
0791 1 



OOOO 

4400 09B8 
6500 0A5C 
6D00 0903 
1010 

D400 08E6 
6150 

OCOO 0760 
4400 0919 



* 
READ 



0793 1 4CA8 0784 
0795 70EF 



DC 

BSI 

LDX 

STX 

SLA 

STO 

LOX 

XIO 

BSI 

BSC 
MDX 



*-* 
L READY 
LI ARD 
LI OP 

16 
L RPSW 

1 80 
L STRD 
L WAIT 

I READ,6Z 
READC1 



CHECK FOR READY 



SET RD/PCH SW TO RD 
SET COL COUNT 
START READ 
WAIT FOR INTERRUPT 

RETURN 



0796 OOOO 



032F-2 

4 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



* 

* 

*********** 

* 

*********** 

* THIS 

* FALLS 

* IT AL 

* COUNT 

* CALCU 

* 

* 

COMPR DC 

* 



15N0V66 
419643 



************ *************-* ******* 

COMPARE COLUMN TIME 
**************** ************#***** 
SUBROUTINE CHECKS THAT COLUMN TIME 

WITHIN MINIMUM AND MAXIMUN LIMITS. 
SO ADDS ALL COLUMN TIMES AND KEEPS 

OF THE NUMBER COLUMNS FOR 
LATION OF COLUMN TIME AVERAGE. 



32F04790 

32F04800 

32F04810 

32F04820 

32F04830 

32F04840 

32F04850 

32F04860 

32F04870 

32F04880 

32F04890 

32F04900 

32F04910 

32F04920 

32F04930 

32F04940 

32F04950 

32F04960 

32F04970 

32F04980 

32F04990 

32FO5OO0 

32F05010 

32FU5020 

32FO503O 

32F05040 

32F05050 

32F05060 

32F05070 

32F050BO 

32F05090 

32F05100 

32F05110 

32F05120 

32F05130 

32F05140 

32F05150 

32F05160 

32F05170 

32F05180 

32F05190 

32F05200 

32F0521O 

32F05220 

32F05230 

32F05240 

32FO5250 

32F05260 

32F05270 

32F05280 

32F05290 

32F05300 

32F05310 

32F05320 

32F05330 

32F05340 

32F05350 

32F05360 

32F05370 

32F05380 

32F05390 

32F05400 

32F05410 

32F05420 

32F05430 

32F05440 

32F05450 

32F05460 
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0797 


1 


6580 


0796 




LDX 


11 


COMPR 


0799 





6301 




# 


LDX 


3 


1 


079A 





7301 




C0MP1 


MDX 


3 


1 


079B 


1 


6F00 


0918 




STX 


L3 


COL 


079D 


1 


C400 


0918 




LD 


L 


COL 


079F 


1 


9400 


09 OC 




S 


L 


COLCT 


07A1 


1 


4C30 


07BB 


* 


BSC 


L 


C0MP3,-Z 


07A3 





C580 


0000 


LD 


11 





07A5 


1 


9700 


0BC7 




S 


L3 


TIME 


07A7 


1 


4408 


08A3 


« 


BSI 


L 


ERR10.C 


07A9 





C580 


0001 


LD 


U 


1 


07AB 


1 


9700 


0BC7 




S 


L3 


TIME 


07AD 


1 


4410 


08B0 


* 
C0MP2 


BSI 


L 


ERR11,- 


07AF 


1 


C700 


0BC7 


LD 


L3 


TIME 


07B1 





1890 






SRT 




16 


07B2 





8865 






AD 




TAVG 


07B3 





D864 






STD 




TAVG 


07B4 


1 


7401 


081A 




MDX 


L 


AVGCT,1 


07B6 





70E3 




* 


MDX 




C0MP1 


07b7 





10A0 






SLT 




32 


07B8 





D061 






STO 




AVGCT 


07B9 





D85E 






STD 




TAVG 


07BA 





70DF 




W 


MDX 




C0MP1 


07BB 


1 


C400 


05DF 


C0MP3 


LO 


L 


SWO 


07BD 





1009 






SLA 




9 


07BE 





6700 


8002 




LDX 


L3 


/8002 


07C0 


1 


4428 


07C6 


* 


BSI 


L 


TYAVGtCZ 


07C2 


1 


7402 


0796 


MDX 


L 


COMPR, 2 


07C4 


1 


4C80 


0796 




BSC 


I 


COMPR 



XR1#CALL ADDRS61 
XR3#C0L NUMBER 

ADV COL NUMBER 

LD COL NUMBER 
COMPARE WITH COL CNT 
CK ON PRINT AVG 

LD MAX COL TIME 
COMPARE WITH ACTUAL 
BR IF TO LONG 

LD MIN COL TIME 
COMPARE WITH ACTUAL 
BR IF TO SHORT 

TOTAL ALL COL TIME FOR AVG 



ADV COL CNT FOR AVG CALC 



RESET IF OVER FLOW COL CNT 



LOOK AT FORCE LOG SW 
SET DATA CONTROL 
PRINT AVG COL TIME MSG 



******************************************** 

* PRINT COLUMN INTERRUPT AVERAGE TIME 
******************************************** 

* THIS SUBROUTINE CALCULATES THE COLUMN TIME 

* AVERAGE THEN PRINTS THE AVERAGE MESSAGE. 

* 

* 



07C6 





0000 




TYAVG DC 




*_* 


07C7 





C850 




LDD 




TAVG 


07C8 





A851 




D 




AVGCT 


07C9 


1 


D400 


OAOl 


STO 


L 


CTAVG 


07CB 





6107 




LDX 


1 


7 


07CC 


1 


6600 


0A9E 


LDX 


L2 


ACOLT 


07CE 


1 


6F00 


09FD 


STX 


L3 


SMSG62 


07D0 


1 


4400 


09F2 


BSI 
* 

SLT 


L 


TYPE 


07D2 





10A0 






32 


07D3 





D844 




STD 




TAVG 


07D4 





D045 




STO 




AVGCT 


07D5 


1 


4C80 


07C6 


BSC 


I 


TYAVG 



07D7 0000 
07D8 1 6C00 08FD 
07DA 40A9 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



CALCULATE AVG 

SET IN MSG 
SET MSG NUMBER 

SET MSG DATA CONTROL 



RETURN 

******************************************** 

* CHECK FOR BLANKS 
******************************************** 

* THIS SUBROUTINE CHECKS EACH CARD BEFORE 

* IT IS PUNCHED TO VERIFY THAT IT IS BLANK. 

* 

* 

CKBLK DC 

STX L LOOP 

BSI REAO READ A CARD 



15N0V66 
419643 



32F05470 
32F05480 
32F05490 
32F05500 
32F05510 
32F05520 
32F05530 
32F05540 
32F05550 
32F05560 
32F05570 
32F05580 
32F05590 
32F05600 
32F05610 
32F05620 
32F05630 
32F05640 
32F05650 
32F05660 
32F05670 
32F05680 
32F05690 
32F05700 
32F05710 
32F05720 
32F05730 
32F05740 
32F05750 
32F05760 
32F05770 
32F05780 
32F05790 
32F05800 
32F05810 
32F05820 
32F05830 
32F05840 
32F05850 
32F05860 
32F05870 
32F05880 
32F05890 
32F05900 
32F05910 
32F05920 
32F05930 
32F05940 
32F05950 
32F05960 
32F05970 
32F05980 
32F05990 
32F06000 
32F06010 
32F06020 
32F06030 
32F06040 
32F06050 
32F06060 
32F06070 
32F06080 
32F06 090 
32F06100 
32F06110 
32F06120 
32F06130 
32F06140 



PROG 10 
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5 













* 










32F06150 






07UB 


1 


6780 


090C 




LDX 


13 


COLCT 


VERIFY THAT CARO 


32F06160 






07UD 


1 


C700 


0B74 


CKB01 


LD 


L3 


RTBL 


IS BLANK BEFORE 


32F06170 






07UF 


1 


4C20 


082C 




BSC 


L 


ERRO.Z 


PUNCHING IT 


32F06180 






07E1 





73FF 






MDX 


3 


-1 




32F06190 






07fc2 





70FA 






MDX 




CKB01 


LOOP UNTIL LAST COL 


32F06200 






07E3 


1 


4C80 


07D7 


* 


BSC 


I 


CKBLK 


RETURN 


32F06210 
32F06220 














******************************************** 


32F06230 














* 






GRAPH SETUP 


32F06240 














******************************************** 


32F06250 














* 


THIS 


SUBROUTINE WILL CALCULATE A GRAPH 


32F06260 














* 


POINT FOR EACH COLUMN TIME. THIS SET OF 


32F06270 














* 


GRAPH POINTS WILL BE PUNCHED ON THE NEXT 


32F06260 














* 


CARD 


. 


fHE SCALE 


CAN BE CHANGED WITH A 


32F06290 














* 


FNC 


3 BIT SWITCH 


ENTRY. 


32F06300 
32F06310 




































* 










32F06320 






07E5 





0000 




GRAPH 


DC 




*-* 




32F06330 






07E6 





6B36 






STX 


3 


AVG 


STO AVG TIME 


32F06340 






07E7 





6201 






LDX 


2 


1 




32F06350 






07E8 





6A33 




* 


STX 


2 


TEMPC1 


SET SCALE FACTOR 


32F06360 
32F06370 






07E9 


1 


C400 


05E2 




LD 


L 


SW3 


CK FOR NEW SCALE ENTRY 


32F06380 






07EB 





100C 






SLA 




12 


CLEAR UNWANTED BITS 


32F06390 






07EC 





180C 






SRA 




12 




32F06400 






07E0 





4820 






BSC 




Z 


SKIP IF NO NEW SCALE 


32F06410 






07EE 





D02D 




* 


STO 




TEMP61 




32F06420 
32F06430 






07EF 


1 


6780 


090C 




LDX 


13 


COLCT 


XR3#C0L CNT 


32F06440 






07F1 





73FF 






MOX 


3 


-1 




32F06450 






07F2 





C029 






LD 




TEMPC1 


LOAD SCALE FACTOR 


32F06460 






07F3 





A02B 






M 




HUND 


CAL SCALE 


32F06470 






07F4 





1090 






SLT 




16 




32F06480 






07F5 





D028 




* 


STO 




SCALE 


SAVE SCALE 


32F06490 
32F06500 






07F6 





C026 




GRPH1 


LD 




AVG 


LD AVG TIME 


32F06510 






07F7 


1 


9700 


0BC8 




S 


L3 


TIMEtl 


SUB ACTUAL TIME 


32F06520 






07F9 





1890 






SRT 




16 




32F06530 






07FA 





A823 






D 




SCALE 


DIVIDE BY SCALE 


32F06540 






07FB 





D01F 






STO 




TEMP 




32F06550 






07FC 


1 


6580 


081B 




LDX 


11 


TEMP 




32F06560 






07FE 





7104 






MDX 


1 


4 


XR1#GRAPH BIT POSITION 


32F06570 






07FF 





1000 






NOP 








32F06580 






0800 





COIF 






LD 




K8000 


LD A BIT 


32F06590 






0801 





1900 






SRA 


1 





SHIFT TO GRAPH POSITION 


32F06600 






0802 





1804 






SRA 




4 




32F06610 






0803 





1004 






SLA 




4 




32F06620 






0804 


1 


D700 


0BC9 




STO 


L3 


TIME62 


STO GRAPH BIT IN PNCH BUF 


32F06630 






0806 





73FF 






MDX 


3 


-1 


ADV TO NEXT COL 


32F06640 






0807 





70EE 






MDX 




GRPH1 


LOOP UNTIL LAST COL 


32F06650 






0808 


1 


6780 


090C 




LDX 


13 


COLCT 




32F06660 






080A 


1 


C700 


0BC8 




LD 


L3 


TIMEU 




32F06670 






080C 





E814 






OR 




K0008 


SET LAST COL BIT 


32F06680 






0800 


1 


D700 


0BC8 


* 


STO 


L3 


TIME61 




32F06690 
32F06700 






080F 


1 


6580 


081C 




LDX 


11 


TEMPC1 


XR1#SCALE FACTOR 


32F06710 






0811 





7102 






MDX 


1 


2 




32F06720 






0812 





COOD 






LD 




K8000 


CONVERT SCALE FACTOR 


32F06730 






0813 





1900 






SRA 


1 





TO CARD IMAGE 


32F06740 






0814 


1 


0400 


0BC9 




STO 


L 


TIMEC2 


SET TO PUNCH IN CD COL ONE 


32F06750 






0816 


1 


4C80 


07E5 


* 


BSC 


I 


GRAPH 


RETURN 


32F06760 
32F06770 






0818 




0000 






BSS 


E 







32F06780 






0818 





0000 




TAVG 


OC 




*-* 


TOTAL COL TIME 


32F06790 






0819 





0000 






DC 




*-* 




32F06800 






081A 





0000 




AVGCT 


OC 




*-* 


COL CNT FOR AVG 


32F06810 






0S1B 





0000 




TEMP 


DC 




*-* 




32F06820 




DATE 


02JAN66 01MAY66 


15N0V66 








PROG ID 


032F-2 


EC NO. 


415490 415490B 


419643 








PAGE 
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PAGE 



2191228 
6A 



081C 0000 
081D 0000 
081E 0000 
081F 0026 

0820 8000 

0821 0008 





0822 





0000 




LOCK 


DC 




*-* 




0823 


1 


C400 


05DF 




LD 


L 


SWO 




0825 





EC80 


0166 




OR 


I 


ERLCK 




0827 





100A 






SLA 




10 




0828 


1 


4C90 


0822 




BSC 


I 


LOCK,- 




082A 


1 


4C80 


08FD 


# 


BSC 


I 


LOOP 












* 












* 






ERROR M 
















082C 





6100 




ERRO 


LDX 


1 







082D 





6200 






LDX 


2 


/OOOO 




082E 


1 


CCOO 


08CE 




LDD 


L 


MS60 




0830 


1 


6C00 


08F9 




STX 


L 


OPMSW 




0832 


1 


4400 


08EC 




BSI 


L 


ETYPE 




0834 


1 


OCOO 


08E6 




XIO 


L 


STACK-1 




0836 


1 


4C80 


07D7 


* 
ERR1 


BSC 


I 


CKBLK 




0838 





0000 




DC 




#-* 




0839 


1 


7400 


08E5 




MDX 


L 


ERR5S.0 




083B 





7008 






MOX 




ERRIA 




083C 





6101 






LDX 


1 


1 




083D 





6203 






LDX 


2 


/3 




083E 


1 


CCOO 


08D0 




LDD 


L 


MSG1 




0840 


1 


6C00 


08F9 




STX 


L 


OPMSW 




0842 


1 


4400 


08EC 


* 
ERRIA 


BSI 


L 


ETYPE 




0844 





1011 




SLA 




17 




0845 


1 


D400 


08E5 




STO 


L 


ERR5S 




0847 


1 


4C80 


0838 


* 
ERR2 


BSC 


I 


ERR1 




0849 





0000 




DC 




*-* 




084A 


1 


CCOO 


08E8 




LDD 


L 


BDSW 




084C 


1 


DCOO 


090A 




STD 


L 


DSW 




084E 





6102 






LDX 


1 


2 




084F 





6203 






LDX 


2 


3 




0850 


1 


CCOO 


0802 




LDD 


L 


MSG2 




0852 


1 


4400 


08EC 




BSI 


L 


ETYPE 




0854 


1 


4C80 


0849 




BSC 


I 


ERR2 




0856 





0000 




ERR5 


DC 




*-* 




0857 


1 


6C00 


08E5 




STX 


L 


ERR5S 




0859 





6600 


0003 




LDX 


L2 


3 




085B 


1 


F400 


08EA 




EOR 


L 


DSW4 




085D 


1 


D400 


08EB 




STO 


L 


DSW461 




085F 


1 


CCOO 


08EA 




LDD 


L 


DSW4 




0861 


1 


DCOO 


090A 




STD 


L 


DSW 




0863 





1002 






SLA 




2 




0864 


1 


4C28 


086D 


# 


BSC 


L 


ERR6.SZ 




0866 





6105 






LDX 


1 


5 




0867 


1 


CCOO 


0806 




LDD 


L 


MSG5 




0869 


1 


4400 


08EC 




BSI 


L 


ETYPE 




086B 


1 


4C80 


0856 


ERR5R 

* 


BSC 


I 


ERR5 


DATE 


02JAN66 01MAY66 


15N0V66 






EC NO. 


41549C 


1 415490B 


419643 







DC *-* 

AVG DC *-* 

SCALE DC *-* 

HUND DC 38 

K8000 DC /8000 

K0008 DC /0008 
* 

* LOCK ON FUNCTION ROUTINE 

* 



LD SWO 

COMB WITH MONITOR SWO 

CHECK LOCK SW 

BR IF NOT LOCK ON FUNC 

LOOP ON LAST FUNC 



CARD NOT BLANK 



PRINT ERR MSG 



STATIC DSW ERROR 
IF PREVIOUS ERR5 
DO NOT PRINT THIS MSG 



PRINT ERR MSG 

RESET ERR5 SW 

BUSY DSW ERROR 

SET BUSY DSW IN MSG 

PRINT ERR MSG 



INTRPT 4 DSW ERROR 
SET ERROR 5 SW 
SET DATA ID 
GET DSW S/B 
SET IN MSG 

SET DSW IN MSG 
LOOK FOR ERR CK 
BR IF ERR CK 



PRINT ERR MSG 



32F06830 
32F06 840 
32F06850 
32F06860 
32F06870 
32F06880 
32F06890 
32F06900 
32F06910 
32F06920 
32F06930 
32F06940 
32F06950 
32F06960 
32F06970 
32F06980 
32F06990 
32F07000 
32F07010 
32F07020 
32F07030 
32F07040 
32F07050 
32F07060 
32F07070 
32F07080 
32F07090 
32F07100 
32F07110 
32F07120 
32F07130 
32F07140 
32F07150 
32F07160 
32F07170 
32F07180 
32F07190 
32F07200 
32F07210 
32F07220 
32F07230 
32F07240 
32F07250 
32F07260 
32F07270 
32F07280 
32F07290 
32FO7300 
32F07310 
32F07320 
32F07330 
32F07340 
32F07350 
32F07360 
32F07370 
32F07380 
32F07390 
32F07400 
32F07410 
32F07420 
32F07430 
32F07440 
32F07450 
32F07460 
32F07470 
32F07480 
32F07490 
32F07500 



PROG ID 
PAGE 



032F-2 

6 





086D 


1 


C400 


08E6 


ERR6 


LD 


L 


RPSW 


CK FOR PUNCH OPERATION 


32F07510 






086F 


1 


4C08 


087F 




BSC 


L 


ERR7 t £ 


BR IF NOT PUNCH 


32F07520 






0871 


1 


OCOO 


095E 




XIO 


L 


COLRD 


RD ECHO BITS 


32F07530 






0873 


1 


C480 


095E 




LD 


I 


COLRO 




32F07540 






0875 


1 


4C18 


087F 




BSC 


L 


ERR7,&- 


BR IF NOT PUNCH CK 


32F07550 






0877 


1 


D400 


090A 




STO 


L 


DSW 


STO ECHO IN MSG 


32F07560 






0879 





6106 






LDX 


1 


6 




32F07570 






087A 





6203 






LDX 


2 


/3 




32F07580 






087B 





C85C 






LDD 




MSG6 




32F07590 






087C 


1 


4400 


08EC 




BSI 


L 


ETYPE 


PRINT ERR MSG 


32F07600 






087E 





70EC 




* 


MDX 




ERR5R 




32F07610 
32F07620 






087F 





6107 




ERR7 


LDX 


1 


7 


ERR CK 


32F07630 






0880 





C859 






LDD 




MSG7 




32F07640 






0881 


1 


4400 


08EC 




BSI 


L 


ETYPE 


PRINT ERR MSG 


32F07650 






0883 





70E7 




* 


MDX 




ERR5R 




32F076oO 
32F07670 






0884 





0000 




ERR8 


DC 




*-* 


COL COUNT ERROR 


32F07680 






0885 





6108 






LDX 


1 


8 




32F07690 






0886 





620C 






LDX 


2 


/C 




32F07700 






0887 





C854 






LDD 




MSG8 




32F07710 






0888 





4063 






BSI 




ETYPE 


PRINT ERR MSG 


32F07720 






0889 


1 


4C80 


0884 


* : , 


BSC 


I 


ERR8 




32F07730 
. 32F07740 






088B 





0000 




ERR9 


DC 




»-* 


DATA COMPARE ERROR 


32F07750 






088C 


1 


F400 


090F 




EOR 


L 


DATAS1 


RESTORE TO DATA WAS 


32F0776O 






088E 


1 


0400 


090E 




STO 


L 


DATA 




32F07770 






0890 





6900 






STX 


1 


RX1C1 


SAVE XR1 


32F07780 






0891 





10A0 






SLT 




32 




32F07790 






0892 





6600 


C030 




LDX 


L2 


/C030 


SET FOR MULTI LINE MSG 


32F07800 






0894 


1 


7400 


08E4 




MDX 


L 


M 


CHECK FOR MULTI LINE 


32F07810 






0896 





7005 






MDX 




ERR9A 


BR IF FIRST LINE 


32F07820 






0897 





684C 






STX 




M 


SET MULTI LINE WORD 


32F07830 






0898 





6109 






LDX 


1 


9 


MESSAGE NUMBER 


32F07840 






0899 





6600 


4030 




LDX 


L2 


/40 30 


SET WORD CNTL 


32F07850 






089B 





C842 






LDD 




MSG9 




32F07860 






089C 





404F 




ERR9A 


BSI 




ETYPE 


ERROR TYPE OUT 


32F07870 






089D 





♦500 


0000 ', 


R»l 


LDX 


LI 


*-* 


RESTORE XR1 


32F07880 






089F 


1 


OCOO 


08E6 




XIO 


L 


STACK-1 


SELECT ERROR CARD 


32F07890 






08A1 


1 


4C80 


088B 


* 
* 


BSC 


I 


ERR9 


RETURN 


32F07900 
32F07910 
32F07920 






08A3 





0000 




ERR10 


DC 




*-* 




32F07930 






08A4 





6923 






STX 


1 


EXR1S1 


STO XR1 


32F07940 






08A5 





6B24 






STX 


3 


EXR3S1 


STO XR3 


32F07950 






08A6 





6110 






LDX 


1 


/10 


COL INTRPT SLOW 


32F07960 






08A7 





C838 




* 


LDD 




MSG10 




32F07970 
32F07980 






08A8 





6600 


4180 




LDX 


L2 


/4180 


SET FOR PUNCH MSG 


32F07990 






08AA 


1 


7400 


08E6 




MDX 


L 


RPSW 


CK PUNCH/READ SW 


32F08000 






08AC 





7010 






MDX 




ERX 


BR IF PUNCH 


32F08010 






08AD 





6600 


4480 




LDX 


L2 


/4480 


SET FOR READ MSG 


32F08020 






08AF 





7000 




* 


MDX 




ERX 




32F08030 
32F08040 






08BO 





0000 




ERR11 


DC 




*-* 




32F08050 






08B1 





6916 






STX 


1 


EXRlfU 


STO XR1 


32F08060 






08B2 





6B17 






STX 


3 


EXR3G1 


STO XR3 


32F08070 






08B3 





6111 






LDX 


1 


/ll 


COL INTRPT FAST 


32F08080 






08B4 





C82D 




* 


LDD 




MSG11 




32F08090 
32F08100 






08B5 





6600 


4280 




LDX 


L2 


/42 80 


SET FOR PUNCH MSG 


32F08110 






08B7 


1 


7400 


08E6 




MDX 


L 


RPSW 


CK PUNCH/READ SW 


32F08120 






08B9 





7003 






MDX 




ERX 


BR IF PUNCH 


32F08130 






08BA 





6600 


4880 




LDX 


L2 


/4880 


SET FOR READ MSG 


32F08140 






08BC 





7000 




* 


MDX 




ERX 




32F08150 
32F08160 






08BO 


1 


7400 


08E4 


ERX 


MDX 


L 


M 




32F08170 






08BF 





7001 






MDX 




ERX1 




32F08180 




DATE 


02JAN66 01MAY66 


15N0V66 








PROG ID 


032F-2 


EC NO. 


415490 415490B 


419643 
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7A 



08C0 7004 



MDX 



ERX2 



08C1 





18A0 


ERX1 


SRT 


32 


08C2 





7600 8000 




MDX 


L2 /8000 


08C4 





1000 


* 


NOP 




08C5 





4026 


ERX2 


BSI 


ETYPE 


08C6 





681D 




STX 


M 


08C7 





6500 0000 


EXR1 


LDX 


LI *-* 


08C9 





6700 0000 


EXR3 


LOX 


L3 *-* 


08CB 


1 


4C00 07AF 


* 


BSC 


I C0MP2 


08CE 




0000 




BSS 


E 


08CE 


1 


0A04 


MSGO 


DC 


ACNBK 


08CF 





0000 




DC 


/OOOO 


08D0 


1 


OAOC 


MSG1 


DC 


AM AS 


08U1 


1 


0A1B 




DC 


ASDSW 


08D2 


1 


OAOC 


MSG2 


DC 


AH AS 


08U3 


1 


0A24 




DC 


ABDSM 


08D4 


1 


0A18 


MSG3 


DC 


ADSW 


08U5 


1 


0A34 




DC 


ANINT 


08U6 


1 


OAOC 


MSG5 


DC 


AW AS 


08D7 


1 


0A2C 




DC 


ADSW4 


08D8 


1 


OAOC 


MSG6 


DC 


AW AS 


08D9 


1 


0A3A 




DC 


APCK 


08DA 


1 


OAOC 


MSG7 


DC 


AW AS 


08DB 


1 


0A40 




DC 


AECK 


08DC 


1 


0A11 


MSG8 


DC 


ADWAS 


08DD 


1 


0A45 




DC 


ACCNT 


08UE 


1 


OAOC 


MSG9 


DC 


AW AS 


08DF 


1 


0A4C 




DC 


A DATA 


08t0 


1 


0A7E 


MSG10 


DC 


ATL 


08E1 





0000 




DC 


/OOOO 


08E2 


1 


0A8E 


MSG11 


DC 


ATS 


08E3 





0000 


3k 


DC 


/OOOO 


08t4 





0000 


M 


DC 


*-# 


08E5 





0000 


ERR5S 


DC 


*-* 


08E6 





0000 


RPSW 


DC 


*-* 


08E7 





1480 


STACK 


DC 


/1480 


08E8 





0000 


BDSW 


DC 


*-* 


08E9 





0003 




DC 


/0003 


08EA 





0000 


DSH4 


DC 


*-* 


08EB 





0000 




DC 


*-* 



PRINT ERR MSG 

RESTORE XR1 
RESTORE XR3 



CARD NOT BLANK 
STATIC DSW ERROR 
BUSY DSW ERROR 
NO INTERRUPT 
LEVEL 4 DSW ERROR 
PUNCH CHECK 
ERROR CHECK 
COLUMN COUNT ERROR 
COLUMN DATA ERROR 
COL INTRPT SLOW 
COL INTRPT FAST 



MULTI LINE CONTROL WORD 
ERR5 SW 
READ/PUNCH SW 
SELECT #2 STACKER 
BUSY DSW WAS 
S/B 
INT 4 DSW WAS 
S/B 



* PRINT ERROR MESSAGE 

****************** ****4***#*****#*#s:***#**** 

* THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. 

* UPON ENTRY THE MSG NO. MUST BE SET IN XR1, 

* THE DATA ID IN XR2, AND THE ALPHA ADDRS IN 

* THE ACCUM AND EXT. 



SET MSG NUMBER 
SET DATA ID 
SET ALPHA ADDRS 



PRINT LAST OP MSG IF 
FIRST ERROR MSG AFTER 
A CONTROL OP 

MUST BE ZERO FOR OP MSG 

PRINT ERROR MESSAGE 



08EC 





OOOO 




ETYPE 


DC 




*-* 


08E0 





6917 






STX 


1 


EMSG 


08EE 





6A18 






STX 


2 


EMSG£2 


08EF 





D818 






STD 




EMSG63 


08F0 


1 


C700 


0BC7 




ID 


L3 


TIME 


08F2 





D01E 




* 


STO 




TIMWS 


08F3 


1 


7400 


08F9 


MDX 


L 


OPMSW 


08F5 





7004 






MDX 




ETYPl 


08F6 





4480 


0162 




BSI 


I 


ERROR 


08F8 


1 


08FF 






DC 




ETYP2 


08F9 





OOOO 




OPMSW 

* 

ETYPl 


DC 




*-* 


08FA 





4480 


0162 


BSI 


I 


ERROR 



32F06190 
32F08200 
32F08210 
32F08220 
32F08230 
32F08240 
32F08250 
32F08260 
32F08270 
32F08280 
32F08290 
32F08300 
32F08310 
32F08320 
32F08330 
32F08340 
32F08350 
32F08360 
32F08370 
32F08380 
32F08390 
32F08400 
32F08410 
32F08420 
32F08430 
32F08440 
32F08450 
32F08460 
32F08470 
32F08480 
32F08490 
32F08500 
32F08510 
32F08520 
32F08530 
32F08540 
32F08550 
32F08560 
32F08570 
32F08580 
32F08590 
32F08600 
32F08610 
32F08620 
32F08630 
32F08640 
32F08650 
32F08660 
32F08670 
32F08680 
32F08690 
32F08700 
32F08710 
32F08720 
32F08730 
32F08740 
32F08750 
32F08760 
32F08770 
32F08780 
32F08790 
32F08800 
32F08810 
32F08820 
32F08830 
32F08840 
32F08850 
32F08860 



08FC 1 0905 






DC 


EMSG 




08FD OOOO 




LOOP 


DC 


*-* 


LOOP A 


08FE 68FA 




* 
ETYP2 


STX 


OPMSW 




08FF 1 4C80 


08EC 


BSC 


t ETYPE 


RETURN 


0901 8000 






DC 


/8000 




0902 1 0A56 






DC 


ALOP 




0903 OOOO 




OP 
* 


DC 


*-* 





ERROR MESSAGE TABLE 



MESSAGE NUMBER 
HEX/DEC SW 
DATA I/D 
ALPHA ADDRS1 
ALPHA AD0RS2 

DSW WAS 

DSW S/B 

COLUMN COUNT WAS 

COLUMN COUNT S/B 

READ OR PUNCh ECHO WAS 

READ DATA S/B 

NOT USED 

TIME WAS 

MAX PUNCH COL TIME 

MIN PUNCH COL TIME 

MAX READ COL TIME 

MIN READ COL TIME 

NOT USED 

NOT USED 

COL IN ERROR 

* 

******************************************** 

* INTERRUPT WAIT ROUTINE 

******************************************** 

* THIS SUBROUTINE WAITS FOR INTERRUPT. 

* WHEN THE INTERRUPT IS RECEIVED IT WILL 

* CHECK THE ROUTINE SELECTION SWITCH. 

* IF A NEW ROUTINE HAS BEEN SELECTED IT 

* WILL BRANCH TO THE CONTROL ROUTINE. 

* 



0904 




0001 




BSS 


E 1 


0905 





OOOO 


EMSG 


DC 


*-* 


0906 





7F8C 




DC 


/7F8C 


0907 





OOOO 




DC 


*-* 


0908 





OOOO 




DC 


*-* 


0909 





OOOO 




DC 


*-* 


090A 





OOOO 


DSW 


DC 


*-* 


090B 





OOOO 




DC 


*-* 


090C 





OOOO 


COLCT 


DC 


*-* 


090D 





0050 




DC 


80 


090E 





OOOO 


DATA 


DC 


*-* 


090F 





OOOO 




DC 


*-* 


0910 





OOOO 




DC 


OOOO 


0911 





OOOO 


TIMWS 


DC 


*-* 


0912 





1C0C 


PCMAX 


DC 


7180 


0913 





14B4 


PCM IN 


DC 


5300 


0914 





0514 


RDMAX 


DC 


1300 


0915 





02BC 


RDM IN 


DC 


700 


0916 





OOOO 




DC 


OOOO 


0917 





OOOO 




DC 


OOOO 


0918 





OOOO 


COL 


DC 


*-* 



0919 





OOOO 




WAIT 


DC 




*-* 


09 1A 





1810 






SRA 




16 


091B 





D0C8 






STO 




M 


09 1C 





DOEF 






STO 




COLCT 


09 ID 





DOOB 






STO 




OPMSW 


091E 





69EE 






STX 


1 


C0LCT61 


091F 





6500 


1000 




LDX 


LI 


/1000 


0921 





6926 






STX 


1 


WCNT 


0922 





0841 






XIO 




SENSE 


0923 





D0C4 




$ 


STO 




BDSW 


09 24 


1 


6500 


092D 


WAIT1 


LDX 


LI 


WAIT3 


0926 


1 


7400 


05E6 




MDX 


L 


MLSCFG1 


0928 





7015 






MDX 




WAIT4 


0929 


1 


6D00 


05E5 


WAIT2 


STX 


LI 


MLSCF 


092B 





4480 


0161 


* 
WAIT3 


BSI 


I 


START 


092D 


1 


74FF 


0948 


MDX 


L 


WCNT,-1 


092F 





70F4 






MDX 




WAIT1 


0930 





C0B7 






LD 




BDSW 


0931 





F0B7 






EOR 




BDSWG1 



RESET MULT LINE CONTROL 
RESET COLUMN COUNT 
RESET OP MSG SW 

SET INTERRUPT 

WAIT CNT 
SENSE BUSY DSW 



CK FOR INTERRUPT 

BR IF INTERRUPT OCCURED 

SET RETURN ADDRESS 
GO TO MONITOR 

DECREMENT WAIT CNT 

CK BUSY DSW 



32F0887O 
32F08880 
32F08890 
32F08900 
32F08910 
32F08920 
32F08930 
32F08940 
32F08950 
32F08960 
32F08970 
32F08980 
32F08990 
32F09000 
32F09010 
32F09020 
32F09030 
32F09040 
32F09050 
32F09060 
32F09070 
32F09080 
32F09090 
32 F 09 100 
32F09110 
32F09120 
32F09130 
32F0914!) 
32F09150 
32F09160 
32F091YO 
32F09180 
32F09190 
32F09200 
32F09210 
32F09220 
32F09230 
32F09240 
32F09250 
32F09260 
32F09270 
32F09280 
32F09290 
32F09300 
32F09310 
32F09320 
32F09330 
32F09340 
32F09350 
32F09360 
32F09370 
32F09380 
32F09390 
32F09400 
32F09410 
32F09420 
32F09430 
32F09440 
32F09450 
32F09460 
32F09470 
32F09480 
32F09490 
32F09500 
32F09510 
32F09520 
32F09530 
32F09540 
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01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



032F-2 

7 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



15N0V66 
419643 



PROG ID 
PAGE 



032F-2 
7A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1442 TIMING TEST 



PART NO. 
PAGE 



2191228 
8 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1442 TIMING TEST 



PART NO. 
PAGE 



2191228 
8A 



0932 


1 


4420 


0849 




BSI 


L 


ERR2,2 


BR IF ER 


0934 





082F 






XIO 




SENSE 


SENSE DSW 


0935 





D004 






STO 




DSW 


STORE DSW IN MSG 


0936 





6103 




ERR3 


LDX 


1 


3 


MESSAGE NUMBER 


0937 





6201 






LDX 


2 


/0001 


SET WORD CNTL 


0938 





C89B 






LDD 




MSG3 


MSG- NO INTRPT 


0939 





40B2 






BSI 




ETYPE 


PRINT ERR MSG 


093A 


1 


6780 


0919 




LDX 


13 


WAIT 


SET TO RETRY FUNCTION 


093C 


1 


6F00 


05E6 


# 


STX 


L3 


MLSCFS1 




093E 


1 


C400 


05E0 


WAIT4 


LD 


L 


SW1 




0940 





4488 


0161 




BSI 


I 


START, £ 


CK FOR RTN SELECT 


0942 


1 


9400 


05DD 




S 


L 


RID 


CK FOR NEW ROUTINE 


0944 


1 


4420 


0654 




BSI 


L 


CNTRL.Z 


BR IF NEW RTN 


0946 





4480 


0161 


* 
WCNT 


BSI 


I 


START 




0948 





0000 




DC 




*-* 





* ERROR ANALYSIS 
******************************************** 

******************************************** 

* COME TO HERE FROM INTERRUPT AND CHECK FOR 

* ERRORS BEFORE RETURNING TO TEST ROUTINE 





0949 10A0 




* 
RTRN 


SLT 




32 






094A C09D 






LD 




BDSW 


CK BUSY DSW 




094B F09D 






EOR 




BDSWG1 






094C 1 4420 


0849 


* 


BSI 


L 


ERR2,Z 


BR IF ER 




094E C09B 




* 


LD 




DSW 4 


CK INT 4 DSW 




094F F01A 






EOR 




K0800 


REMOVE RESPONSE BIT 




0950 E01B 






AND 




KEFFE 


MASK LAST CD AND NRI 




0951 1 4420 


0856 


* 


BSI 


L 


ERR5,Z 


BR IF ERR 




0953 COBS 






LD 




COLCT 


CK COLUMN COUNT 




0954 F0B8 






EOR 




C0LCT61 


COMPARE WITH S/B 




0955 1 4420 


0884 


* 


BSI 


L 


ERR8,Z 


BR IF COL COUNT ER 




0957 C092 




* 


LD 




DSW4 


CK FOR LAST CARD 




0958 1004 






SLA 




4 






0959 1 4C02 


09D6 




BSC 


L 


LSTCD.C 


BR IF LAST CARD 




095B 1 4C80 


0919 


* 


BSC 


I 


WAIT 


RETURN TO TEST RTN 




095E 0000 






BSS 


E 








095E 1 0962 




COLRD 


DC 




RDATA 






095F 1200 






DC 




/1200 


READ COL IOCC 




0960 0000 




COL PC 


DC 




*-* 






0961 1100 






DC 




/1100 


PUNCH IOCC 




0962 0000 




RDATA 


DC 




0000 


LAST READ DATA 




0963 1701 

0964 0000 




SNCOL 
SENSE 


DC 
DC 




/1701 



SENSE AND RESET DSW 




0965 1700 






DC 




/1700 


SENSE DSW IOCC 




0966 1 0968 




STOP 


DC 




TERM 






0967 1100 






DC 




moo 






0968 FFFF 




TERM 


DC 




/FFFF 






0969 1402 




FEED 


DC 




/1402 


FEED IOCC 




096A 0800 




K0800 


DC 




/0800 






096B 1702 




SNCOM 


DC 




/1702 






096C EFFE 




KEFFE 


DC 




/EFFE 






096D C800 




KC800 

* 


DC 




/C800 










***************************** if***********^^^ 








* 






INTERRUPT 


ROUTINE 








****** *********** ** ******** ***************** 
* 


DATE 


02JAN66 01MAY66 


15N0V66 








EC NO. 


415490 415490B 


419643 









32F09550 

32F09560 

32F09570 

32F09580 

32F09590 

32F09600 

32F09610 

32F09620 

32F09630 

32F09640 

32F09650 

32F09660 

32F09670 

32F096 80 

32F09690 

32F09700 

32F09710 

32F09720 

32F09730 

32F09740 

32F09750 

32F09760 

32F09770 

32F09780 

32F09790 

32F09800 

32F09810 

32F09820 

32F09830 

32F09840 

32F09850 

32F09860 

32F09870 

32F09880 

32F09890 

32F09900 

32F09910 

32F09920 

32F09930 

32F09940 

32F09950 

32F09960 

32F09970 

32F09980 

32F09990 

32F10000 

32F10010 

32F10020 

32F10030 

32F10040 

32F10050 

32F10060 

32F10070 

32F10080 

32F10090 

32F10100 

32F10110 

32F10120 

32F10130 

32F10140 

32F10150 

32F10160 

32F10170 

32F10180 

32F10190 

32F10200 

32F10210 

32F10220 
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096E 0000 
096F 691E 

0970 6A1F 

0971 6201 

0972 6500 

0974 08EF 

0975 1 4C08 

0977 102D 

0978 7034 


00E1 
099D 


INTR 
SPD1 


DC 

STX 

STX 

LDX 

LDX 

XIO 

BSC 

SLA 

MDX 


1 

2 

2 

LI 

L 


*-$ 

SVXRIGI 

SVXR261 

1 

225 

SENSE 

RDCOL, & 

45 

PCH 


SAVE XRl 

SAVE XR2 

RESET COL CNT 

RESET TIMER 

SENSE DSW 

BR IF READ COL INT 

TIMING ADJUST 


32F10230 
32F10240 
32F10250 
32F10260 
32F10270 
32F10280 
32F10290 
32F10300 
32F10310 






0979 7201 
09 7A 1 6D00 


0BC7 


INTR1 


MDX 
STX 


2 

LI 


1 
TIME 


ADV COL CNT 


32F10320 
32F10330 
32F1O340 
32F10350 
32F10360 
32F10370 
32F10380 
32F10390 
32F10400 






097C 6500 
09 7E 1 C400 
0980 1 D600 

0982 08E1 

0983 180E 

0984 1 4C04 
0986 1801 


008E 
0BC7 
0BC7 

09A3 


SPD2 


LDX 

LD 

STO 

XIO 

SRA 

BSC 

SRA 


LI 

L 

L2 

L 


190 
TIME 
TIME 
SENSE 
14 

PCCOL, E 
1 
RDCOL, E 


RESET TIMER 
LD TIMER CNT 
STO TIME/COLUMN 
SENSE DSW 

BR IF PUNCH COL INT 






0987 1 4C04 


099D 


* 


BSC 


L 


BR IF READ COL INT 


32F10410 
32F10420 


















32F10430 










* 
* 


OP COMPLETE 




32F10440 






0989 72FF 
098A 1000 
098B 1 6E00 


090C 




MDX 
NOP 
STX 


2 
L2 


-1 
COLCT 


DEC FOR CORRECT COL CNT 
STO COL CNT 


32F104bO 
32F10460 
32F10470 
32F10480 
32F10490 






098D 6500 


0000 


SVXR1 


LDX 


LI 


*-* 


RESTORE XRl 






098F 6600 


0000 


SVXR2 


LDX 


L2 


*-* 


RESTORE XR2 


32F10500 






0991 1 4C80 


096E 


* 
INTR2 


BSC 


I 


INTR 


BR OUT OF INTR 


32F1O510 






0993 0000 




DC 




*-* 




32F10520 
32F10530 
32F10540 






0994 08D5 






XIO 




SNCOM-1 


SENSE-RESET DSW 






0995 1 D400 


08EA 




STO 


L 


DSW4 


STO DSW 


32F10550 






0997 1 6700 
0999 1 6F00 


0949 
05E6 




LDX 
STX 


L3 
L3 


RTRN 
MLSCF61 


SET FOR RETURN 


32F10560 
32F10570 






099B 1 4C80 


0993 


* 


BSC 


I 


INTR2 


BR OUT OF INTR 


32F10580 
32F10590 










* 


READ 


COLUMN INTERRUPT 


32F106 00 






099D 08C0 




* 
RDCOL 


XIO 




COLRD 


READ A COLUMN 


32F10610 
32F10620 






099E C0C3 






LD 




RDATA 


LD DATA 


32F 10630 






099F 1 D600 


0B74 




STO 


L2 


RTBL 


STO DATA/COL 


32F10640 






09A1 101B 
09A2 700D 




* 


SLA 
MDX 




27 
INTR3 


TIMING ADJUSTMENT 


32F10650 
32F10660 
32F10670 










* 


PUNCH COLUMN INTERRUPT 


32F10680 






09A3 1 6780 


06E1 


* 
PCCOL 


LDX 


13 


PDLAY 


LD DELAY CNT 


32F10690 
32F10700 






09A5 7300 
09A6 7001 
09A7 7005 
09A8 7125 




DLPCH 


MDX 
MDX 
MDX 
MDX 


3 
1 




DLPCH 
PCH 
37 


CK FOR MIN DELAY 
ADV TIMER 


32F10710 
32F10720 
32F1O730 
32F10740 






09A9 100C 






SLA 




12 


TIMING ADJUSTMENT 


32F10750 






09AA 73FF 






MDX 


3 


-1 


DECR DELAY CNT 


32F10760 






09AB 70FC 






MDX 




DLPCH 


LOOP UNTIL CNT ZERO 


32F10770 






09AC 1006 






SLA 




6 


TIMING ADJUSTMENT 


32F10780 






09AD 08B2 




* 
PCH 


XIO 




COLPC 


PUNCH COLUMN 


32F 10790 
32F10800 






09AE 1 7401 


0960 


* 


MDX 


L 


C0LPC1 


ADV FOR NEXT COL. 


32F10810 
32F10820 
32F10830 
























* 


TIMER 




THIS SUBROUTINE DETEMINES THE 


32F10840 










* 


TIME 


BETWEEN COLUMN INTERRUPTS 


32F10850 
32F10860 




















09B0 08B1 




* 
INTR3 


XIO 




SNCOL-1 


SENSE-RESET DSW 


32F10870 
32F10880 






09B1 08B2 




* 
TIMER 


XIO 




SENSE 


SENSE DSW 


32F10890 
32F10900 




DATE 
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09B2 EOBA 
09B3 1 4C20 0979 
09B5 7126 
09B6 70FA 
09B7 70D5 



09b8 0000 
09B9 10A0 
09BA 08A9 
096B 1 DCOO 090A 
09BD 1 4C98 09B8 
09BF 1801 
09C0 1 4420 0838 

09C2 1011 
09C3 D011 

09C4 1 6500 09CA 
09C6 1 6D00 05E6 
09C8 1 4C00 093E 

09CA 0899 
09CB 1 4C98 09B8 
09CD 1 7403 09D5 
09CF 70F4 

09D0 6105 
09D1 1 6600 0A66 
0903 401E 
09U4 70ED 

09U5 0000 



09D6 1 6700 OA63 
09D8 1 6F00 0903 
09DA 088D 

09DB 6104 
09UC 1 6600 0A78 
09UE 4013 

09DF 1810 
09E0 1 D400 05E1 
09E2 1 D400 05E2 

09E4 1 C400 05DD 
09E6 900A 
09E7 1 4430 0654 

09E9 1 C400 05DF 
09EB 1009 
09EC 6302 
09ED 1 4410 07C6 

09EF 1 4400 0654 
09F1 0002 



AND KC800 MASK ALL BUT 0,1,4 

BSC L INTR1,Z BR IF INTERRUPT 

SPD3 MDX 1 38 ADV TIMER 

MDX TIMER LOOP FOR 30 MSEC 

MDX SVXR1 

* CHECK READY 

♦is****************************************** 



SENSE DSW 

STORE DSW 

NO BITS FOUND 

REMOVE NRDY 

BR IF OTHER THAN NRDY 



RESET BOX CNT 

LD REENTRY ADDRS 

SET MLSCF 

GO TO MONITOR 

SENSE DSW 
RETURN IF READY 



READY 


OC 




*-* 




SLT 




32 




XIO 




SENSE 




STD 


L 


DSW 




BSC 


I 


READY, 6 




SRA 




1 


# 


BSI 


L 


ERR1.Z 


BOX 


SLA 




17 


* 


STO 




BCNT 


BOXl 


LDX 


LI 


B0X2 




STX 


LI 


MLSCF61 




BSC 


L 


WAIT4 


* 








B0X2 


XIO 




SENSE 




BSC 


I 


READY, 6 




MDX 


L 


BCNT, 3 




MDX 




BOXl 


* 








NRDY 


LDX 


1 


5 




LDX 


L2 


ANRDY 




BSI 




TYPE 




MDX 




BOX 


* 








BCNT 


DC 




*-* 



MESSAGE NUMBER 
NOT READY 
PRINT MESSAGE 



* FEED LAST CARD 

*********** *****************$#****#$£##:): 4#*;)l$ 
* 

LSTCD LDX L3 AFD 
STX L3 OP 
XIO FEED-1 FEED LAST CARD 



TWO 



LDX 
LDX 
BSI 


1 
L2 


4 

ALCD 

TYPE 


SRA 
STO 
STO 


L 
L 


16 

SW2 

SW3 


LD 

S 

BSI 


L 
L 


RID 
TWO 
CNTRL,-Z 


LD 
SLA 
LDX 
BSI 


L 

3 

L 


SWO 

9 
2 
TYAVG, - 


BSI 

DC 


L 


CNTRL 
2 



PRINT MSG- LAST CARD 

RESET DELAY FACTOR 
RESET GRAPH SCALE 

LD LAST RTN NUMBER 
CK FOR ROUTINE 1 OR 2 
BR IF NOT 1 OR 2 



LOOK AT FORCE LOG SW 
SET FOR AVG ONLY 
PRINT AVG COL TIME MSG 

GO TO CNTRL RTN 



**************************** ***************** 

* PRINT STATUS MESSAGE 

********************************************# 



32F10910 
32F10920 
32F10930 
32F10940 
32F10950 
32F10960 
32F10970 
32F10980 
32F 10990 
32F11000 
32F11010 
32F11020 
32F11030 
32F11040 
32FH050 
32F11060 
32F11070 
32F11080 
32F11090 
32F11100 
32F11110 
32F11120 
32F11130 
32F11140 
32F11150 
32F11160 
32F11170 
32F11180 
32F11190 
32F11200 
32F11210 
32F11220 
32F11230 
32F11240 
32F11250 
32F11260 
32F11270 
32F11280 
32F11290 
32F11300 
32F11310 
32F11320 
32F11330 
32F11340 
32FU350 
32F11360 
32F11370 
32F11380 
32F11390 
32F11400 
32F11410 
32F11420 
32F11430 
32F11440 
32F11450 
32F11460 
32F11470 
32F11480 
32F11490 
32F11500 
32F11510 
32F11520 
32F11530 
32F11540 
32F11550 
32F11560 
32F11570 
32F11580 



09F2 
09F3 
09F4 
09F5 
09F7 

09F8 

09F9 

09F8 

09FC OOOF 

09FD 0000 







0000 
6907 
6A09 

4480 0163 
09FB 

D004 

4C80 09F2 
0000 



THIS SUBROUTINE PRINTS ALL THE STATUS 
MESSAGES. THE MESSAGE NUMBER MUST BE SET 
IN XR1 AND THE ALPHA ADDRESS IN XR2 UPON 
ENTRY. 



SET MSG NO. 
SET ALPHA ADDRS 
PRINT MSG 



09FE 
09FF 



0000 
0000 



OAOO 0000 
0A01 0000 
0A02 1770 
0A03 03E8 



0A04 





1E3E 


0A05 





6232 


0A06 





2176 


OA07 





529E 


OA08 





211A 


OA09 





5E3E 


OAOA 





765A 


OAOB 





FFFF 



OAOC 923E 
OAOD 9A21 
OAOE 219A 
OAOF BC1A 
0A10 FFFF 



0A11 





923E 


0A12 





9A21 


0A13 





2121 


0A14 





9ABC 


0A15 





1A21 


0A16 





2121 


0A17 





FFFF 


0A18 





329A 


0A19 





9221 


0A1A 





FFFF 


0A1B 





2184 


0A1C 





9A9E 


0A1D 





3E9E 


0A1E 





221E 


0A1F 





2132 


0A20 





9A92 


0A21 





2136 


0A22 





6262 


0A23 





FFFF 



0A24 2184 



TYPE 


DC 


*-* 




STX 


1 SMSG 




STX 


2 SMSG63 




BSI 


I LOG 




DC 


SMSG 


* 








STO 


SMSG&2 




BSC 


I TYPE 


SMSG 


DC 


*-* 




DC 


/OOOF 




DC 


*-* 




DC 


*-* 




DC 


/oooo 


* 






MAXPD 


DC 


*-* 


CTAVG 


DC 


*-* 


PAVG 


DC 


6000 


RAVG 


DC 


1000 


* 






************************ 


* 




ALPHA MESS 


************************ 


* 






ACNBK 


DC 


/1E3E 




DC 


/6232 




DC 


/2176 




DC 


/529E 




DC 


/211A 




DC 


/5E3E 




DC 


/76 5A 




DC 


/FFFF 


* 






AWAS 


DC 


/923E 




DC 


/9A21 




DC 


/219A 




DC 


/BC1A 


* 


DC 


/FFFF 


ADWAS 


DC 


/923E 




DC 


/9A21 




DC 


/2121 




DC 


/9ABC 




DC 


/1A21 




OC 


/2121 




DC 


/FFFF 


ADSW 


DC 


/329A 




DC 


/9221 




DC 


/FFFF 


* 






ASDSW 


DC 


/2184 




DC 


/9A9E 




DC 


/3E9E 




DC 


/221E 




DC 


/2132 




DC 


/9A92 




DC 


/2136 




DC 


/6262 


J; 


DC 


/FFFF 


ABDSW 


DC 


/2184 



RESET DATA CONTROL 

RETURN 

MSG NO. SET HERE 



ALPHA ADDRS SET HERE 



MAX PUNCH DELAY 
COLUMN TIME AVERAGE 
PUNCH AVERAGE S/B 
READ AVERAGE S/B 



********************* 
AGES 

********************* 

CARD NOT BLANK 



WAS S/B 



WAS S/B 



DSW 



-STATIC DSW ERR 



-BUSY DSW ERR 



32F11590 
32F11600 
32F11610 
32F11620 
32F11630 
32F11640 
32F11650 
32F11660 
32F11670 
32F11680 
32F11690 
32FU700 
32F11710 
32F11720 
32F11730 
32F11740 
32F11750 
32FU760 
32F11770 
32F11780 
32F117VO 
32F11800 
32F11B10 
32F11820 
32F11830 
32F11840 
32F118bO 
32F11860 
32F11870 
32F11880 
32F11890 
32F11900 
32F11910 
32F11920 
32F11930 
32F11940 
32F11950 
32F11960 
32F11970 
32F11980 
32FU990 
32F12000 
32F12010 
32F12020 
32F12030 
32F12040 
32F12050 
32F12060 
32F12070 
32F12080 
32F12090 
32F12100 
32F12110 
32F12120 
32F12130 
32F12140 
32F12150 
32F12160 
32F12170 
32F12180 
32F12190 
32F12200 
32F12210 
32F12220 
32F12230 
32F12240 
32F12250 
32F12260 
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PART NU. 
PAGE 



2191228 
10A 



0A25 





1AB2 


0A26 





9AA6 


0A27 





2132 


0A28 





9A92 


0A29 





2136 


0A2A 





6262 


0A2B 





FFFF 


0A2C 





2184 


0A2D 





5E36 


0A2E 





B6F0 


0A2F 





2132 


0A30 





9A92 


0A31 





2136 


OA32 





6262 


0A33 





FFFF 


0A34 





2176 


0A35 





5221 


0A36 





2276 


0A37 





9E62 


0A38 





569E 


0A39 





FFFF 


0A3A 





2184 


0A3B 





56B2 


0A3C 





761E 


0A3D 





2621 


0A3E 





1E5A 


0A3F 





FFFF 


0A40 





2184 


0A41 





3662 


0A42 





6221 


0A43 





1E5A 


0A44 





FFFF 


0A45 





2184 


0A46 





1E52 


0A47 





5E21 


0A48 





1E76 


0A49 





9E21 


0A4A 





3662 


0A4B 





FFFF 


0A4C 





2121 


0A4D 





1E52 


0A4E 





5E21 


0A4F 





2121 


0A50 





2184 


0A51 





323E 


0A52 





9E3E 


0A53 





2136 


0A54 





6262 


0A55 





FFFF 


0A56 





095E 


OA57 





3E9A 


OA58 





9E21 


0A59 





5256 


0A5A 





8421 


0A5B 





FFFF 


0A5C 





6236 


0A5D 





3E32 


0A5E 





FFFF 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
* 

ADSW4 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ANINT DC 
DC 
DC 
DC 
DC 
DC 

* 



APCK 



* 
AECK 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 



ACCNT DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 

ADATA DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



0A5F 56B2 



* 
ALOP 



* 
ARD 



* 
APCH 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 



/1AB2 
/9AA6 
/2132 
/9A92 
/2136 
/6 262 
/FFFF 

/2184 
/5E36 
/B6F0 
/2132 
/9A92 
/2136 
/6262 
/FFFF 

/2176 
/5221 
/2276 
/9E62 
/569E 
/FFFF 

/2184 
/56B2 
/761E 
/2621 
/1E5A 
/FFFF 

/2184 
/3662 
/6221 
/1E5A 
/FFFF 

/2184 
/1E52 
/5E21 
/1E76 
/9E21 
/3662 
/FFFF 

/2121 
/1E52 
/5E21 
/2121 
/2184 
/323E 
/9E3E 
/2136 
/6262 
/FFFF 

/095E 
/3E9A 
/9E21 
/5256 
/8421 
/FFFF 

/6 236 
/3E32 
/FFFF 

/56B2 



-LEV4 DSW ERR 



NO INTRPT 



PCH CK 



ERR CK 



COL CNT ER 



COL DATA ERR 



LAST OP- 



READ 



PUNCH 



32F12270 
32F12280 
32F12290 
32F12300 
32F12310 
32F12320 
32F12330 
32F12340 
32F12350 
32F12360 
32F12370 
32F12380 
32F12390 
32F12400 
32F12410 
32F12420 
32F12430 
32F12440 
32F12450 
32F12460 
32F12470 
32F12480 
32F12490 
32F12500 
32F12510 
32F12520 
32F12530 
32F12540 
32F12550 
32F12560 
32F12570 
32F12580 
32F12590 
32F12600 
32F1261Q 
32F12620 
32F12630 
32F12640 
32F12650 
32F12660 
32F12670 
32F12680 
32F12690 
32F12700 
32F12710 
32F12720 
32F12730 
32F12740 
32F12750 
32F12760 
32F12770 
32F12780 
32F12790 
32F12800 
32F12810 
32F12820 
32F12830 
32F12840 
32F12850 
32F12860 
32F12870 
32F12880 
32F12890 
32F12900 
32F12910 
32F12920 
32F12930 
32F12940 



0A60 





761E 


0A61 





2600 


0A62 





FFFF 


0A63 





1236 


0A64 





3632 


0A65 





FFFF 


0A66 





7662 


0A67 





32A6 


0A68 





2184 


0A69 





5662 


0A6A 





369A 


0A6B 





9A21 


0A6C 





FCFO 


0A6D 





F0D8 


0A6E 





219A 


0A6F 





9E3E 


0A70 





629E 


0A71 





FFFF 


0A72 





5E32 


0A73 





2100 


0A74 





1A5E 


0A75 





3E76 


0A76 





5A9A 


0A77 





FFFF 


0A78 





5E3E 


0A79 





9A9E 


0A7A 





211E 


0A7B 





3E62 


0A7C 





3200 


0A7D 





FFFF 


0A7E 





923E 


0A7F 





9A21 


0A80 





2121 


0A81 





723E 


0A82 





9621 


0A83 





2121 


0A84 





1E52 


0A85 





5E21 


0A86 





2184 


0A87 





2276 


0A88 





9E62 


0A89 





569E 


0A8A 





219A 


0A8B 





5E52 


0A8C 





9200 


0A8D 





FFFF 


0A8E 





923E 


0A8F 





9A21 


0A90 





2121 


0A91 





7222 


0A92 





7621 


0A93 





2121 


0A94 





1E52 


0A95 





5E21 


0A96 





2184 


0A97 





2276 


0A98 





9E62 


0A99 





569E 


0A9A 





2112 


0A9B 





3E9A 


0A9C 





9E00 


0A9D 





FFFF 



AFD 



DC 
DC 
DC 
DC 
DC 
DC 



ANRDY DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



ALDBK 



* 
ALCD 



* 
ATL 



* 
ATS 



DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/761E 
/2600 
/FFFF 
/1236 
/3632 
/FFFF 

/7662 
/32A6 
/2184 
/5662 
/369A 
/9A21 
/FCFO 
/F0D8 
/219A 
/9E3E 
/629E 
/FFFF 

/5E32 
/2100 
/1A5E 
/3E76 
/5A9A 
/FFFF 

/5E3E 
/9A9E 
/211E 
/3E62 
/3200 
/FFFF 

/923E 
/9A21 
/2121 
/723E 
/9621 
/2121 
/1E52 
/5E21 
/2184 
/2276 
/9E62 
/569E 
/219A 
/5E52 
/9200 
/FFFF 

/923E 
/9A21 
/2121 
Z7222 
/7621 
/2121 
/1E52 
/5E21 
/2184 
/2276 
/9E62 
/569E 
/2112 
/3E9A 
/9E00 
/FFFF 



FEED 



NRDY - PRESS 1442 START 



LOAD BLANKS 



LAST CARD 



HAS MAX -COL INTRPT SLOW 



WAS MIN -COL INTRPT FAST 



32F12950 
32F12960 
32F12970 
32F12980 
32F12990 
32F13000 
32F13010 
32F13020 
32F13030 
32F13040 
32F13050 
32F13060 
32F13070 
32F13080 
32F13090 
32F13100 
32F13110 
32F13120 
32F13130 
32F13140 
32F13150 
32FL3160 
32F13170 
32F131W0 
32F13190 
32F13200 
32F13210 
32F13220 
32F13230 
32F13240 
32F13250 
32F13260 
32F13270 
32F13280 
32F13290 
32F13300 
32F13310 
32F13320 
32F13330 
32F13340 
32F13350 
32F13360 
32F13370 
32F13380 
32F13390 
32F13400 
32F13410 
32F13420 
32F13430 
32F13440 
32F13450 
32F13460 
32F13470 
32F13480 
32F13490 
32F13500 
32F13510 
32F13520 
32F13530 
32F13540 
32F13550 
32F13560 
32F13570 
32F13580 
32F13590 
32F13600 
32F13610 
32F13620 
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PART 
PAGE 



NO. 



2191228 
11A 



0A9E 





3EO0 


0A9F 





B616 


OAAO 





211E 


0AA1 





525E 


0AA2 





2122 


0AA3 





769E 


0AA4 





6256 


0AA5 





9E21 


0AA6 





9E22 


0AA7 





7236 


0AA8 





FFFF 


0AA9 





3676 


OAAA 





9E36 


OAAB 





6221 


OAAC 





7252 


OAAD 





3221 


OAAE 





76B2 


OAAF 





721A 


OABO 





3662 


0AB1 





FFFF 


0AB2 





5E32 


0AB3 





2156 


0AB4 





1E26 


0AB5 





3632 


0AB6 





211E 


0AB7 





3E62 


0AB8 





329A 


0AB9 





FFFF 


OABA 





56B2 


OABB 





761E 


OABC 





2621 


OABD 





3236 


OABE 





5E3E 


OABF 





A621 


OACO 





8421 


0AC1 





0000 


0AC2 





FFFF 


0AC3 





C400 


0AC4 





FCOO 


0AC5 





D800 


0AC6 





DCOO 


0AC7 





FOOO 


0AC8 





F400 


0AC9 





DOOO 


OACA 





D400 


OACB 





E400 


OACC 





EOOO 


OACD 





FCC4 


OACE 





FCFC 


OACF 





FCD8 


OADO 





FCDC 


0AD1 





FCFO 


0AD2 





FCF4 



ACOLT DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



* 
AMOD 



ALPC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



APDLY DC 
DC 
DC 
DC 
DC 
DC 
DC 

ADFCT DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

* 



/3E00 
/B616 
/211E 
/525E 
/2122 
/769E 
/6256 
/9E21 
/9E22 
/7236 
/FFFF 

/3676 
/9E36 
/6221 
/7252 
/3221 
/76B2 
/721A 
/366 2 
/FFFF 

/5E32 
/2156 
/1E26 
/3632 
/211E 
/3E62 
/329A 
/FFFF 

/56B2 

/761E 

/2621 

/3236 

/5E3E 

/A621 

/8421 

*-* 

/FFFF 

/C400 

/FCOO 

/D800 

/DCOO 

/FOOO 

/F400 

/DOOO 

/D400 

/E400 

/EOOO 

/FCC4 

/FCFC 

/FCD8 

/FCDC 

/FCFO 

/FCF4 



AVG COL INTRPT TIME 



ENTER MOD NUMBER 



LD PCHED CARDS 



PUNCH DELAY 



DELAY FACTOR 


1 
2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



OA03 8010 
0AD4 4020 
0AD5 2040 
0AD6 1080 
0AD7 ft 0900 
0AD8 0600 



* PUNCH DATA TABLE 

* 

PDATA DC /8010 COLUMN 1 

DC /4020 

DC /2040 

OC /1080 

DC /0900 

DC /0600 



32F13630 

32F13640 

32F13650 

32F13660 

32F13670 

32F13680 

32F13690 

32F13700 

32F13710 

32F13720 

32F13730 

32F13740 

32F13750 

32F13760 

32F13770 

32F13780 

32F13790 

32F13800 

32F13810 

32F13820 

32F13830 

32F13840 

32F13850 

32F13860 

32F13870 

32F13880 

32F13890 

32F13900 

32F13910 

32F13920 

32F 13930 

32F13940 

32F13950 

32F13960 

32F13970 

32F13980 

32F13990 

32F14000 

32F14010 

32F14020 

32F14030 

32F14040 

32F14050 

32F14060 

32F14070 

32F14080 

32F 14090 

32F14100 

32F14110 

32F14120 

32F14130 

32F14140 

32F14150 

32F14160 

32F14170 

32F14180 

32F14190 

32F14200 

32F14210 

32F14220 

32F14230 

32F14240 

32F14250 

32F14260 

32F14270 

32F14280 

32F14290 

32F14300 



0AD9 





0600 


OADA 





0900 


OADB 





1080 


OADC 





2040 


OADD 





4020 


OADE 





8010 


OADF 





FFFO 


OAEO 





8880 


0AE1 





CCCO 


0AE2 





EEEO 


0AE3 





FFFO 


0AE4 





7770 


0AE5 





3330 


0AE6 





1110 


0AE7 





FFFO 


0AE8 





AOOO 


0AE9 





9000 


OAEA 





8800 


OAEB 





8400 


OAEC 





8200 


OAED 





8100 


OAEE 





8080 


OAEF 





8040 


OAFO 





8020 


0AF1 





8010 


0AF2 





5000 


OAF 3 





4800 


0AF4 





4400 


0AF5 





4200 


0AF6 





4100 


OAF 7 





4080 


0AF8 





4040 


0AF9 





4020 


OAFA 





4010 


OAFB 





3000 


OAFC 





2800 


OAFD 





2400 


OAFE 





2200 


OAFF 





2100 


OBOO 





2080 


0B01 





2040 


0B02 





2020 


0B03 





2010 


0B04 





0000 


0B05 





FCOO 


0B06 





03F0 


0B07 





FCOO 


0B08 





03F0 


0B09 





0000 


OBOA 





8880 


OBOB 





4440 


OBOC 





2220 


OBOD 





1110 


OBOE 





0000 


OBOF 





8880 


0B10 





CCCO 


0B11 





AAAO 


0B12 





9990 


0B13 





4440 


0B14 





6660 


0B15 





5550 


0B16 





2220 


0B17 





3330 


0B18 





1110 


0B19 





0000 


0B1A 





0000 


0B1B 





FFFO 


OS1C 





FFFO 



DC 


/0600 




DC 


/0900 




DC 


/1080 




DC 


/2040 




DC 


/4020 




DC 


/8010 




DC 


/FFFO 




DC 


/8880 




DC 


/CCCO 




DC 


/EEEO 




DC 


/FFFO 




OC 


/7770 




DC 


/3330 




DC 


/1110 




DC 


/FFFO 


COL 21 


DC 


/AOOO 




DC 


/9000 


ALPHA RIPPLE 


DC 


/8800 




DC 


/8400 




DC 


/8200 


COL 26 


DC 


/8100 




DC 


/8080 




DC 


/8040 




DC 


/8020 




DC 


/8010 




DC 


/5000 




DC 


/4800 




DC 


/4400 




DC 


/4200 




DC 


/4100 




DC 


/40 80 




DC 


/4040 




DC 


/4020 




DC 


/4010 


COL 40 WAREA 


DC 


/3000 




DC 


/2800 




DC 


/2400 




DC 


/2200 




DC 


/2100 




DC 


/2080 




DC 


/2040 




DC 


/2020 




DC 


/2010 




DC 


/OOOO 




DC 


/FCOO 




DC 


/03F0 




DC 


/FCOO 




DC 


/03F0 




DC 


/OOOO 




DC 


/8880 




DC 


/4440 




DC 


/2220 




DC 


/1110 




DC 


/OOOO 




DC 


/8880 




DC 


/CCCO 




DC 


/AAAO 




DC 


/9990 




DC 


/4440 




DC 


/6660 




DC 


/5550 




DC 


/2220 




DC 


/3330 




DC 


/1110 




DC 


/OOOO 




DC 


/OOOO 




DC 


/FFFO 




DC 


/FFFO 





32F14310 

32F14320 

32F14330 

32F14340 

32F14350 

32F14360 

32F14370 

32F14380 

32F 14390 

32F14400 

32F14410 

32F14420 

32F14430 

32F14440 

32F14450 

32F14460 

32F 14470 

32F14480 

32F14490 

32F14500 

32F14510 

32F14520 

32F14530 

32F14540 

32F145t>0 

32F14560 

32F14570 

32F14580 

32F14590 

32F14600 

32F14610 

32F14620 

32F14630 

32F14640 

32F146t>0 

32F14660 

32F14670 

32F14680 

32F 14690 

32F14700 

32F14710 

32F14720 

32F14730 

32F14740 

32F14750 

32F14760 

32F14770 

32F14780 

32F 14790 

32F14800 

32F14810 

32F14820 

32F14830 

32F14840 

32F14850 

32F14860 

32F14870 

32F14880 

32F14890 

32F14900 

32F14910 

32F14920 

32F14930 

32F14940 

32F14950 

32F14960 

32F14970 

32F14980 
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0B1D 





FFFO 


0B1E 





FFFO 


0B1F 





FFFO 


0B20 





FFFO 


0B21 





FFFO 


0B22 





0000 


0B23 




0051 



DC 


/FFFO 


DC 


/FFFO 


DC 


/FFFO 


DC 


/FFFO 


DC 


/FFFO 


DC 


/OOOO 


BSS 


81 



0B74 



0053 



COLUMN 80 



********************* *********************** 

* STORAGE BUFFERS 

*********************** ********************* 
* 

RTBL BSS 83 READ BUFFER 

* 

TIME BSS 82 INTERRUPT TIME BUFFER 

DC /FFFF 
END BGIN 



0BC7 0052 
0C19 FFFF 
0C1A 05E8 
NU STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



32F14990 
32F15000 
32F15010 
32F15020 
32F15030 
32F15040 
32F15050 
32F15060 
32F15070 
32F15080 
32F15090 
32F15100 
32F15110 
32F15120 
32F15130 
32F15140 
32F15150 



C R 

NAME 

ABDSW 

ACCNT 

ACNBK 

ACOLT 

ADATA 

ADFCT 

ADSM 

ADSH4 

ADWAS 

AECK 

AFD 

ALCD 

ALDBK 

ALOP 

ALPC 

AMOD 

AN I NT 

ANRDY 

APCH 

APCK 

APDLY 

ARD 

ASDSW 

ATL 

ATS 

AVG 

AVGCT 

AWAS 

BCNT 

BDSW 

BEGIN 

BGIN 

BOX 

B0X1 

B0X2 

CKBLK 

CKB01 

CNTRL 

CN10 

CN20 

CN30 

COL 

COLCT 

COLPC 

COLRD 

COMPR 

COM PI 

C0MP2 

C0MP3 

CTAVG 

DATA 

DINCR 

DLPCH 

DSW 

DSW4 

EMSG 

END 

ENOPD 

ERLCK 

ERROR 

ERRO 

ERR1 

ERR1A 

ERR10 

ERR11 

ERR2 



S S 
VALUE 
0A24 
0A45 
0A04 
0A9E 
0A4C 
0AC1 
0A18 
0A2C 
0A11 
0A40 
0A63 
0A78 
0A72 
0A56 
0AB2 
0AA9 
0A34 
0A66 
0A5F 
0A3A 
OABA 
0A5C 
0A1B 
0A7E 
0A8E 
081D 
081A 
OAOC 
09D5 
08E8 
0160 
05E8 
09C2 
09C4 
09CA 
07D7 
07DD 
0654 
0658 
0662 
0669 
0918 
090C 
0960 
095E 
0796 
079A 
07AF 
07BB 
0A01 
090E 
06E5 
09A8 
090A 
08EA 
0905 
0164 
06E3 
0166 
0162 
082C 
0838 
0844 
08A3 
08B0 
0849 



t E F 
REF 
08D3 
080D 
08CE 
07CC 
08DF 
0683 
08D4 
08D7 
08DC 
08DB 
09D6 
09DC 
0687 
0902 
06EB 
05FF 
08D5 
09D1 
0770 
08D9 
06BE 
0787 
0801 
08E0 
08E2 
07E6 
068E 
0800 
09C3 
084A 
05E8 
0C1A 
09D4 
09CF 
09C4 
06AA 
07E2 
05F9 



E R E N C E 
ERENCES 



06B5 



,0722,0741 



,07F6 

,06F2,07B4,07B8,07C8,07D4 

,08D2,08D6,08D8,08DA,08DE 

,09CD 

,0923, 0930, 093 1,094A,094B 



,0748, 07E3, 0836 

,0637, 0648, 064A.06E8, 07 3E.075D, 0944, 09E7.09EF 



0656 

065B 

06FF,070A,079B,079D 

070C, 0753, 079 F,07DB,07EF, 0808, 091C, 091 E, 0953, 0954,0988 

0766,09AD,09AE 

0871,0873,0990 

06CB, 0710, 0797, 07C2,07C4 

07B6,07BA 

08CB 

07A1 

07C9 

0703.088C088E 

062A.06B7 

0625,09A6,09AB 

084C, 0861, 0877, 0935, 09BB 

085B,085D,085F,094E,09 57,0995 

08ED,08EE,08EF,08FC 

0667 

06D4,0717 

0825 

08F6.08FA 

07DF 

0847, 09C0 

083B 

07A7 

07A0 

0854, 0932, 094C 
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ERR3 

ERR5 

ERR5R 

ERR5S 

ERR6 

ERR7 

ERR8 

ERR9 

ERR9A 

ERX 

ERX1 

ERX2 

ETYPE 

ETYP1 

ETYP2 

EXR1 

EXR3 

FEED 

FIVE 

GRAPH 

GRPH1 

HUND 

ILO 

IL1 

IL2 

IL3 

IL4 

INTR 

INTR1 

INTR2 

INTR3 

KC800 

KEFFE 

K0008 

K0800 

K8000 

LOCK 

LOG 

LOGBY 

LOOP 

LRTN 

LSTCD 

M 

MAXPD 

MLSCF 

MOD 

MODNM 

M0D6 

M0D7 

MSGO 

MSG1 

MSG10 

MSG11 

MSG2 

MSG3 

MSG5 

MSG6 

MSG7 

MSG8 

MSG9 

NRDY 

NRTN 

ONE 

OP 

OPMSW 

PAVG 

PCCOL 

PCH 



0936 

0856 

086B 

08E5 

086D 

087F 

0884 

088B 

089C 

08BD 

08C1 

08C5 

08EC 

08FA 

08FF 

08C7 

08C9 

0969 

0685 

07E5 

07F6 

081F 

017A 

018A 

019A 

01AA 

01BA 

096E 

0979 

0993 

09B0 

09 6D 

096C 

0821 

096A 

0820 

0822 

0163 

0167 

08FD 

067B 

09D6 

08E4 

OAOO 

05E5 

0630 

0682 

0638 

0649 

08CE 

08D0 

08E0 

08E2 

08D2 

0804 

0806 

08D8 

08DA 

080C 

08DE 

09D0 

067A 

0684 

0903 

08F9 

0A02 

09 A 3 

09AD 



086Bt0951 

087E,0883 

0839,0845t0857 

08 64 

086F.0875 

0889,0955 

0707, 08A1 

0896 

08AC,08AF,08B9,08BC 

08BF 

08CO 

0832, 0842, 0852, 0869, 087C, 0881, 0888, 089C ,08C5,08FF , 0939 

08F5 

08F8 

08A4,08B1 

08A5,08B2 

09DA 

0633 

0736, 074C, 0816 

0807 

07F3 

05F1 



05F5 

05EF.0991 

09B3 

05F3.099B 

09A2 

09B2 

0950 

076B,080C 

094F 

0800,0812 

06CF,0828 

09F5 

06C5,0732,077A,07D8,082A 

0675 

0959 

06FA 

06BB 

0608 

0618 

05F7 

0634 

063A 

082E 

083E 

08A7 

08B4 

0850 

0938 

0867 

087B 

0880 

0887 

089B 



,0894, 0897, 08B0,08C6,091B 

, 066F , 092 6, 0929 , 09 3C ,0999, 09C6 

,060B,0630 



0676 

0638,0649 

0772, 0789, 09D8 

0830,0840,08F3,08FE,091D 

0643,0734 

0984 

0978, 09A7 



PCMAX 

PCMIN 

PDATA 

PDBAS 

PDLAY 

PDMAX 

PDWAS 

PID 

PONLY 

PTERM 

PUNCH 

P6AVG 

P6TM 

RAO 

RAVG 

RDATA 

ROCOL 

RDMAX 

RDM IN 

READ 

READY 

RID 

RIDCK 

RPSW 

ROKB 

RQTY 

RTBL 

RTNOM 

RTNSW 

RTRN 

RTTBL 

RX1 

R6AVG 

R6TM 

SCALE 

SENSE 

SENTY 

SMSG 

SNCOL 

SNCOM 

SP 

SPD1 

SPD2 

SPD3 

SP1 

STACK 

START 

STOP 

STPCH 

STRD 

STRT 

STRT1 

SVKB 

SVXR1 

SVXR2 

swo 

SMI 

SW2 

SW3 

TAVG 

TEMP 

TERM 

TIME 

TIMER 
TIMWS 
TST01 
TST02 



0912 

0913 

0AD3 

06E6 

06E1 

06E4 

06E2 

05DC 

0683 

0764 

0765 

0680 

067C 

05DE 

0A03 

0962 

099D 

0914 

0915 

0784 

09B8 

05DD 

0675 

08E6 

01BC 

01BB 

0B74 

0676 

0165 

0949 

0677 

089D 

0681 

067E 

081E 

0964 

0652 

09FB 

0963 

096B 

060B 

0972 

097C 

09B5 

0610 

08E7 

0161 

0966 

0762 

0760 

05EB 

0603 

01BD 

098D 

098F 

05DF 

05E0 

05E1 

05E2 

0818 

081B 

0968 

0BC7 

09B1 
0911 
0686 
06E7 



0630, 06CD 

06CE 

0694,0698,069A,069E,06E3,06F4,0757 

062E,06BA 

0691,06A6,06AC,06B0,06B8,06DD,072 7,0746,09A3 

0621,0690 

0692,06AD,06B2 

05EA 

05ED,0636,06A7,06E7,07 3C 

0769, 077C, 0780 

06C9,07 30,073A,0750,0782 

0642 

063C 

066D 

0646.074A 

095E,099E 

0975,0987 

0640,0712 

0713 

06F7, 0752, 0793, 0795, 07DA 

076E,0785,09BO,09CB 

05EC, 0658, 0660, 0662, 0664, 0669, 0942, 09 E4 

065A 

0774,078C,0860,08AA,08B7 



0705, 072A, 072 E, 0755, 07DD.099F 

0666 

0671 

0997 

066B, 0675, 0676 

0890 

0645 

063F 

07F5,07FA 

0922, 0934, 0974, 0982, 09B1,09BA,09C A 

0610,0650 

06C1,07CE,09F3,09F4,09F7,09F8 

09B0 

0994 

05FC 

061A 

061E 

0627 

0613 

0834, 089F 

0609, 0673, 092B, 0940, 09 46 

0777 

078F 

05E3,05E4, 0604,0646 

0606 



096F,09B7 

0970 

06D7,< 

0655, ( 

05FB,( 

07E9,( 

068C,( 

07E8i 

0966 

0738, 074E,07A5,07AB, 07 AF,07F7, 0804, 080A.080D, 0814, 08F 0,097 A, 097 E 

0980 
09B6 
08F2 
0677 
0678 % 



,071A,07BB,0823,09E9 

,065E,0758,093E 

, 0603, 060E, 0640,06 A 1, 09 EO 

,09E2 

,06FO,07B2,07B3,07B9,07C7,07D3 

r07EE,07F2,07FB,07FC,080F 
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TST03 

TST04 

TST05 

TWO 

TYAVG 

TYP 

TYPE 

T010 

T011 

T012 

T013 

T014 

T021 

T022 

T023 

T024 

T031 

T032 

T041 

T051 

WAIT 

WAIT1 

WAIT2 

WAIT3 

WAIT4 

WCNT 



0721 
073C 
0752 
09F1 
07C6 
0650 
09F2 
0690 
0693 
069E 
06A1 
06C7 
06F4 
06F7 
06FD 
0710 
072A 
0732 
0748 
0755 
0919 
0924 
0929 
092D 
093E 
0948 



0679 

067A 

067B 

09E6 

06DB,071E,07C0,07D5,09ED 

060F 

0601, 0689, 06C 3, 06ED, 0724, 0743, 07DO,09D3,09DE,09F9 
06E0 

069D 

06DF 

06D5 

06A0,06AE,06D1,06D3 

0720 

0718 

06F6.070E, 0714, 0716 

072D 

073B 

0751 

075A 
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092F 

0924 

0928, 09C8 
0921,0920 
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